Re: [VBA ] VBA 連到ACCESS方法?

看板Visual_Basic作者tsongs (lkk)時間9年前 (2014/07/22 08:27)推噓2(2推 0噓 1→)

留言3則, 2人參與討論串2/2 (看更多)

※ 引述《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://www.ptt.cc/bbs/Visual_Basic/M.1405988823.A.2B9.html ※ 編輯: tsongs (125.227.65.181), 07/22/2014 08:29:38

推

ClubT

07/22 13:48, , 1^F

07/22 13:48, 1^F

比方說 insert into 耶好像不行這樣用 ※ 編輯: tsongs (125.227.65.181), 07/22/2014 14:34:14

推

kikkoko

07/22 20:16, , 2^F

07/22 20:16, 2^F

→

ClubT

07/24 14:15, , 3^F