如何把文本文件的内容读入到数据库表中的相应该字段中。

Question

用INPUT方法一次读一个内容，看你的文本内容好象是固定的格式，读过来之后对应上相应的数据字段再写入就行

Answer 1

一段一段的读出来，拼成SQL语句就行了，我都用过很多次了

Answer 2

Function GetString(ByVal inputVal As Integer, str As String) As String
  
  Dim i As Long
  Dim tmpstr As String
  Dim s As Integer
For i = 1 To inputVal
    s = InStr(str, ",")
    
    tmpstr = Left(str, s - 1)
    str = Trim(Mid(str, s + 1))
    
Next i  GetString = tmpstr
  
End Function
先用FSO打开你的文件，要一行一行的读
再用以上函素，就可以取得你要的字符串，提交到相应的字段即可。INPUT方法也行。（小草的）

Answer 3

    Open "g:\1.txt" For Input As #1
Do Until EOF(1)
    Line Input #1, infor
    '然后是字符串处理,把infor(04110 2001-08-17 0600113602 1 20 0
)分割成str1,str2,str3,str4.str5,str6
    sql2 = "insert into table1 (字段1,字段2,字段3,字段4,字段5,字段6) values ('" & str1 & "','" & str2 & "','" & str3 &"','" & str4 & "','" & str5 & "','" & _ str6 & "')"
    Set rsd2 = DataEnvironment1.cn.Execute(sql2)
Loop

Answer 4

不用分割了
 
Open "YourFileName.txt" For Input As #1Do WHILE NOT EOF(1)
    Line Input #1, strLine
    strLine="'" & trim(strLine) & "'"
    strLine=replace(strLine, " ","','")
    sqlStr = "insert into table1 (Field1,Field2,Field3,Field4,Field5,Field6) values (" & strLine &  ")"
    Conn.Execute(sqlStr)
Loop  

Answer 5

不好！如果文本文件太大，则效果很差。
如果用SQL语句先将TXT写到数据库中，后分解.....

Answer 6

为什么要用sql写入呢？你可以先读入然后再用sql查询