设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1708|回复: 1
打印 上一主题 下一主题

[求助]請問哪位高手可以教我一下TXT匯入SQL的VB程序

[复制链接]
跳转到指定楼层
1#
发表于 2003-10-31 00:04:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我現在有一個.TXT的文件.內容為
123456,2003-10-29,12:00:35
123457,2003-10-29,12:01:37
...
想要匯入到SQL中.
不知道用VB如何寫.請高手把您的程序碼給偶學一下....謝謝.
-------------------------
已經寫好的窗口及程序碼
Private Sub Form_Load()
Dim filename, file1
    file1 = Format(Now(), "yymmdd")
    filename = "\\SERVER\C$\DATA\A" & file1 & ".txt"      '一般TXT文件名都為A年月日.TXT
    Me.filename.Text = filename
End Sub

Private Sub openfile_Click()
Dim thefilename
    CommonDialog1.Filter = "文本文件(*.TXT)|*.txt"
    CommonDialog1.ShowOpen
    thefilename = CommonDialog1.filename
    If thefilename = "" Then
    Else
    filename.Text = thefilename
    filename.ToolTipText = thefilename
    End If
End Sub
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2003-11-1 19:10:00 | 只看该作者
可以使用FSO操作或者直接使用OPEN
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-15 10:01 , Processed in 0.080825 second(s), 25 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表