各位高手指点指点:vb程序如何读取access数据库中的自动编号字段

Question

如题所述

Answer 1

就像我说的一样，你测试下标越界你查一下哪里错误，我测试没有问题或者你加一条语句

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, " ")
'Print StrSp(0), StrSp(1), StrSp(2)
ReDim Preserve StrSp(UBound(StrSp)) '重新定义数组
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
希望对你有帮助