| |
 13 Кб. |
|
| | Всех приветствую !
Что-то я уперся :(
В аксесовской БД хранится запрос с параметрами (см. картинку 1).
Как его открыть через ADO, передав ему значения параметров, которые он запрашивает (см. картинку 2) | |
| |
| |
| |
4 Кб. |
|
| | вот вторая картинка | |
| |
| |
| |
|
|
| | Может так как-то (с правками по местным условиям, конечно):
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset
Set cmd.ActiveConnection = _
CurrentProject.Connection
cmd.CommandText = "qdf1"
Set rst = cmd.Execute(, Array(4, "ff"), adCmdStoredProc) 'Здесь 4 и ff -значения параметров
....
|
| |
| |
| |
| |
|
|
| | С датами так работает:
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset
Dim Arr(1) As Variant
Arr(0) = Date
Arr(1) = Date
Set cmd.ActiveConnection = _
CurrentProject.Connection
cmd.CommandText = "qdf1"
Set rst = cmd.Execute(, Arr, adCmdStoredProc)
...
|
 | |
| |
| |
| |
|
|
| | Все работает !
Премного благодарен !
 | |
| |
| |
