Еще раз о фильтрации в базах данных

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
Milevskiy
Новичок
Новичок
 
Сообщения: 43
Зарегистрирован: 05.11.2002 (Вт) 19:56
Откуда: Russia

Еще раз о фильтрации в базах данных

Сообщение Milevskiy » 04.07.2005 (Пн) 22:29

Всем Здрасьте!
Чур ногами не пинать! :roll: Не смотря на то, что на форуме этот вопрос уже обсуждался, я все же осмелюсь поднять его еще раз, по скольку так и не смог добиться работоспособности представленных исходников.
:cry:
А вопрос мой будет о фильтрации данных, получаемых из базы данных. Как же все-таки отфильтровать записи? Расскажите пожалуйста по возможности более детально как это делается.

Вкраце о том, чего я хочу добиться:
Есть база данных MS Acsess, подключенная к проекту через DataEnvironment. Данные должны передаваться из DataEnvironment в DataReport, но выводиться должны лишь те записи, которые удовлетворяют фильтру.

А сейчас у меня в отчет выводится вся база, что очень не удобно :oops:

Попогите пожалуйста! Заранее благодарен.

MeMBus
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 450
Зарегистрирован: 23.02.2005 (Ср) 7:03
Откуда: Из леса...

Сообщение MeMBus » 05.07.2005 (Вт) 4:05

Как самый легкий вариант создание «копии» базы только с нужными тебе данными...
Потруднее можно делать выборку и работать с данной выборкой...
Бороться и искать, найти и перепрятать!

MeMBus
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 450
Зарегистрирован: 23.02.2005 (Ср) 7:03
Откуда: Из леса...

Сообщение MeMBus » 05.07.2005 (Вт) 4:09

Выборка определенных значений в б.д. и вывод этих значений в отчет:
Код: Выделить всё
        ' Open a connection.
        mConServV.Open , RegNULogSQL, RegNUPasSQL
        ' Open the Recordset.
        Set mRecSetV = mConServV.Execute("SELECT * FROM " & RegDNameTB & " WHERE " & _
            "onFaml LIKE '" & RegUFaml & "' AND " & _
            "onName LIKE '" & RegUName & "' AND " & _
            "onOtch LIKE '" & RegUOtch & "' AND " & _
            "onGod LIKE '" & RegUGods & "'", , adCmdText)
        ' Connect the Recordset to the DataReport.
        Set repUserP.DataSource = mRecSetV
        repUserP.WindowState = vbMaximized
        repUserP.Show vbModal
        ' Close conection
        mConServV.Close
        mRecSetV.Close
        DoEvents
Бороться и искать, найти и перепрятать!

Milevskiy
Новичок
Новичок
 
Сообщения: 43
Зарегистрирован: 05.11.2002 (Вт) 19:56
Откуда: Russia

Сообщение Milevskiy » 05.07.2005 (Вт) 22:19

Благодарю! Обязательно попробую. :)


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

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

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

    TopList  
cron