vb access 查询问题

展开全文

vb access 查询问题

Dim a As String
Dim b As String
Dim c As String
Dim d As String
   
   Adodc1.Refresh
   Adodc1.Recordset.Find "类型='" & Text5.Text & "  '", , adSearchForward, 1
  If Adodc1.Recordset.EOF Then
    MsgBox "无次记录", , "提示"
    Text4.Text = ""
  Else
  Do Until Adodc1.Recordset.EOF
   a = Adodc1.Recordset.Fields("金额").Value
   b = Adodc1.Recordset.Fields("日期").Value
   c = Adodc1.Recordset.Fields("详情").Value
   d = Adodc1.Recordset.Fields("类型").Value
   Text4.Text = Text4.Text & Space(2) & "消费日期:" & b & Space(2) & "金额：" & a & "元" & Space(2) _
   & d & "详情：" & c & vbCrLf & vbCrLf
  Adodc1.Recordset.MoveNext
  Loop
  End If
为什么一直输出，全部记录

************************************************************************

你都Do Until Adodc1.Recordset.EOF
了还不是全部的？
谢谢，那怎样才能选择（也就是按类型输出）的输出
Adodc1.Recordset.Find "类型='" & Text5.Text & "  '", , adSearchForward, 1
这个不就是指定类型了么？
你上一个帖子还没采纳呢