Есть ли такой 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.2 из 5
Похожие ответы