Помогите написать правильно SQL запрос
Значит так, есть притивная БД сделанная в Excel, для удобства заполнения основной таблицы сделанны юзерформы. При активации юзерформы, она берет из другой таблицы(с другого листа) нужные данные и вставляет в комбобокс:
ComboBox3.Value = Baze.Range("A2:D20000").Find(Cells(ActiveCell.Row, 1)).Cells(1, 4).Value
Так вот, записей во второй вспомогательной таблицы уже больше 10К. Так вот я подумал что бы перенести эту вспомогательную таблицу на SQL сервер и при активации юзерформы, она подключалась к SQL серверу и брала нужные данные оттуда и вставляля в комбобокс.
Подключать книгу к SQL серверу я научился, но правильно составить SQL запрос не получается.
База данных обозвана - "YL"
Таблица - "C_b"
Поиск нужной записи по столбцу - "Con"
В комбобокс нужно вставить данные из столбца - "Te"
И вообще возможно ли это сделать?
ComboBox3.Value = Baze.Range("A2:D20000").Find(Cells(ActiveCell.Row, 1)).Cells(1, 4).Value
Так вот, записей во второй вспомогательной таблицы уже больше 10К. Так вот я подумал что бы перенести эту вспомогательную таблицу на SQL сервер и при активации юзерформы, она подключалась к SQL серверу и брала нужные данные оттуда и вставляля в комбобокс.
Подключать книгу к SQL серверу я научился, но правильно составить SQL запрос не получается.
База данных обозвана - "YL"
Таблица - "C_b"
Поиск нужной записи по столбцу - "Con"
В комбобокс нужно вставить данные из столбца - "Te"
И вообще возможно ли это сделать?
Код:
USE YL;
SELECT Te FROM C_b WHERE Con='value';
SELECT Te FROM C_b WHERE Con='value';
Цитата: P*t*
Код:
USE YL;
SELECT Te FROM C_b WHERE Con='value';
SELECT Te FROM C_b WHERE Con='value';
Такой запрос я сам могу построить. Вопрос был в другом - можно ли в VBA сделать SQL запрос, работающий при активации юзерформы и подставляющее возвраженное значение в комбобокс...
Function Место_Работы()
Dim Mrst As DAO.Recordset
Dim strRst As String
strRst = ""
Set Mrst = New DAO.Recordset
Mrst.Open "select ИмяТаблицы.Место_Работы from ИмяТаблицы Where отбор=True", CurrentProject.Connection
' здесь приводится запрос на выборку строк из таблицы в к-рой нах-ся Место_Работы с условием "галочка отбор включена".
' эту строку по своему поменять
While Not Mrst.EOF
strRst = Mrst.Fields("Место_Работы") & ", " & strRst
Mrst.MoveNext
Wend
Mrst.Close
Место_Работы=strRst
end Function
(с) CyberForum :)
Dim Mrst As DAO.Recordset
Dim strRst As String
strRst = ""
Set Mrst = New DAO.Recordset
Mrst.Open "select ИмяТаблицы.Место_Работы from ИмяТаблицы Where отбор=True", CurrentProject.Connection
' здесь приводится запрос на выборку строк из таблицы в к-рой нах-ся Место_Работы с условием "галочка отбор включена".
' эту строку по своему поменять
While Not Mrst.EOF
strRst = Mrst.Fields("Место_Работы") & ", " & strRst
Mrst.MoveNext
Wend
Mrst.Close
Место_Работы=strRst
end Function
(с) CyberForum :)