[問題] Excel VBA 連結 Access 查詢有錯??
軟體:Excel,Access
版本:2003
我現在在 Excel 裡用 VBA 寫連結到 Access 資料庫的程式碼
在資料庫名稱 123.mdb
裡面的資料表是 testdata
裡面有兩個欄位 text(文字格式) 和 data(日期格式) + 一個索引碼欄位
在 Excel 內的 VBA 程式碼如下:
Dim myCon As New ADODB.connection
Dim myRst As New ADODB.Recordset
Set myCon = New connection
myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\data\123.mdb
Set myRst = New Recordset
strsql = "SELECT * from testdata where text='" & InputBox("Text") & "'"
Set myRst = myCon.Execute(strsql)
If Not myRst.EOF = True Then
myRst.MoveFirst
Range("C2").Value = myRst![text]
Range("D2").Value = myRst![data]
MsgBox "OK"
Else
MsgBox "沒資料喔"
End If
myRst.Close
Set myRst = Nothing
myCon.Close
Set myCon = Nothing
在資料庫內我有先增加幾筆資料 text 欄位中的 C9B123,C5B555,D85BB,K1235
我在跳出的輸入視窗中輸入 C9 ,但是這樣卻沒有查詢到資料??
是不是我查詢那一欄位寫法有問題??
我希望能做到模糊查詢
就是只輸入 C9B 甚至 C 這樣查詢條件
就可以將資料庫 text 欄位中有 C9B 或 C 開頭的都能顯示出來
除此外~~
假設如果我要將某範圍欄位(ex:B1~B25)寫入資料庫內
要怎樣全部批次寫入資料庫,
這程式碼要怎樣寫~~
而如果我這個 Excel 和 mdb 檔案拿到沒有安裝 Access 電腦能用
會有資料庫執行上的問題嗎??
如果我有說不清楚的地方請告知
我再補說明
謝謝~~ 3q
--
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 219.81.239.8
推
01/30 16:20, , 1F
01/30 16:20, 1F
→
01/30 17:00, , 2F
01/30 17:00, 2F
討論串 (同標題文章)
Office 近期熱門文章
PTT數位生活區 即時熱門文章