怎样实现手机号码的批量查找

baowang519

各位前辈！我想实现点击按钮后根据C列的会员名在E列显示查找出对应的手机号码，注：C列会员数量不固定，请前辈帮忙看看应该怎样实现！谢谢
非常感谢4楼zhangjimfu老师的帮助，现在已经可以实现批量查找，代码如下：
Private Sub CommandButton1_Click()
    Dim rst, cnn, i%, sql$
    Set rst = CreateObject("ADODB.Recordset")
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\shuju.accdb"
    sql = "Select 会员名,手机 From 会员记录"
    Set rst = cnn.Execute(sql)
    While Not rst.EOF
        i = 5
        While Cells(i, 3) <> ""
            If rst(0).Value = Cells(i, 3) Then Cells(i, 5) = rst(1)
            i = i + 1
        Wend
        rst.movenext
    Wend   
End Sub
现在我有一个奢侈的愿望{:soso_e121:}，这段代码依次查找会员名（有几个待查找的会员就会在Access中查找几次），可不可以一次就查找全部需要查找的会员手机呢？还是恳请前辈们帮忙，让我多学几种查找方法！{:soso_e120:}

baowang519

看到前辈们下载，好期待呀！

baowang519

{:soso_e113:}自己再顶一下！

zhangjimfu

批量查询手机号码[1].rar (225.97 KB, 下载次数: 74)

2011-9-22 12:26 上传

点击文件名下载附件

1. Private Sub CommandButton1_Click()
   
2.     Dim rst, cnn, i%, sql$
   
3.    
   
4.     Set rst = CreateObject("ADODB.Recordset")
   
5.     Set cnn = CreateObject("ADODB.Connection")
   
6.     cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\shuju.accdb"
   
7.     sql = "Select 会员名,手机 From 会员记录"
   
8.     Set rst = cnn.Execute(sql)
   
9.     While Not rst.EOF
   
10.         i = 5
    
11.         While Cells(i, 3) <> ""
    
12.             If rst(0).Value = Cells(i, 3) Then Cells(i, 5) = rst(1)
    
13.             i = i + 1
    
14.         Wend
    
15.         rst.movenext
    
16.     Wend
    
17.    
    
18. End Sub

复制代码

baowang519

非常感谢前辈的帮忙！

baowang519

前辈如果方便请解释一下If rst(0).Value = Cells(i, 3) Then Cells(i, 5) = rst(1)
这里的rst（0）和rst（1）是什么意思
谢谢

roych

rst(0)表示记录集的第一个字段，也就是“Select 会员名,手机 From 会员记录”里面的“会员名”。
同理，
rst(0)表示“Select 会员名,手机 From 会员记录”里面的“手机”。

roych

rst(0)表示记录集的第一个字段，也就是“Select 会员名,手机 From 会员记录”里面的“会员名”。
同理，
rst(1)表示“Select 会员名,手机 From 会员记录”里面的“手机”。

baowang519

谢谢！非常感谢前辈！

baowang519

各位前辈，我在一楼提了一下更高的要求，有点贪了，嘿嘿！希望前辈们能够帮忙！我也是想学习几种查找方法！