楼主:
tsongs (......)
2014-07-22 08:27:01※ 引述《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