7,763
社区成员
发帖
与我相关
我的任务
分享
dim ConnPub as new connection
dim RstGet as new Recordset
With ConnPub
.ConnectionString = "连接字符串"
.CursorLocation = adUseClient
.Mode = ConnMode
.Open
End With
Set RstGet = ConnPub.Execute("SQL语句")
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & _
IIf(Len(App.Path) > 3, App.Path & "\db1.mdb", App.Path & "db1.mdb")
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from bjsj"
Adodc1.Refresh
Set Text1.DataSource = Adodc1
Text1.DataField = Adodc1.Recordset.Fields(1).Name
End Sub