軟體:Excel + Sqlite3
版本:Excel 2013, Sqlite3
各位板上的大大下午好，我在用VBA連線sqlite查詢的時候得到的結果只有第一筆。
可是在DB Browser上同樣的指令可以找出所有的資料。
而且神奇的是，我用單步執行還可以印出一筆資料。但是如果直接按按鈕，只會得到
欄位名稱，沒有結果。
可否請大大指導發生什麼事？
我的資料內容如下範例
模號 品名
G001 5678
G002 5678
G003 5678
G004 2125
G005 1388
G006 7758
G007 7758
G023 150
G024 150
我的畫面如下圖
https://imgur.com/Gy4ghAj
照理說，查詢品名150會查到G023跟G024這兩個模號，可是結果卻只出現一筆。
我用DB Browser的查詢結果
https://imgur.com/1fy3r2i
我的程式碼如下:
Private Sub ItemAndDieInquiry_Click()
Dim search_command As String
If ([B1].Value <> "") And ([B2].Value <> "") Then
MsgBox "請只填要查詢的欄位"
Exit Sub
ElseIf [B1].Value <> "" Then
MsgBox "將為您查詢模號"
search_command = "select * from 品名對模號 where 品名=" & [B1].Value & ";"
sql_data_inquiry search_command
Else
MsgBox "將為您查詢品號"
search_command = "select * from 品名對模號 where 模號=" & [B2].Value & ";"
End If
End Sub
Sub sql_data_inquiry(search_command As String)
Dim cn, rs, f
Set cn = CreateObject("adodb.connection")
'開啟sqlite指定資料庫，路徑與檔案名稱要對
cn.Open ("Driver={SQLite3 ODBC Driver};database=C:\DSDMS\SQL\DMS.db")
'寫出SQL查詢語法
Set rs = cn.Execute(search_command)
For f = 0 To rs.Fields.Count - 1
ActiveSheet.Cells(10, f + 1).Value = rs.Fields(f).Name
Next
ActiveSheet.Cells(11, 1).CopyFromRecordset (rs)
cn.Close
End Sub
煩請撥冗解惑，感謝。