SQL + adodc + переменные

[Roland_]

Только не бейте сразу…

Работал с акцесом, с проблем никаких. Теперь столкнулся с SQL… Задача такая. Нужно пробежаться по базе, найти совпадения, и с этой строки в таблице всё передать в переменные…. Примерно так…

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

Dim phone As String
Dim name As String
Dim str As String
  str = 20000
Do While Adodc1.Recordset.EOF
        If  20000 = Adodc1.Recordset.Fields("phone") Then
            phone = Adodc1.Recordset.Fields("phone")
            name = Adodc1.Recordset.Fields("name")
        End if
Adodc1.Recordset.MoveNext
Loop

Ну, в обшем, как вы заметили, я пытаюсь работать с SQL как и с ACCESS… Если заменить SQL на ACCESS и Adodc1 на Data1 то всё работает…. А так выдаёт

Object variable or With block variable not set (Error 91)

Я знаю что есть такие прекрасные веши как SQL запрос и датагрилд, но мне нужно результат с нужной строки загнать в переменную….

Пример приведите... плииииззз

[Хакер] :: За неиспользование тега [code]...[/code] в следующий раз будет замечание.

[Хакер]

Object variable or With block variable not set (Error 91)

Где? Значит вернулся Nothing.

[Roland_]

Object variable or With block variable not set (Error 91)

Где? Значит вернулся Nothing.

Do While Adodc1.Recordset.EOF

[dr.MIG]

Значит в Recordset у тебя ничего нет. Покажи как ты его заполняешь.

Да и вообще, мне кажется не совсем оптимальным такой способ организации поиска по таблице .

[Roland_]

Значит в Recordset у тебя ничего нет. Покажи как ты его заполняешь.

Да и вообще, мне кажется не совсем оптимальным такой способ организации поиска по таблице .

А какой способ можешь предложить? Только, главное данные в переменную загнать…

[dr.MIG]

Про adodc у Alibeka хорошая статья была, только она где-то затерялась (а может просто на данный момент её уже нет в открытом доступе). По поводу поиска необходимых тебе данных см. в сторону ExecQuery ("Твой SQL запрос") и ещё в сторону Fields("поле").Find. Примеров по подключению к БД на форуме, кстати, тоже полно.

[Roland_]

Про adodc у Alibeka хорошая статья была, только она где-то затерялась (а может просто на данный момент её уже нет в открытом доступе). По поводу поиска необходимых тебе данных см. в сторону ExecQuery ("Твой SQL запрос") и ещё в сторону Fields("поле").Find. Примеров по подключению к БД на форуме, кстати, тоже полно.

Забыл в РекордСоурсе надобыло описать SELECT phone, name
FROM kontakts ....

Спасибо всем.

[SSecurity]

Можно так:

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

Dim RS as new Recordset
Dim SQL as string
SQL = "SELECT phone, name FROM kontakts"
Set RS =  Adodc1.Execute(SQL)


А вообще чтоб было быстрее можно просто в SQL-запросе требуемую операцию прописать ... в вашем случае -

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

SQL = "SELECT phone, name FROM kontakts WHERE phone=20000"

или

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

SQL = "SELECT phone, name FROM kontakts WHERE phone='20000'"

в зависимости от типа данных.

и вот ещё что ... может я ошибаюсь но вас должен ждать еррор ...
Если следовать вашей логике "Пока конец записей делать ЭТО", то наверно ЭТО мы делать будем, только тогда когда у нас записей нет ... что выдаст нам ошибку ... потому что MoveNext никуда дальше не приведет.

Мне кажется правильнее было бы использовать NOT после Do While

)

[Penumbra]

Do While Adodc1.Recordset.EOF

вообщето надобыло так

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

Adodc1.Recordset.MoveFirst
'сделай проверку
If Adodc1.Recordset.EOF = True Then бла бла
If Adodc1.Recordset.ВOF = True Then бла бла

'а потом
Do While Adodc1.Recordset.EOF = False
....
    Adodc1.Recordset.MoveNext
Loop

[Roland_]

Большое спасибо всем. Ваши советы мне очень помогли.