VPF::Sql запрос в Аccess'e - Форум программистов

wolfmessing

Дата 4.7.2007, 12:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 61
Регистрация: 24.4.2007

Репутация: нет
Всего: 1

Есть таблица и есть форма, котокая вывовит эту таблицу. 5 колонок ("ид", от "марка1" до "марка4")

Я хотел сделать на форме фильтр по маркам. Начал писать по корявому примеру, начал попросту переделывать код, но что то так ни чего не получилось

Код


        Option Compare Database
Dim mark1, mark2, mark3, mark4

Private Sub SetFilter()
Марочник.Form.RecordSource = "SELECT * FROM Марочник"
If (id = "") Then
     id = "*"
   End If
Rs = "SELECT * FROM Марочник WHERE((марка1 LIKE '*" + mark1 + "*') and (марка2 LIKE '*" + mark2 + "*') and (марка3 LIKE '*" + mark3 + "*') and (марка4 LIKE '*" + mark4 + "*'));"
Марочник.Form.RecordSource = Rs
End Sub

Private Sub марка1_Change()
    mark1 = Trim(марка1.Text)
    SetFilter
End Sub

Private Sub марка2_Change()
    mark2 = Trim(марка2.Text)
    SetFilter
End Sub

Private Sub марка3_Change()
    mark3 = Trim(марка3.Text)
    SetFilter
End Sub

Private Sub марка4_Change()
    mark2 = Trim(марка4.Text)
    SetFilter
End Sub

Private Sub Кнопка1_Click()
Марочник.Form.RecordSource = "SELECT * FROM Марочник"
End Sub

Буду заранее благодарен

Rodman

Дата 4.7.2007, 12:28 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: нет
Всего: 122

Код


Rs = "SELECT * FROM Марочник WHERE((марка1 LIKE '*" & mark1 & "*') and (марка2 LIKE '*" & mark2 & "*') and (марка3 LIKE '*" & mark3 & "*') and (марка4 LIKE '*" & mark4 & "*'));"

2
ты уверен что mark1, mark2, mark3, mark4 задаются правильно и все?
3
и вот подключения к базе не вижу...

а ошибки какие нить есть?

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

wolfmessing

Дата 4.7.2007, 13:07 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 61
Регистрация: 24.4.2007

Репутация: нет
Всего: 1

Цитата

2
ты уверен что mark1, mark2, mark3, mark4 задаются правильно и все?
3
и вот подключения к базе не вижу...

а ошибки какие нить есть?

Спосибо, конешно, за указание на ошибки!
Я, на самом деле, думал, что напишу по работающему примеру(только код переделаю), он всё как то не особо вышло.
Я лучше на рнр&MySql это зделаю (их я на много лучше знаю).
Мдя, от VB мозги кипят, ето задание два дня делаю уже smile

ЖЕСТЬ

Rodman

Дата 4.7.2007, 13:35 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: нет
Всего: 122

посмотри в раздел Access, там есть примеры работы с базой в VBA!!!

там не учень сложно!

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »