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

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

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

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

谢谢！

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

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

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

谢谢你了！

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

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

要引用下列类型库

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

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

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

和AUTOCAD 2005 TYPE LIBRARY

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

本帖最后由作者于 2004-6-1 10:59:17 编辑

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

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

原来这样啊！

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

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

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

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

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

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

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

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

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

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

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源