Option Explicit Dim cn As New ADODB.Connection '定义数据库的连接 Dim rs As New ADODB.Recordset Dim sql As String Dim l As Integer Dim zsl As Integer Dim strData As String Dim i As Integer Dim j As IntegerPrivate Sub Command3_Click() sql = "select * from jishijilu where car_bm like 'DF160%'" cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:\VB_program\kongtiao\CarTempTs.mdb;Persist Security Info=False" cn.Open rs.CursorLocation = adUseClient rs.Open sql, cn, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = rs zsl = rs.RecordCount l = rs.Fields.Count End SubPrivate Sub DataGrid1_Click() For j = 0 To l - 1 Text1.Text = Text1.Text & rs.Fields(j) & vbCrLf Next End Sub
同意楼上 不过落了一句 set rs = new Adodb.recordset
何以见得? 此句已做定义 Dim rs As New ADODB.Recordset 代码在WINXP和VB6下调试通过.
Dim cn As New ADODB.Connection '定义数据库的连接
Dim rs As New ADODB.Recordset
Dim sql As String
Dim l As Integer
Dim zsl As Integer
Dim strData As String
Dim i As Integer
Dim j As IntegerPrivate Sub Command3_Click()
sql = "select * from jishijilu where car_bm like 'DF160%'"
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:\VB_program\kongtiao\CarTempTs.mdb;Persist Security Info=False"
cn.Open
rs.CursorLocation = adUseClient
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
zsl = rs.RecordCount
l = rs.Fields.Count
End SubPrivate Sub DataGrid1_Click()
For j = 0 To l - 1
Text1.Text = Text1.Text & rs.Fields(j) & vbCrLf
Next
End Sub
此句已做定义 Dim rs As New ADODB.Recordset
代码在WINXP和VB6下调试通过.