Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11811
Последний выпуск: 19.06.2015

Помогите написать правильно SQL запрос

70K
14 февраля 2013 года
tatooine
14 / / 28.01.2012
Значит так, есть притивная БД сделанная в 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"


И вообще возможно ли это сделать?
309
14 февраля 2013 года
P*t*
474 / / 15.02.2007
 
Код:
USE YL;
SELECT Te FROM C_b WHERE Con='value';
А вот про VB не знаю ничего.
70K
18 февраля 2013 года
tatooine
14 / / 28.01.2012
Цитата: P*t*
 
Код:
USE YL;
SELECT Te FROM C_b WHERE Con='value';
А вот про VB не знаю ничего.



Такой запрос я сам могу построить. Вопрос был в другом - можно ли в VBA сделать SQL запрос, работающий при активации юзерформы и подставляющее возвраженное значение в комбобокс...

71K
22 июля 2014 года
Георгий Гегеля
6 / / 09.12.2012
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 :)

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог