[求助]vb读写数据库问题，请大家帮忙！！

yeats

这是我的坐标数据，每行是一个点坐标信息，xyz用空格隔开！


请大家帮忙编个vb程序将数据按zyz（三个字段）写入数据库中！


谢谢！

雪山飞狐_lzh

2. Dim pVals As Collection
3. Private Function LeftStr(ByVal String1 As Variant, ByVal String2 As Variant)
4. On Error Resume Next
5.        LeftStr = Left(String1, InStr(String1, String2) - 1)
6.        If Err Then LeftStr = ""
7. End Function
8. Private Function RightStr(ByVal String1 As Variant, ByVal String2 As Variant)
9. On Error Resume Next
10.        RightStr = Right(String1, Len(String1) - Len(String2) - InStr(String1, String2) + 1)
11.        If Err Then RightStr = ""
12. End Function Public Sub ReadFile(FileName As String)
13. Dim fso As New FileSystemObject
14. Dim ts As TextStream
15. Dim pStr As String
16. Dim pVal(2) As StringSet ts = fso.OpenTextFile(FileName, ForReading)
17. Set pVals = New Collection
18. Do While Not ts.AtEndOfStream
19.        pStr = Trim(ts.ReadLine)
20.        pVal(0) = LeftStr(pStr, " ")
21.        pStr = Trim(RightStr(pStr, " "))
22.        pVal(1) = LeftStr(pStr, " ")
23.        pVal(2) = Trim(RightStr(pStr, " "))
24.        pVals.Add pVal
25. Loop
26. End Sub
27. Public Sub WriteFile(FileName As String)
28. Dim mycon As New ADODB.Connection       mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName & ";Persist Security Info=False"
29.        mycon.Open
30.        For i = 1 To pVals.Count
31.        mycon.Execute "insert into point values('" & Join(pVals(i), "','") & "')"
32.        Next i
33. End Sub

Dim pVals As Collection Private Function LeftStr(ByVal String1 As Variant, ByVal String2 As Variant) On Error Resume Next        LeftStr = Left(String1, InStr(String1, String2) - 1)        If Err Then LeftStr = "" End Function Private Function RightStr(ByVal String1 As Variant, ByVal String2 As Variant) On Error Resume Next        RightStr = Right(String1, Len(String1) - Len(String2) - InStr(String1, String2) + 1)        If Err Then RightStr = "" End Function Public Sub ReadFile(FileName As String) Dim fso As New FileSystemObject Dim ts As TextStream Dim pStr As String Dim pVal(2) As StringSet ts = fso.OpenTextFile(FileName, ForReading) Set pVals = New Collection Do While Not ts.AtEndOfStream        pStr = Trim(ts.ReadLine)        pVal(0) = LeftStr(pStr, " ")        pStr = Trim(RightStr(pStr, " "))        pVal(1) = LeftStr(pStr, " ")        pVal(2) = Trim(RightStr(pStr, " "))        pVals.Add pVal Loop End Sub Public Sub WriteFile(FileName As String) Dim mycon As New ADODB.Connection       mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName & ";Persist Security Info=False"        mycon.Open        For i = 1 To pVals.Count        mycon.Execute "insert into point values('" & Join(pVals(i), "','") & "')"        Next i End Sub

上述代码存为TlsPoint类Sub lt()
Dim a As New TlsPoint
a.ReadFile "d:\point\point.txt"
a.WriteFile "d:\point\point.mdb"
End Sub这是Point.mdb的格式

yeats

谢谢你了！


我对数据库一窍不通，帮我再看看下面我运行的错误！


       

雪山飞狐_lzh

要引用下列类型库


       

yeats

太谢谢你了！我运行成功了！


不过我不知道你什么要引用         FOUUS CONTROL FOR VBA TYPE


                                                                                                                                                                                                                                                                                                                                        和AUTOCAD         2005 TYPE LIBRARY

雪山飞狐_lzh

FOUUS CONTROL FOR VBA TYPE是窗体要用的一个控件 我是在VBA里编的
不过你为什么给我一个鸡蛋?

yeats

原来这样啊！


不过我还是不大懂，不过现在能用就可以了，我的问题也解决了！


送你鸡蛋，纯粹是为了贿赂！因为我以后还得请教你更多的问题……

雪山飞狐_lzh

原来你是这样理解的，鸡蛋是为了贿赂，不是砸我，怕怕

gzy

“送你鸡蛋，纯粹是为了贿赂！因为我以后还得请教你更多的问题……”



         晕倒！下次记得用鲜花哟！不然让笑纳者哭笑不得

yeats

哦！原来还有其他的理解啊！


我可申明，我是诚心感谢啊！