yeats 发表于 2004-5-30 12:23:00

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




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


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


谢谢！

雪山飞狐_lzh 发表于 2004-5-31 14:37:00

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 发表于 2004-5-31 18:00:00

谢谢你了！


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


       

雪山飞狐_lzh 发表于 2004-5-31 19:58:00

要引用下列类型库


       

yeats 发表于 2004-6-1 08:43:00

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


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


                                                                                                                                                                                                                                                                                                                                        和AUTOCAD       2005 TYPE LIBRARY

雪山飞狐_lzh 发表于 2004-6-1 10:08:00

本帖最后由 作者 于 2004-6-1 10:59:17 编辑 <br /><br /> FOUUS CONTROL FOR VBA TYPE是窗体要用的一个控件


我是在VBA里编的<BR>





不过你为什么给我一个鸡蛋?

yeats 发表于 2004-6-1 16:53:00

原来这样啊！


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


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

雪山飞狐_lzh 发表于 2004-6-1 21:08:00

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

gzy 发表于 2004-6-2 22:51:00

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



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


yeats 发表于 2004-6-4 16:48:00

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


我可申明，我是诚心感谢啊！
页: [1] 2
查看完整版本: [求助]vb读写数据库问题，请大家帮忙！！