利用窗体实现查询

同心/ty

求大神帮忙，用vba解决我查询问题。1.档案目录文件中有A列储存档号信息，J列储存的是农户信息。2.原文文件夹里储存的是不同村、社区农户档号对应的文件夹，这个文件夹里都是图片，我没有装入。3.最终目地是：在查询文件中的窗体里输入农户姓名，找出档号，并打开这个档号的文件夹以查询本户基本信息。谢谢！，如果有其它的方法能解决这个问题也可以。

wang-way

做窗体 是有点花时间的。 可以直接在另外一张表上做查询。这样写起代码来 就很方便

蓝桥玄霜

窗体及模板代码如下：

Qs18

试试........

Qs18

试试.............

Qs18

试试.........

Qs18

Private Sub ListView1_DblClick()
Me.L2.Caption = ListView1.ListItems(ListView1.SelectedItem.Index).Text
Me.L3.Caption = Me.ListView1.SelectedItem.SubItems(1)  '第二列
If InStr(L3.Caption, "伍山") Then s = "39伍山村"
If InStr(L3.Caption, "明德") Then s = "01明德社区"
    p = ThisWorkbook.Path & "\原文\" & s & "\" & Me.L2.Caption
    Dim folderPath As String
    folderPath = p ' 双击打开选中的文件夹
    Shell "explorer " & folderPath, vbNormalFocus
End Sub

Private Sub TextBox1_Change()
Call chaxun
End Sub
Private Sub UserForm_Initialize() '加载
Call chaxun
End Sub
Sub chaxun()
     Dim Sql$, line&, i&
    Application.ScreenUpdating = False
     Set cnn = CreateObject("adodb.connection")
    Set rst = CreateObject("ADODB.RecordSet")
    s = TextBox1.Text
    With cnn
        .Open "Provider=Microsoft.Ace.oledb.12.0;extended properties='excel 12.0;HDR=yes';data source=" & ThisWorkbook.Path & "\档案目录.xls"
        Sql = "select 档号,题名 from [Sheet1$] where 题名&档号 like '%" & s & "%'"
    End With
    rst.Open Sql, cnn, 1, 3
With ListView1
.ColumnHeaders.Clear '先清空listview的表头
.ListItems.Clear '清空记录
.View = lvwReport '以报表的形式
.Gridlines = True '显示网格线
For i = 0 To rst.Fields.Count - 1
.ColumnHeaders.Add , , rst.Fields(i).Name, 100 * (i + 2), lvwColumnLeft
Next i
    .ListItems.Clear
    For i = 1 To rst.RecordCount
        .ListItems.Add , , rst.Fields(0).Value
            For j = 1 To rst.Fields.Count - 1
                .ListItems(i).SubItems(j) = rst.Fields(j).Value
            Next j
            rst.MoveNext
    Next i
End With
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
End Sub

Qs18

试一下................

wang-way

Qs18 发表于 2024-6-12 21:20
试一下................

写得很好 学习了    查找文件夹路径的部分  应该还需要改进一下   楼主只是给了两个村子做演示

Qs18

wang-way 发表于 2024-6-12 21:31
写得很好 学习了    查找文件夹路径的部分  应该还需要改进一下   楼主只是给了两个村子做演示

向您学习.......