2013-05-30 明经AutoCAD.VBA编程(45054712) 群聊记录：Sub createconnection() Dim cont

明经快报

Jrsgth丨 14:21:51

Sub createconnection()
       Dim contr As String
       Set cn = New ADODB.connection
       cn.CursorLocation = adUseClient
       cn.Provider = "Microsoft.Jet.OLEDB.4.0;"
       constr = "data source =C:\Documents and Settings\Administrator\桌面\Database3.accdb;"
       cn.Open constr
       MsgBox "已经创建了一个到C:\Documents and Settings\Administrator\桌面\Database3.accdb的ADO连接"
End Sub
Private Sub ReadFromDB1()
'链接
Call createconnection
'查询柄部的数据
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
rst.Open "SELECT *FROM 前柄尺寸表", cn, adOpenForwardOnly, adLockBatchOptimistic, adCmdText
rst.MoveFirst
Dim i As Integer, d0 As Double
d0 = TextBox2.Text - 1
If 12 

明经快报

Jrsgth丨 15:17:20

Public cn As Object
Sub createconnection()
       Dim contr As String
       Set cn = New ADODB.connection
       cn.CursorLocation = adUseClient
       cn.Provider = "Microsoft.Jet.OLEDB.4.0;"
       constr = "data source =C:\Documents and Settings\Administrator\桌面\Database3.accdb;"
       cn.Open constr
       MsgBox "已经创建了一个到C:\Documents and Settings\Administrator\桌面\Database3.accdb的ADO连接"
End Sub
Private Sub ReadFromDB1()
'链接
Call createconnection
'查询柄部的数据
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
rst.Open "SELECT * FROM 前柄尺寸表", cn, adOpenForwardOnly, adLockBatchOptimistic, adCmdText
rst.MoveFirst
Dim i As Integer
For i = 0 To rst.RecordCount - 1
If TextBox28.Text = rst.Fields("D1") Then
TextBox47.Text = rst.Fields("D11")
TextBox30.Text = rst.Fields("l1")
TextBox31.Text = rst.Fields("l2")
TextBox29.Text = rst.Fields("c")
TextBox48.Text = rst.Fields("s")
Else
rst.MoveNext
End If
Next i
End Sub