Sub AddQdfgT() Dim varConn$, varSQL$, wsh As Worksheet varConn = "ODBC;DSN=MS Access Database;DBQ=\\192.168.1.32\data\SDAT.mdb;Driver={Driver do Microsoft Access (*.mdb)}" varSQL = "SELECT SatAlici, SatNote, SatMalID FROM T_Satish WHERE (T_Satish.SatAlici = ?) " Set wsh = ActiveSheet With wsh .[F2].CurrentRegion.Delete xlUp With .QueryTables.Add(varConn, .[F2], varSQL).Parameters.Add("p1", 4) .SetParam 2, wsh.[A1] .RefreshOnChange = True .Parent.Parent.Refresh End With End With End Sub
[/vba]
Выводит список примерно такого содержания (скрин) Пытаюсь при помощи DISTINCT выбрать только уникальные значения по столбцу SatMalID Но увы (( Подскажите, пожалуйста, как сделать правильную выборку таблицы
Добрый день.
Есть таблица в Access , которая содержит примерно такие данные
Sub AddQdfgT() Dim varConn$, varSQL$, wsh As Worksheet varConn = "ODBC;DSN=MS Access Database;DBQ=\\192.168.1.32\data\SDAT.mdb;Driver={Driver do Microsoft Access (*.mdb)}" varSQL = "SELECT SatAlici, SatNote, SatMalID FROM T_Satish WHERE (T_Satish.SatAlici = ?) " Set wsh = ActiveSheet With wsh .[F2].CurrentRegion.Delete xlUp With .QueryTables.Add(varConn, .[F2], varSQL).Parameters.Add("p1", 4) .SetParam 2, wsh.[A1] .RefreshOnChange = True .Parent.Parent.Refresh End With End With End Sub
[/vba]
Выводит список примерно такого содержания (скрин) Пытаюсь при помощи DISTINCT выбрать только уникальные значения по столбцу SatMalID Но увы (( Подскажите, пожалуйста, как сделать правильную выборку таблицыStormy
"select t2.f1 as SatAlici, t2.f2 as SatNote, t2.SatMalID from (SELECT max(t1.SatAlici) as f1, max(t1.SatNote) as f2, t1.SatMalID FROM T_Satish t1 WHERE (t1.SatAlici = ?) group by t1.SatMalID) t2"
"select t2.f1 as SatAlici, t2.f2 as SatNote, t2.SatMalID from (SELECT max(t1.SatAlici) as f1, max(t1.SatNote) as f2, t1.SatMalID FROM T_Satish t1 WHERE (t1.SatAlici = ?) group by t1.SatMalID) t2"krosav4ig
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
