Есть ли такой Recordset?(Фильтрованный...) - VB
Формулировка задачи:
Что сейчас имею...
Dim obj_ra as String'Table
Dim obj_filter as String
obj_filter = '123'
'В базе есть записи : 123,1234,1235,123,1234,123455 и пр.
Dat2.RecordSource = 'Select * From Basa where [' & obj_ra & '] like '' & obj_filter & '*'
Dat2.Refresh
'Видим в Grid 123,1234,1235,123,1234,123455
Имеет в Grid все записи которые начинаются с '123',вопрос как сделать так,что бы
в Recordset не попали одинаковые значения в данном Table.
Нужно - 123,1234,1235,123455. 123,1234 - Повторились их в Recordset не добавляем.
Возможен вариант, если такое возможно, после выборки исключить повторения.
Но это не значит,что их надо удалить.
В результате делаю поле с быстрым заполнением, как в Explorer.
Может кто понял? спасибо ВАМ!!!
Решение задачи: «Есть ли такой Recordset?(Фильтрованный...)»
textual
Листинг программы
Private Sub Command2_Click() Dim m As String m = '[Номер заказа]' 'Выборка в table-Basa всех разных значений Dat2.RecordSource = 'Select DISTINCT ' & m & ' From Basa' Dat2.Refresh 'Выборка в Basa table который соответствует m Dat2.RecordSource = 'Select DISTINCTROW ' & m & ' From Basa' Dat2.Refresh 'Посмотрел я это в MSDN,но соединить неполучилось... Подскажите как эти два запроса объядинить и будет сказка!!! End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д