Параметрический запрос

[Чудик]

Делаю так:

Код: Выделить всё

    Public dbq As DAO.QueryDef
    Public rsq As DAO.Recordset
    Public sqSQL As String


Потом так:

Код: Выделить всё

            sqSQL = "SELECT * FROM Firms Where Group='" & dr & "' And Firm='" & frmSpecifications.MSHFlexGrid1.TextMatrix(frmSpecifications.MSHFlexGrid1.Row, 5) & "';"
Set rsq = dbq.OpenRecordset(sqSQL)


на последней приведенной строчке спатыкается и пишет 91 ошибку с описанием типа: переменная не объвлена.
Подскажите, где чужу?

[GSerg]

А ты внимательно прочитай описание ошибки 91.

[Чудик]

Вчитался (Object variable or With block variable not set), но не понял на что намек.
Не так, наверное, rsq объявил?

[GSerg]

dbq is nothing

[Чудик]

Код: Выделить всё

:wink: [b][i][u][quote][/quote][/u][/i][/b]

[Чудик]

Добавил

Код: Выделить всё

Set dbq=DAO.OpenDatabase(App.Path & "\xxx.mdb")

Выдается несоответствие типов (ошибка времени выполнения 13).
Немного запутался.....

[GSerg]

Потому что это таблица и база - разные вещи...

[Чудик]

Код: Выделить всё

set dbq=db.QueryDef("Firms")

Пишет, что элемент не обнаружен в данном семействе. Таблица Firms существует, база db открыта.

[GSerg]

TableDef?

[Чудик]

TableDefs.
Пишет, что неподходит тип.

[GSerg]

Короче...
Что ты пытаешься сделать?

[Чудик]

Пытаюсь построить параметрический запрос с параметрами Group (группа фирм) и Firm (наименование фирмы).
Пытаюсь из таблицы выбрать запись, где бы Group=x, а Firm=y.

[GSerg]

Когда-нибудь с базой работал?

[Чудик]

Работал, но без параметрических запросов. Решил попробовать ....

[GSerg]

Я просто к тому, что если человек путает понятия "таблица" и "база", а также переменные типа "таблица", "база" и "запрос", то, видимо, он не работал с базой...

Открою тебе страшную тайну...
То, что ты делаешь, не есть параметрический запрос.
Параметический запрос.

[Чудик]

Я уже подозревал, что здесь что-то не так!
Чего-то у меня никак с параметрическими запросами не идет.
Нельзя ли какой-нибудь практический пример привести, чисто для дураков?

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?p=102368#102368

[Чудик]

Код: Выделить всё

           MyFirm = frmSpecifications.MSHFlexGrid1.TextMatrix(1, 5)
            SearchParam = "PARAMETERS (MyFirm) TEXT; "

            dr = "Buyer"
            sqSQL = SearchParam & "SELECT * FROM Firms Where Group='" & dr & _
            "' And Firm =MyFirm;"
            Debug.Print sqSQL
            Set dbq = db.CreateQueryDef("Firms2", sqSQL)
            Set rsq = dbq.OpenRecordset(sqSQL)
            .Label4(1).Caption = frmSpecifications.MSHFlexGrid1.TextMatrix(1, 5) & vbCrLf & rsq!LawAddress
            rsq.Close


Выдает ошибку синтаксиса в запросе WHERE.

[GSerg]

Ещё бы.