VPF::Фильтр данных из двух таблиц - Форум программистов

ArtNeoX

Дата 22.2.2006, 22:19 (ссылка)

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

Загрузка ...

Шустрый

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

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

База данных. DataGrid.
Реалицация фильтра.
В TextBox начинаем набирать фамилию все строчки таблицы начинающиеся не с введенной буквы скрываются.

Код


Private Sub optName_Click()
txtFilterName.Text = ""
txtFilterName.SetFocus
End Sub

Private Sub txtFilterName_Change()
If OptName.Value = False Then
   MsgBox "Выберите - Фильтр по фамилии", vbOKOnly + vbCritical, "Внимание"
  Exit Sub
Else
    Call fillgridOptName
End If
End Sub

Sub fillgridOptName()
If adoPrimaryRS.State = adStateOpen Then
adoPrimaryRS.Close
End If
sqlName = "SELECT S.*"
sqlName = sqlName + " FROM Таблица1 s"
sqlName = sqlName + " Where s.X04 like '" & txtFilterName.Text & "%' "
adoPrimaryRS.Open sqlName
adoPrimaryRS.Requery
End Sub

Поиск осуществляется в Таблица1
а если в DataGrid показаны данные из 2-х таблиц. (Таблица1, Таблица2)

Что нужно добавить в код что бы фильтр применялся к данным из двух таблиц.
пробовал вместо sqlName = sqlName + " FROM Таблица1 s" указать sqlName = sqlName + " FROM * s" - не действует.
sqlName = sqlName + " FROM Таблица1 s union all FROM Таблица2 s" то же не действует.

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