作者kikkoko (海海人生)
看板Visual_Basic
标题[VBA ] VBA 连到ACCESS方法?
时间Mon Jul 21 22:53:11 2014
这应该是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
谢~
--
t a ╭ ◢██◣═◢██◣◥███◣═███◢██◣═球˙来就打══╮t a
h n ║ █◤ ◥ █◤ ◥ ████ █ █ █ ╴ ∕ ║h n
e s ║ █ █ █▌ ◥██◣ ◢◤ ￣╱〉 ║e s
w ˙─────────────────────── ☆ ║ w
e ║ ◥██◤ ◥██◤ █▌ ◥██◤███ ╱ ╰ ║ e
r 3╰═══════════ ◤════════════ Copy CCF ╯--
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 220.132.215.118
※ 文章网址: http://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1405954394.A.749.html