select top 1 UserName,Parameters,Staue from downnewsview where Staue = 0
参考:引用ADO("工程"/"引用"/Microsoft ActiveX Data Objects 2.X Library) Private Sub Command1_Click() Dim cn As New ADODB.Connection, rs As New ADODB.Recordset, i As Integer cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;Jet OLEDB:DataBase password=12345;" cn.Open rs.CursorLocation = adUseClient '设置客户端游标 rs.Open "select * from 表1", cn, 3, 2 While Not rs.EOF For i = 0 To rs.RecordCount - 1 Debug.Print rs(i) Next rs.MoveNext Wend End Sub
Private Sub Command1_Click()
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset, i As Integer
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;Jet OLEDB:DataBase password=12345;" cn.Open
rs.CursorLocation = adUseClient '设置客户端游标
rs.Open "select * from 表1", cn, 3, 2
While Not rs.EOF
For i = 0 To rs.RecordCount - 1
Debug.Print rs(i)
Next
rs.MoveNext
Wend
End Sub