模糊搜索忽略字段行

okenny

参照了 http://club.excelhome.net/thread-166467-1-1.html 里的模糊搜索案例做了个广告方案数据库，功能是正常的，但发觉搜索的结果是连第一行字段名都显示出来，请问有什么方法可以忽略每个表的第一行呢？谢谢


Demo.rar (21.37 KB, 下载次数: 12)

2012-1-10 10:50 上传

点击文件名下载附件

zhaogang1960

第一段使用有标题:

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim cn As Object, Sql$, sh As Worksheet, rowend&
   
3.     Dim RST As New ADODB.Recordset
   
4.     Dim arr
   
5.     If Target.Address = [b1].Address And Not IsEmpty([b1]) Then
   
6.         Set cn = CreateObject("ADODB.Connection")
   
7. '        cn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & ThisWorkbook.FullName
   
8.         cn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
   
9.         Range("A4:L" & [a65536].End(xlUp).Row + 1).ClearContents
   
10.         For Each sh In Worksheets
    
11.             If sh.Name <> "Result" Then
    
12.                 Sql = ""
    
13.                 arr = sh.[a1].CurrentRegion
    
14.                 For i = 1 To UBound(arr, 2)
    
15.                     Sql = Sql & arr(1, i) & " like '%" & [b1].Text & "%' or "
    
16.                 Next
    
17.                 Sql = Left(Sql, Len(Sql) - 3)
    
18.                 Sql = "select * from [" & sh.Name & "$] where " & Sql
    
19.                 [a65536].End(xlUp).Offset(1, 0).CopyFromRecordset cn.Execute(Sql)
    
20.             End If
    
21.         Next
    
22.         cn.Close:    Set cn = Nothing
    
23.     End If
    
24.     If Target.Address = [g1].Address And Not IsEmpty([g1]) Then
    
25.         Set RST = CreateObject("Adodb.Recordset")
    
26.         Set cn = CreateObject("ADODB.Connection")
    
27.         cn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & ThisWorkbook.FullName
    
28.         Sql = ""
    
29.         For i = 1 To [iv3].End(xlToLeft).Column
    
30.             Sql = Sql & "f" & i & " like '%" & [g1].Text & "%' or "
    
31.         Next
    
32.         Sql = Left(Sql, Len(Sql) - 3)
    
33.         rowend = [a65536].End(xlUp).Row
    
34.         Sql = "select * from [Result$a4:h" & rowend & "] where " & Sql
    
35.         RST.Open Sql, cn, adOpenStatic
    
36.         [a4].CopyFromRecordset RST
    
37.         Range("A" & 4 + RST.RecordCount & ":L" & rowend + 1).ClearContents
    
38.         cn.Close:    Set cn = Nothing
    
39.     End If
    
40. End Sub
    

复制代码

okenny

谢谢板主，请问可以讲解一下吗？

zhaogang1960

okenny 发表于 2012-1-10 11:19
谢谢板主，请问可以讲解一下吗？

'excel 8.0;hdr=no'，没有标题，所有行都是数据行，SQL语句中的工作表区域不包含实际标题行，字段用F1、F2、……表示
excel 8.0默认有标题行，SQL语句中的工作表区域第一行就是标题行，其他是数据区，字段是标题行中实际标题

okenny

板主，我还想问多个问题，因为我每一行数据后面都有两个图片，一个是照片一个是地图，请问有没有办法搜索结果出来后连同图片一起显示呢？急盼

zhaogang1960

okenny 发表于 2012-1-10 11:46
板主，我还想问多个问题，因为我每一行数据后面都有两个图片，一个是照片一个是地图，请问有没有办法搜索结 ...

这个要求挺新颖，SQL好像不能查询数据之外的东西，图片应该复制，建议使用Find方法查询并复制区域

okenny

zhaogang1960 发表于 2012-1-10 12:29
这个要求挺新颖，SQL好像不能查询数据之外的东西，图片应该复制，建议使用Find方法查询并复制区域

板主，这个是我原来做的，可以显示照片，有没有办法将新旧两个数据库合二为一呢？

demoOld.rar (259.59 KB, 下载次数: 7)

2012-1-10 13:20 上传

点击文件名下载附件

zhaogang1960

okenny 发表于 2012-1-10 13:20
板主，这个是我原来做的，可以显示照片，有没有办法将新旧两个数据库合二为一呢？

没有理解，请模拟效果

okenny

例如输入“丰兴”后，搜索出来的结果是包含图片的

媒体demo.rar (36.5 KB, 下载次数: 8)

2012-1-10 15:24 上传

点击文件名下载附件

zhaogang1960

只修改了第一段：
媒体demo.rar (37.21 KB, 下载次数: 19)

2012-1-10 15:48 上传

点击文件名下载附件