[算表] VBA連Sqlite只查到第一筆資料

看板Office作者yimean (溫柔殺手)時間7年前 (2019/04/04 15:35)推噓0(0推 0噓 16→)

留言16則, 3人參與討論串1/1

軟體: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 煩請撥冗解惑，感謝。 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.33.116.8 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1554363356.A.5B0.html ※ yimean:轉錄至看板 Database 04/04 15:36 ※ 編輯: yimean (114.33.116.8), 04/04/2019 15:40:34 ※ 編輯: yimean (114.33.116.8), 04/04/2019 16:09:32 ※ 編輯: yimean (123.195.98.141), 04/04/2019 19:19:11