作者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/cn.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