作者tsongs (lkk)
看板Visual_Basic
標題Re: [VBA ] VBA 連到ACCESS方法?
時間Tue Jul 22 08:27:01 2014
※ 引述《kikkoko (海海人生)》之銘言：
: 這應該是DAO連線方法，請問如何改寫成ADO方法
: Sub ABC()
: Dim DB As Database
: Dim RES As Recordset
: Dim S As String
: Connect$ = "ODBC;DSN=msndb;UID=eefg;PWD=a000user;"
: Set DB = OpenDatabase("", False, False, Connect$)
: Sheets("Sheet1").Select
: S = " SELECT DTN FROM INDICES "
: Set RES = DB.OpenRecordset(S, dbOpenSnapshot, dbSQLPassThrough)
: Range("B8").CopyFromRecordset RES
: End Sub
: 謝~
以下是我常用寫法
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strCn As String, strSQL As String
strCn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
" Data Source = " & 資料庫路徑檔名
cn.Open strCn
strSQL = " Select * from 一號資料表 " & _
" Where 欄位1 = TRUE " & _
"AND 欄位2 = '" & 變數 & "' "
rs.Open strSQL, cn, adOpenKeyset, adLockOptimistic
'↑自己查一下最後2個這邊要用什麼，不一樣有權限
'讀取資料
Do Until rs.EOF
欄位1的值 = rs("欄位1")
做完你跟欄位1的愛做的事
rs.MoveNext
Loop
'新增一筆資料
rs.AddNew
rs("欄位1") = 123
rs("欄位2") = 555
rs.Update
rs.Close' 別忘了關掉
cn.Close
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 125.227.65.181
※ 文章網址: http://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1405988823.A.2B9.html
※ 編輯: tsongs (125.227.65.181), 07/22/2014 08:29:38
1F：推 ClubT:做完你跟欄位1的愛做的事... 07/22 13:48
比方說 insert into
耶 好像不行這樣用
※ 編輯: tsongs (125.227.65.181), 07/22/2014 14:34:14
2F：推 kikkoko:謝謝，但不是這種XD 07/22 20:16
3F：→ ClubT:我只是想說那句有電色色的XD 07/24 14:15