Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Создание запроса в Access с помощью VBA  [new]
Sanchez
Guest
Подскажите, как создается запрос в Access'e на VBA?
Где можно найти материалы по данной тематике?
24 окт 02, 14:36    [68473]     Ответить | Цитировать Сообщить модератору
 Re: Создание запроса в Access с помощью VBA  [new]
mahoune
Member

Откуда: Moscow
Сообщений: 5664
  ' Здесь практически все!'

Dim dbs As DAO.Database
' Подключаемся к текущей БД'
Set dbs = CurrentDb
Dim qdf As DAO.QueryDef
Dim rst As DAO.Recordset
Dim strSQL As String

' Создаем запрос с параметром'
strSQL = "PARAMETERS [CONTRACT_ID:] Integer; " & _
"SELECT * FROM CONTRACT WHERE CONTRACT_ID = [CONTRACT_ID:] ; "
Set qdf = dbs.CreateQueryDef(" ", strSQL)

' Задаем параметр'
qdf("CONTRACT_ID:") = CNTR_ID


' qdf.Execute (dbFailOnError) Используем когда надо выполнить UPDATE, INSERT или DELETE'

Set rst = qdf.OpenRecordset(dbOpenSnapshot)

' Переходим на первую запись'
rst.MoveFirst

' Проходим по всем строкам и выдаем значение поля CADDON_ID'
While Not rst.EOF
msgbox rst.Fields("CADDON_ID").value
rst.MoveNext
Wend
24 окт 02, 15:43    [68536]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить