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")