新手求助：把文本文件导入到access数据库？看看代码吧。

[xiaxuan]

Private Sub Command1_Click()
Dim fsys As Scripting.FileSystemObject
Dim frec As String
Dim ftext() As String
Dim fdate As Date
Dim count As Integer
Dim frushtime As Date
Set fsys = CreateObject("scripting.filesystemobject")
Set fstream = fsys.OpenTextFile("d:\flw.txt", ForReading)
Dim conn As New ADODB.Connection
conn.Open "dsn=netflow;uid=hello;pwd=sym"
Do While fstream.AtEndOfStream = False
frec = fstream.ReadLine
ftext = Split(frec, ",")
If InStr(Trim(ftext(9)), "-") = 1 Then
fip = ftext(10)
fport = ftext(11)
Else
fip = ftext(9)
fport = ""
End If
fdate = ftext(4) & " " & ftext(5)
fname = ftext(1)
If Weekday(fdate) = vbSunday Or Weekday(fdate) = vbSaturday Then
Else
If (ftext(5) > #8:30:00 AM# And ftext(5) < #12:00:00 PM#) Or (ftext(5) > #1:30:00 PM# And ftext(5) < #6:00:00 PM#) Then
MsgBox "属于符合条件的记录，导入到数据库！”"
conn.Execute "insert into tbflow (name,ondate,ip,port) values _(fname,fdate,fip,fport)" ____________就是把局域网的访问日志导入到数据库， 此处问题大大的，该怎么办？已经是我能给的最高分了。
Else
End If
End If
Loop
conn.Close
Set conn = Nothing
frushtime = Now()
lbltime.Caption = "您更新数据库的时间是" & frushtime
End Sub

[huanggx]

你的问题在于：你的fname,fdate,fip,fport都是VB中的变量，但是你却放在一个字符串当中，vb无法把这些变量中的值计算出来。你需要这样做：sql="insert into tbflow (name,ondate,ip,port) values ('" & fname & "','" & fdate & "','" & fip & "','" & fport & "')" 如果你的ondate是日期类型，就去掉fdate前后的单引号。我这个例子是假定你用的是sql server数据库。字符串必须写在单引号之中。建议你最好不要用vb的日期值付给数据库的日期字段。有时候，日起个是不同，会出问题。希望解决了你的问题。你的问题主要就是没有把vb的变量值付给数据库。

[huanggx]

lbltime.Caption = "您更新数据库的时间是" & frushtime
如果你把这一句改做 lbltime.caption="您更新数据库的时间是frushtime"。那么一样是错误的。你既然知道这个句子要把frushtime放在引号外面，为什么insert一句就忘了呢？看来你是疏忽了。不过这是常常犯的错误。：）

[xiaxuan]

我试试先，YES1

[xiaxuan]

非常感谢，
看你那么晚了还在，
我偷懒了。
全给你了，呵呵 ...............