Question

求一段用VB编写的将txt文件导入access的程序，能运行通过的

用VB将txt文件导入到access中
在txt文件中有这样的值：
0 0 0
0 0 1
0 2 3
1 4 5
5 5 20
……
数与数之间有一个空格，我想将其输入到access数据库中三个字段里面，请问用VB如何编写代码呀？还有需要添加什么控件呢？多谢啦！
输入access结果为：
X坐标值 Y坐标值 Z坐标值
0 0 0
0 0 1
0 2 3
1 4 5
5 5 20
……

Answer 1

'使用本程序需要先在单击工程菜单---引用---Microsoft DAO 3.6 Object Library

Private Sub Command1_Click()
Dim myDB As Database
Dim myTB As Recordset
Dim TxtFile As String
Dim DbFile As String
Dim StrTemp As String
Dim StrSp() As String

TxtFile = "c:\vb.txt" '文件文件位置
DbFile = "c:\vb.mdb" '数据库文件位置

Set myDB = OpenDatabase(DbFile) '打开数据库文件
Set myTB = myDB.OpenRecordset("表1") '打开数据库表1

Open TxtFile For Input As #1 '打开文本文件
Do While Not EOF(1)
Line Input #1, StrTemp
StrSp = Split(StrTemp, " ")
myTB.AddNew
myTB.Fields("X坐标值") = StrSp(0)
myTB.Fields("Y坐标值") = StrSp(1)
myTB.Fields("Z坐标值") = StrSp(2)
myTB.Update
Loop
Close #1

myTB.Close
myDB.Close

End Sub

Answer 2

vb写也可以，花时间，教你一个最简单的方法，用ACCESS，将文本导入数据库！