[求助VB] Access数据库查询问题

Question

  怎样按行得出查找数据呢？ 如
A字段5
4
2
3
5
1
8
9   这里如果要查找4 2 3下面的5得出，该怎样做呢。423设定为条件。  我无法做到按行选择的方法。
   
       

Answer 1

'说明,此示例中的数据必须满足以下条件:
'只能查找到第一个满足条件的数据
'每行的数据建议只有一个字符.Option Explicit
Dim i As LongPrivate Sub Command1_Click()
  Dim Data As String  For i = 1 To ListView1.ListItems.Count
     Data = Data & ListView1.ListItems(i)
  Next
  If InStr(1, Data, "542") > 0 Then
    MsgBox "找到的数据是：" & Mid(Data, InStr(1, Data, "542") + Len("542"), 1)
  Else
    MsgBox "没有找到数据"
  End If  '"542" 为查找的字符,你可以更改,建议全部更改.End SubPrivate Sub Form_Load()  '设置在ListView中,此处增加示例数据
  ListView1.View = lvwReport
  
  
  Dim Arr() As Variant
  Arr = Array(5, 4, 2, 3, 4, 1, 8, 9)
  
  ListView1.ColumnHeaders.Add , , "A列"
  For i = 0 To UBound(Arr)
    ListView1.ListItems.Add , , Arr(i)
  Next
  
  
  
End Sub

Answer 2

给你个思路:
1.将A字段的值返回成一个字串，比如
执行   select A字段 from tbl返回一个ado recordset(adoRs)
然后：strs=adors.getstring返回成一个字串,注意要将换行符去掉
      strs = Replace(strs, Chr(13), "")2.由instr(1,strs,"542")得到strs中开始位置，(注A字段中值只能有一个字符)可得到542在表中的出现起始位置n。
3.根据所得起始位置找出相应数量的行即可。比如adors.GetRows(3,n)