文本數據如何導進 SQL SERVER

Question

如何才能將文本文件的內容轉到sql 庫里面(如下),. 在VB中.代碼應該怎么寫,庫己建好并聯接好, 文本的格式是定了的,不變的,記錄有多條,,,例: 1.txt為文本文件名: 里面的內容為: (中間10個空格)
265258 07231328020201
236566 07231456020201
------- -------------------
zzw 為 sql表名:想要轉到下面庫表里面,形成如下庫資料,請問應怎么寫代碼啊,
code date time addree
265258 07/23 13:28 020201
236566 07/23 14:56 020201
-------- ------ ------ ------
謝謝大家 望有詳細的代碼

Answer 1

用ado读取一行，然后更新
参考一下
Public Function Read_Text_File() As ADODB.Recordset      Dim rs As ADODB.Recordset
      Set rs = New ADODB.Recordset
      Dim conn As ADODB.Connection
      Set conn = New ADODB.Connection
      conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
                  "DBQ=" & App.Path & ";", "", ""      rs.Open "select * from [test#txt]", conn, adOpenStatic, _
                  adLockReadOnly, adCmdText
      Set Read_Text_File = rs
      Set rs = Nothing
      Set conn = Nothing
End FunctionPrivate Sub cmdReadTXT_Click()
      Set dgData.DataSource = obj.Read_Text_File
      Set obj = Nothing
End Subtest.txt文件
Test,Test2
1,1
2,2
3,3
4,4
5,5
6,6
7,7
8,8
9,9

Answer 2

还有一种看看
http://www.china-askpro.com/msg9/qa42.shtml

Answer 3

bcp 相当于在 SQL Sever 端导

Answer 4

例: 1.txt為文本文件名: 里面的內容為: (中間10個空格)
265258 07231328020201
236566 07231456020201
------- -------------------
zzw 為 sql表名:想要轉到下面庫表里面,形成如下庫資料,請問應怎么寫代碼啊,
code date time addree
265258 07/23 13:28 020201
236566 07/23 14:56 020201
-------- ------ ------ ------
謝謝大家 望有詳細的代碼[思路]
1.将代码一行一行读出.
2.分解读出字符串.
3.分解时间字符串.
4.写入数据.     Dim FileID As Long
     Dim InputStr As String
     Dim LineStr As String
     DIM StrSql as string 
     dim ReadArr() as string '保存读出后分解的字符
     dim TmpArr(4) as string '保存 日期 时间 地址.      On Error Resume Next
     
     InputStr = "": LineStr = ""
     FileID = FreeFile()
     Open Filename For Input As #FileID
          Do While Not EOF(FileID)
            LineStr = ""
              Line Input #FileID, LineStr
              IF len(linestr)>0 THEN
                 ReadArr=SPLIT(LINESTR,"          ") '10个空格.
                 IF LEN(TRIM$(READARR(1)))>0 THEN
                    TMPARR(0)=LEFT("07231328020201",2) & "/" & MID$("07231328020201",3,2) 
                    TMPARR(1)=MID$("07231328020201",5,2) & ":" & MID$("07231328020201",7,2) 
                    TMPARR(2)=RIGHT$("07231328020201",6) 
                    STRSQL="INSERT INTO [TABLENAME] (code,date,time,addree) VALUES('" & ReadArr(0) & "','" & TMPARR(0) & "','" & TMPARR(1)) & "','" & TMPARR(2) & "')"
                    p_cnn.Execute  strsql '执行INSET INTO 
                 END IF
              END IF
              ERASE READARR 
          Loop
     Close #FileID
     Err.Clear