VBA中对数据库的操作

VBA中对数据库操作使用ADODB对象，具体使用方法如下：

Dim cnCurrent As ADODB.Connection
Dim rcdTemp As ADODB.Recordset
Set cnCurrent = CurrentProject.Connection
Set rcdTemp = New ADODB.Recordset
querySql1 = ""
rcdTemp.Open querySql, cnCurrent, adOpenKeyset

If rcdTemp.RecordCount > 0 Then
   rcdTemp.MoveFirst
       Do While Not rcdTemp.EOF
           s=rcdTemp.Fields("PayAmount")
           rcdTemp.MoveNext 
       Loop
End If

Recordset的open方法用于打开返回的结果集。如果是进行的update、delete等操作不会返回结果集，则可以使用runsql方法，如下：

updateSql = ""
DoCmd.RunSQL updateSql

VBA中还提供了一种方法去取得数据库的值：DLookUp方法：

sss = DLookup("[sss]", "T_Table", "[a] = "123")