Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / использование select в vba / 6 сообщений из 6, страница 1 из 1
08.12.2004, 19:56:13
    #32819568
nalbat
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
использование select в vba
Такая проблема:
необходимо "вытащить" значения двух полей из таблицы по признаку равенства одного из полей(Trunk текстовое) значению переменной (TrunkIn текстовая). На команду Set rsts = CurrentDb.OpenRecordset("SELECT idSrcType, idClient FROM tTrunks WHERE Trunk = TrunkIn ") выдается ошибка "Слишком мало параметров.Требуется1"
К слову такие команды проходят нормально
S = "Trunk= " & "'" & TrunkIn & "'"
idSrcType = DLookup("idSrcType", "tTrunks", S)
Пробовал
S="'" & TrunkIn & "'"
Set rsts = CurrentDb.OpenRecordset("SELECT idSrcType, idClient FROM tTrunks WHERE Trunk = S") - тот же результат.
Кто может - поможите...
...
Рейтинг: 0 / 0
08.12.2004, 20:07:04
    #32819581
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
использование select в vba
текстовая константа - надо окружить кавычками (одиночными)
& "'" & ... & ''"
select * from T1 where Id_Text='ляляля' выльется в
"select * from T1 Where Id_text=" & "'" & контрол & "'"
...
Рейтинг: 0 / 0
08.12.2004, 20:11:35
    #32819584
nalbat
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
использование select в vba
Set rsts = CurrentDb.OpenRecordset("SELECT idSrcType, idClient FROM tTrunks WHERE Trunk ="&"'"&TrunkIn&"'" ") - такая строчка не компилится из-за двойных кавычек после WHERE Trunk ="
Я пробовал избежать,как я написал таким образом
S="'" & TrunkIn & "'"
Set rsts = CurrentDb.OpenRecordset("SELECT idSrcType, idClient FROM tTrunks WHERE Trunk = S") - тот же результат.
...
Рейтинг: 0 / 0
08.12.2004, 20:24:30
    #32819598
nalbat
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
использование select в vba
хотя так
Set rsts = CurrentDb.OpenRecordset("SELECT * FROM tTrunks WHERE Trunk = 'блаблабла' ") он ,безусловно, понимает :(
...
Рейтинг: 0 / 0
09.12.2004, 09:54:57
    #32819945
remblyn2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
использование select в vba
автор
Set rsts = CurrentDb.OpenRecordset("SELECT idSrcType, idClient FROM tTrunks WHERE Trunk = TrunkIn ")

а не пробовал вот так:
Код: plaintext
1.
2.
S="SELECT idSrcType, idClient FROM tTrunks WHERE Trunk = " + "'" + TrunkIn + "'""
Set rsts = CurrentDb.OpenRecordset(S) 
...
Рейтинг: 0 / 0
09.12.2004, 10:57:47
    #32820107
nalbat
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
использование select в vba
Спасибо! так пошло, только кавычка последняя лишняя :)
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / использование select в vba / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]