Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Как запус...

Тема: Как запустить запрос с параметрами из модуля VBA

15.06.2007 21:03:31

Елена8

2 сообщения

Тема: Как запустить запрос с параметрами из модуля VBA

Фрагмент кода VBA

Dim dbs As Database
Dim qdfOtbor As QueryDef
Dim rstOtbor As Recordset
Set dbs = CurrentDb
'''''''
Set qdfOtbor = dbs.CreateQueryDef("", "PARAMETERS kod TEXT; " _
& "SELECT * FROM tblDogovori " _
& "WHERE (((tblDogovori.Kod_predpr) = [kod]))" _
& "ORDER BY tblDogovori.Dog_date;")
qdfOtbor.Parameters(0) = Kod_predpr 'Получен на предыдущем этапе
Set rstOtbor = qdfOtbor.OpenRecordset(dbOpenForwardOnly) 'Здесь выдается ошибка 13 "Type mismatch"

Посоветуйте, пожалуйста, как запустить этот запрос?

P.S. Общий раздел по запросам
Автор: Елена от 15.12.2002 9:51:39 Источник ...