为什么记事本数据txt导入到Access数据库时数据被分解
1、数据库中建有一个表, 表名为:表1,表1中有1个字段,其名为:数据12、现将txt文本数据按行导入即数据不分割,每一行txt文本数据在表1占据一个单元格也就是将txt文本数据复制到字段1。
如面数据
2 06 11
09 13 15
02 05 07
08 09 17
3、用下全面的程序导入后,数据被分解了,请老师修改,谢谢!
Private Sub Command9_Click()
Dim g
Dim Con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\vb-数据库学习\db11.mdb;Persist Security Info=False"
Con.Open
Open App.Path & "\AA.txt" For Input As #1
Do While Not EOF(1)
Input #1, g
Con.Execute ("insert into 表1(数据1) values( " & g & ")")
Loop
Close #1
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
[此贴子已经被作者于2016-5-21 11:58编辑过]