Option Explicit Dim adocon As ADODB.connection Dim rs As New ADODB.Recordset Private Sub Form_Load()Set adocon = New ADODB.connection adocon.Provider = "Microsoft.Jet.OLEDB.4.0 " adocon.Open "c:\test.mdb" Set rs = adocon.Execute("select * from TableName") End Sub
Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset '创建一个记录集对象实例或 Dim rs As New ADODB.Recordset后者在编译时此后的每一句代码后都需要插入一个附加的语句,直至记录集对象被使用,降低了效率。微软表示不推荐
Dim Con as new Connection Dim Rs as new Recordset Dim StrSQL as String strSQL="provider=MicroSoft.Jet.OLEDB.4.0;DataSource="+"数据路径" Con.open strSQL Rs.open "Select * from 表名",Con
Dim adocon As ADODB.connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()Set adocon = New ADODB.connection
adocon.Provider = "Microsoft.Jet.OLEDB.4.0 "
adocon.Open "c:\test.mdb"
Set rs = adocon.Execute("select * from TableName")
End Sub
Set rs = New ADODB.Recordset '创建一个记录集对象实例或
Dim rs As New ADODB.Recordset后者在编译时此后的每一句代码后都需要插入一个附加的语句,直至记录集对象被使用,降低了效率。微软表示不推荐
Dim Rs as new Recordset
Dim StrSQL as String
strSQL="provider=MicroSoft.Jet.OLEDB.4.0;DataSource="+"数据路径"
Con.open strSQL
Rs.open "Select * from 表名",Con
怎样将recordset里的内容绑定到显示控件里呢?
textbox.datasource=Rs
textbox.datamember=Rs.fields(i).valueDatagrid:
datagrid.datasource=Rs