Запуск Access QueryDefs из VBA в Word - PullRequest
Новая
       46

Запуск Access QueryDefs из VBA в Word

0 голосов
/ 14 февраля 2009

Я создаю параметризованные запросы в Access и хотел бы вызывать их из кода ADO в модуле VBA в Word. Однако я не уверен в синтаксисе для вызова параметризованных запросов. Не могу найти хорошую ссылку на код в Интернете.

Если у меня есть qryGetRecordByFirstLast, который принимает имя и фамилию как пармы, как мне кодировать это выполнение в ADO из модуля VBA?

1 Ответ

1 голос
/ 15 февраля 2009

Вот несколько заметок 

'Set up a command object '
Set cmd = CreateObject ("ADODB.Command")
cmd.CommandType = 4 'adCmdStoredProc '
cmd.CommandText = "qryGetRecordByFirstLast"

'adVarWChar = 202'
'adParamInput=1'
set par=cmd.CreateParameter ("Firstname",202,1,1,strFirstname)
cmd.Parameters.Append par

set par=cmd.CreateParameter ("Lastname",202,1,1,strLastname)
cmd.Parameters.Append par

dbfile="C:\Docs\LTD.mdb")
Set objConn=CreateObject("ADODB.Connection")

cmd.ActiveConnection = objConn

Set rs = CreateObject ("ADODB.Recordset")
rs.Open cmd, , 0, 1 'adOpenForwardOnly, adLockReadOnly'

blnFound = False

If Not rs.EOF Then
    astrRecord = rs.GetRows()
    intRecFirst  = LBound(astrRecord , 2)
    intRecLast   = UBound(astrRecord , 2)

    blnFound = True
End If
...