Question

VB查询数据只显示第一条

Private Sub Command1_Click()
Dim tDate1 As Date
Dim tDate2 As Date
tDate1 = Format(Text1.Text, "YYYY-MM-DD")
tDate2 = Format(Text2.Text, "YYYY-MM-DD")
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set cmd = New ADODB.Command
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
conn.Open
cmd.CommandType = adCmdText
cmd.ActiveConnection = conn
'cmd.CommandText = "select * from test where 日期 >= #" & tDate1 & "# and 日期 <= #" & tDate2 & "#"
cmd.CommandText = "select * from test where ID >= 29 and ID <= 43"
Set rs = cmd.Execute
Set MSHFlexGrid1.DataSource = rs
rs.Close
End Sub
麻烦大家帮我看看

Answer 1

为了确定返回的记录数，你可以在
Set rs = cmd.Execute
语句下面加一条语句：

msgbox rs.RecordCount

运行看看是几？

追问

弹出的对话框提示 -1 返回值是-1的话 说明已经循环结束了哇

追答

那说明没有满足的记录？？？？？？