Помогите, не могу найти ошибку в 2 строчках

@adyubkin · Регистрация: 04.05.2011

Author24 — интернет-сервис помощи студентам

Вот такой код выполняю:
Dim IntCod As Integer
Dim org As Recordset
IntCod = 2
Set org = CurrentDb.OpenRecordset('select NAMEORGS from postpotr where CODEORGS = IntCod ')
Пишет что слишком мало параметров, надо 1
Причем код:
Set org = CurrentDb.OpenRecordset('select NAMEORGS from postpotr where CODEORGS =2')-выполняется без проблем!
Наверное что то в синтаксе, кто знает, помогите,pls

@VadimY · 16.05.2011, 18:29

Set org = CurrentDb.OpenRecordset('select NAMEORGS from postpotr where CODEORGS = '' & IntCod & ''')

17.05.2011, 00:32

вот это интересно... у меня он потребовал, чтоб в место кавычек ' апострофи ' ставил... Я однажды брал работу по базам данных на акцесе и после этого всегда отказиваюс - не желаю отвечать, если вдруг данные и базы пропадают. Будте осторожны если дело бухгалтерии касаетса!

@Deminik · 17.05.2011, 06:44

Здесь, по идее, вообще должно быть:

Set org = CurrentDb.OpenRecordset('select NAMEORGS from postpotr where CODEORGS = ' & IntCod)

...ведь CodeOrgs и IntCod - Integer...

@adyubkin 0 / 0 / 0 Регистрация: 04.05.2011 Сообщений: 37
		1
	Помогите, не могу найти ошибку в 2 строчках 16.05.2011, 16:48. Показов 724. Ответов 3 Метки нет (Все метки) Вот такой код выполняю: Dim IntCod As Integer Dim org As Recordset IntCod = 2 Set org = CurrentDb.OpenRecordset('select NAMEORGS from postpotr where CODEORGS = IntCod ') Пишет что слишком мало параметров, надо 1 Причем код: Set org = CurrentDb.OpenRecordset('select NAMEORGS from postpotr where CODEORGS =2')-выполняется без проблем! Наверное что то в синтаксе, кто знает, помогите,pls 0

@VadimY 0 / 0 / 0 Регистрация: 19.12.2010 Сообщений: 11
	16.05.2011, 18:29	2
	Set org = CurrentDb.OpenRecordset('select NAMEORGS from postpotr where CODEORGS = '' & IntCod & ''') 0

vilks232
	17.05.2011, 00:32	3
	вот это интересно... у меня он потребовал, чтоб в место кавычек ' апострофи ' ставил... Я однажды брал работу по базам данных на акцесе и после этого всегда отказиваюс - не желаю отвечать, если вдруг данные и базы пропадают. Будте осторожны если дело бухгалтерии касаетса!

@Deminik 4 / 4 / 0 Регистрация: 15.09.2010 Сообщений: 228
	17.05.2011, 06:44	4
	Здесь, по идее, вообще должно быть: Set org = CurrentDb.OpenRecordset('select NAMEORGS from postpotr where CODEORGS = ' & IntCod) ...ведь CodeOrgs и IntCod - Integer... 0

Опции темы