VB как правильно задать условие в запросе на выборку? - Microsoft Office Access

SvarogIS · 26.12.2015, 15:09

Добрый день!
Проблема следующая - формирую запрос (str) для CurrentDb.OpenRecordset(str). Запрос выбирает данные в зависимости от условия на значения текстового поля. Не получается передавать значение этого текстового поля в виде переменной.
Так работает:

Dim str As String
str = "SELECT Team.TeamID FROM Team WHERE Team.TeamName = 'название1' "
Поле1 = CurrentDb.OpenRecordset(str).Fields (0)

Надо чтобы условие отбора передавалось переменной (присваивается значение другого поля). Но если передаю переменной, выдает ошибку "Ошибка синтаксиса, (пропущен оператор) в выражении запроса 'Team.TeamName = название1' .
Так не работает:

Dim str As String
Dim str1 As String
str1 = Name (присваивается значение из поля Name, в данном случае значение "название1")
str= "SELECT Team.TeamID FROM Team WHERE Team.TeamName = "&str1
Поле1 = CurrentDb.OpenRecordset(str).Fields (0)

Переменной str1 значение присваивается корректно, т.е. если в Поле1 вывести, будет "название1" выводится.
В чем подвох? В синтаксисе? Как правильно написать подскажите пожалуйста.

Аватар · 26.12.2015, 15:30

Кавычки то все равно нужны

shanemac51 · 26.12.2015, 17:37

Код:

str= "SELECT Team.TeamID FROM Team WHERE Team.TeamName = '"&str1 & "'"

SvarogIS · 26.12.2015, 17:56

Спасибо за ответы, все получилось! Я не профессионал, поэтому иногда на элементарных вещах ошибаюсь

26.12.2015, 15:09	#1
SvarogIS Регистрация: 18.12.2015 Сообщений: 6	VB как правильно задать условие в запросе на выборку? Добрый день! Проблема следующая - формирую запрос (str) для CurrentDb.OpenRecordset(str). Запрос выбирает данные в зависимости от условия на значения текстового поля. Не получается передавать значение этого текстового поля в виде переменной. Так работает: Dim str As String str = "SELECT Team.TeamID FROM Team WHERE Team.TeamName = 'название1' " Поле1 = CurrentDb.OpenRecordset(str).Fields (0) Надо чтобы условие отбора передавалось переменной (присваивается значение другого поля). Но если передаю переменной, выдает ошибку "Ошибка синтаксиса, (пропущен оператор) в выражении запроса 'Team.TeamName = название1' . Так не работает: Dim str As String Dim str1 As String str1 = Name (присваивается значение из поля Name, в данном случае значение "название1") str= "SELECT Team.TeamID FROM Team WHERE Team.TeamName = "&str1 Поле1 = CurrentDb.OpenRecordset(str).Fields (0) Переменной str1 значение присваивается корректно, т.е. если в Поле1 вывести, будет "название1" выводится. В чем подвох? В синтаксисе? Как правильно написать подскажите пожалуйста.

26.12.2015, 15:30	#2
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	Кавычки то все равно нужны Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

26.12.2015, 17:37	#3
shanemac51 Участник клуба Регистрация: 12.08.2010 Сообщений: 1,077	Код: `str= "SELECT Team.TeamID FROM Team WHERE Team.TeamName = '"&str1 & "'"` Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни Сфера интересов--word-excel-access-распознавание

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Построить график любой функции+как задать условие	Kornegi	Общие вопросы Delphi	10	13.10.2014 14:52
как задать условие в Excel	Юлия21	Помощь студентам	2	26.04.2012 11:58
Как задать условие	DDiKey	Microsoft Office Excel	3	23.03.2012 01:52
как правильно прописать в запросе asd	ГОСЕАН	Помощь студентам	1	11.11.2011 11:25
Как правильно сделать выборку	Minotavr_x86	БД в Delphi	9	04.03.2009 19:56

26.12.2015, 17:56	#4
SvarogIS Регистрация: 18.12.2015 Сообщений: 6	Спасибо за ответы, все получилось! Я не профессионал, поэтому иногда на элементарных вещах ошибаюсь