请教将文本文件的内容存入SQL数据库

Question

我想把一个文本文件(A.TXT)
内容是:
比如:
北京 未来24小时  铁路拥挤指数1级
     未来48小时  铁路拥挤指数2级
     未来72小时  铁路拥挤指数3级
上海 未来24小时  铁路拥挤指数2级
     未来48小时  铁路拥挤指数3级
     未来72小时  铁路拥挤指数4级
............
我在SQLSERVER中建了一个库Q.MDB
里面有3个字段
发布时间 地名 内容我想将A.TXT文本内容存入Q.MDB中
按照:
发布时间    地名        内容
未来24小时  北京     铁路拥挤指数1级
未来48小时  北京        铁路拥挤指数3级
....
每次存入时覆盖上次内容,存完后再将各自内容取出放入各自文本文件中
比如:未来24小时  北京     铁路拥挤指数1级
存入(北京24H.TXT)
请大家能给指点一下!

Answer 1

我觉得你思路很清楚地，我就写点提示吧。具体代码是在麻烦，需要自己查.csdn就有
1打开文件filesystem object可以打开制定文件
2读string  textstream object可以找到读出string
3插入adodb可以做这些
sql="insert into Q set fabushijian='" & var1 & "'"...这是一种方法4filesystem object可以负责建立新的文件
5.textstream负责写入具体代码实现不难，csdn搜索就可以找到了希望有所帮助

Answer 2

conn01.Open (connstr)
       rs01.Open "select * from Q", conn01, adOpenDynamic, adLockPessimistic
       Open filep For Input As #1   'filep 为文件路径
       If Err.Number = 53 Then    ' 没有找到指定文件退出
           GoTo endsub
       End If
    
       Do Until EOF(1)
             Line Input #1, strRow   '按行读取数据
             rs01.AddNew
             For i = 0 To rs01.Fields.count - 1
                If InStr(strRow, Chr(9)) <> 0 Then   '同一行的字段间以‘TAB’键分隔
                   intPos = InStr(strRow, Chr(9))
                   strField = Left(strRow, intPos - 1)
                Else
                   strField = strRow
                End If
                If strField = "Null" Then
                    strField = ""
                End If
                rs01.Fields(i).Value = strField
                strRow = Right(strRow, Len(strRow) - intPos)
                intPos = 0
             Next
             rs01.Update
             rs01.MoveFirst
       Loop
   endsub:
       Close
       rs01.Close
       conn01.Close
       Set rs01 = Nothing
       Set conn01 = Nothing

Answer 3

rs.Open sql, conn2, 1, 1   
        Do While Not rs.EOF
            For i = 0 To rs.Fields.count - 1
                reString = reString & rs.Fields(i).Value & Chr(9)
            Next
            Open filep For Append Access Write As #1   '写到文件中
            Print #1, reString
            Close #1
            reString = ""
            rs.MoveNext
        Loop

Answer 4

非常感谢大家:
ghzboy1(飞翔)你上面的代码我有点不明白,好像没引用ADO呀,怎么和我的库进行连接呢?