Dim rs As Object Dim rs As Recordset
Dim int As Integer ' nonobject variable declaration Dim db As Database ' object variable declaration InputBox(prompt [, title] [, default])
On Error Resume Next
Sub example()
On Error GoTo ERR_EXAMPLE MsgBox rs.RecordCount
Exit Sub
ERR_EXAMPLE:
MsgBox Err.Description, vbCritical Resume Next
End Sub
Макрокоманда, метод или
объект
Макрокоманда runSQL
Макрокоманда OpenQuery
Метод Open Recordset (DAO)
Метод Open (DAO)
Метод Execute (DAO)
Метод Execute (ADO)
Методы запуска запросов
Объект |
Источник |
Пример |
запускает |
|
|
ся из |
|
|
DoCmd |
Строка SQL |
DoCmd.runSQL strSQL |
DoCmd |
Заготовленный |
DoCmd.OpenQuery |
|
запрос |
“qryTotals” |
Включение |
Строчка SQL или |
db. OpenRecordset strSQL |
или БД |
заготовленный |
|
|
запрос |
|
Включение |
Строка SQL, |
rs.Open “SELECT * FROM t” |
или |
заготовленный |
|
набор |
запрос или |
|
записей |
процедура |
|
Включение |
Строка SQL |
db.execute strSQL |
или БД |
|
|
Включение |
Строка SQL |
cnn.execute strSQL |
или |
|
|
команда |
|
|
QueryDef |
Включение |
Заготовленный |
db.QueryDefs ("qryTotals") |
(заготовленны |
или БД |
запрос |
|
й запрос DAO) |
|
|
|