访问VBA使用搜索Critera在记录集中查找记录

Question

我有一个连接到Excel的Access数据库。我需要找到使用搜索条件在记录记录从Excel

1. 在MS Access表名是MyTable超过10列的数据
2. 用户在Excel单元格中输入字符串数据，让我们假设Worksheets("Sheet1").Cells(1, 1)

3. 我的需求是，宏必须遍历第7列和第10列中的任何匹配字符串，并将三列（列1，列7和列10）中的相应记录集复制到工作表（“ALL”）。单元格（3,1）...单元格3,3），等等

4. 数据列7和第10列在一个记录单元中将具有超过500个字符的文本。搜索字符串可能存在于多个记录单元中;因此输出将在多个记录集中找到。

我们有instr函数和SQL查询的其他选项吗？

strSQL = "SELECT Qn_No, Categories, Page_Text FROM MyTable WHERE Categories = '" & str1 & "' or “&Page_Text &" 

任何帮助将不胜感激。我提前感谢。

Answer 1

这应该工作。 请记住输入访问文件的路径。

Sub test() 

Dim p As String 'path of access file 
Dim dbConn As Object, dbData As Object 
Dim ws As Worksheet 'worksheet where results will be pasted 
Dim s As String 'text searched 
Dim sql As String 'select statement 
Dim cs As String 'connection string 
Dim v As Variant 'stores query result 


s = Worksheets("Sheet1").Cells(1, 1) 
Set ws = Worksheets("ALL") 

sql = "SELECT Qn_No, Categories, Page_Text " & _ 
    "FROM MyTable " & _ 
    "WHERE Categories = '" & s & "' OR " & _ 
     "Page_Text = '" & s & "'" 

'################################ 
cs = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ 
    "Data Source=" & p & ";Persist Security Info=False;" 

Set dbConn = CreateObject("ADODB.Connection") 
Set dbData = CreateObject("ADODB.Recordset") 
dbConn.ConnectionString = cs 
dbConn.Open 
With dbData 
    .ActiveConnection = dbConn 
    .Source = sql 
    .LockType = 1 
    .CursorType = 2 
    .Open 
End With 
'Connection to access ready 
'############################### 

On Error GoTo NoRecords 'no records 
v = dbData.GetRows 
On Error GoTo 0 

'v is zero based array, an records are transposed 
'Handle it as you wish 

ws.Cells(1, 1).Resize(UBound(v, 1) + 1, UBound(v, 2) + 1).Value = v 
GoTo Quitter 

'###################### 
NoRecords: 
    MsgBox ("No Records Found") 
Quitter: 
    dbData.Close 
    Set dbData = Nothing 
    dbConn.Close 
    Set dbConn = Nothing 

End Sub