LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Использов...
 Тема: Использование параметров
 
 15.06.2007 21:03:14
RV
38 сообщения


Тема: Использование параметров
Доброго времени суток.
Есть запрос, в нем параметр.
Перед запуском запроса пишу..
=> CurrentDb.QueryDefs("Zapros1").Parameters!KOEF = 5
Потом при вызове запроса:
=> docmd.runsql ".... from Zapros1"
Все равно вылазит окно с запросом параметра "KOEF".
Как сделать так, чтоб окно не маячило?
Спасибо.


P.S. Общий раздел по запросам
Автор: RV от 14.10.2002 10:38:54 Источник ...
 15.06.2007 21:03:14
All
4316 сообщения
1-ый


RE: Использование параметров
Замый простой способ - это получить ссылку на текст SQL запроса, а потом его изменить и выполнить.
Например,
Set dbs = CurrentDb
strSQL = dbs.QueryDefs("Zapros1").SQL
strSQL = Replace(strSQL,"1","2")
dbs.execute strSQL


P.S. Общий раздел по запросам
Автор: Виктор Конюков от 0:00:00 Источник ...
 15.06.2007 21:03:14
RV
38 сообщения


RE: Использование параметров
Дак... так то сделать конечно самое простое (пока я так и делаю)...
Просто можно ли сделать как в Delphi (подготовка параметров и выполнение запроса)... оно так красивее намного.


P.S. Общий раздел по запросам
Автор: RV от 15.10.2002 14:40:11 Источник ...
 15.06.2007 21:03:14
RV
38 сообщения


RE: Использование параметров
Дак... так то сделать конечно самое простое (пока я так и делаю)...
Просто можно ли сделать как в Delphi (подготовка параметров и выполнение запроса)... оно так красивее намного.


P.S. Общий раздел по запросам
Автор: RV от 15.10.2002 14:44:30 Источник ...
 15.06.2007 21:03:14
All
4316 сообщения
1-ый


RE: Использование параметров
Пример запроса на удаление
'Имя запроса : "zDelFromTableName"
'SQL Запроса:
'PARAMETERS Param_id Long;
'DELETE TableName.*, TableName.id
'FROM TableName
'WHERE (((TableName.id)=[Param_id]));

Public Sub Test()
Dim q As QueryDef
Set q = CurrentDb.QueryDefs("zDelFromTableName")
q.Parameters("Param_id") = 5
q.Execute
MsgBox "Удалено записей:" & q.RecordsAffected
End Sub


P.S. Общий раздел по запросам
Автор: N_A от 0:00:00 Источник ...
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Использов...
ПоискПоиск  Список форумовСписок форумов  
right