Фильтр (почему то не хочет работать)

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
beat_swamp
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 107
Зарегистрирован: 05.10.2005 (Ср) 16:16

Фильтр (почему то не хочет работать)

Сообщение beat_swamp » 05.10.2005 (Ср) 16:37

Код: Выделить всё
Private Sub edtQFilter_Change()
On Error GoTo LocalError:
   
    Dim strQFilterAuto As String
    If edtQFilter.Text = "" Then
        DataCars.RecordSource = "SELECT * FROM Autos ORDER BY AutoNumber.Name "
    Else
        strQFilterAuto = _
            " AutoName.Name LIKE '" & edtQFilter.Text & "%' OR" & _
            " AutoNumber.Name LIKE '" & edtQFilter.Text & "%' OR" & _
            " AutoModel.Name LIKE '" & edtQFilter.Text & "%' OR" & _
            " AutoColor.Name LIKE '" & edtQFilter.Text & "%' OR" & _
            " AutoCategory.Name   LIKE '" & edtQFilter.Text & "%'"
        DataCars.RecordSource = "SELECT * FROM Autos WHERE " & strQFilterAuto & _
         " ORDER BY AutoNumber.Name "
    End If
    DBGridAuto.Refresh
    Exit Sub
LocalError:
  MsgBox MSG_ERR & Err.Number & MSG_SEP & Err.Description, vbCritical + vbOKOnly, APP_NAME
End Sub


edtQFilter - поле для ввода строки для фильтрации
DataCars - объект класса Adodc
DBGridAuto - объект класса TDBGrid

Ошибку програма не выдает, но и не делает то что надо1 подскажите, где косяк?

Ennor
Конструктивный критик
Конструктивный критик
 
Сообщения: 2504
Зарегистрирован: 18.12.2001 (Вт) 3:58
Откуда: Калуга -> Москва

Сообщение Ennor » 05.10.2005 (Ср) 17:31

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

Может, заменить это на:
Код: Выделить всё
DataCars.Refresh
?

beat_swamp
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 107
Зарегистрирован: 05.10.2005 (Ср) 16:16

Сообщение beat_swamp » 05.10.2005 (Ср) 19:24

тогда кучу ошибок выдает1 типа неправильный параметр и тд1

Алексей К.
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 419
Зарегистрирован: 12.05.2004 (Ср) 9:41
Откуда: Ульяновск

Сообщение Алексей К. » 06.10.2005 (Чт) 7:09

В инструкции Like попробуй заменить % на *

Konst_One
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
Аватара пользователя
 
Сообщения: 3041
Зарегистрирован: 09.04.2004 (Пт) 13:47
Откуда: Химки

Сообщение Konst_One » 06.10.2005 (Чт) 12:13

А где у тебя следующие таблицы в твоем запросе:
AutoName, AutoNumber, AutoModel, AutoColor, AutoCategory :?: :?:

У тебя только одна таблица во FROM есть Autos :!: :!: :!:
:shock:

beat_swamp
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 107
Зарегистрирован: 05.10.2005 (Ср) 16:16

Сообщение beat_swamp » 06.10.2005 (Чт) 16:21

вобщем вопрос отпал1 спасибо всем1

там большая база данных1 много много таблиц1 ;)


Вернуться в Базы данных

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

    TopList