Поставил SP5 на VB 6.0 и SQL запросы перестали работать!

27.10.2009, 06:17. **Показов** 1485. **Ответов** 7

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

Прошу Вас, пожалуйста помогите разобраться с такой проблемой

Имея проект на VB6.0, поставил SP5 с Microsoft.com
До этого все SQL запросы работали нормально, после установки выполняются только запросы плана
'SELECT * FROM tableName'

Вот кусок кода

Visual Basic
1
2
3
4
5
6
7
Dim rs as New ADODB.recordset
Dim cnSprav as New ADODB.connection
 
cnSprav.CursorLocation = adUseClient
cs = 'Provider=MSDASQL.1;Persist Security Info=False;Data Source=dBASE Files;Initial Catalog=' & str
cnSprav.Open cs
Set rs = cnSprav.Execute('select Kod as Код, NM as Наименование from punkt')

При выполнении запроса выдает:
[-2147217904] [Microsoft][Драйвер ODBC dBase] Слишком мало параметров.Требуется 1.

подозреваю, что не распознаются русские символы. Что случилось? Помогите.

27.10.2009, 12:33

А не пробовал имена русских полей заключить в квадратные скобки?

@ANG1 · 09.11.2009, 17:09

Наблюдаю такую же лобуду ;(
Но вот случайно натолкнулся на такую ...
В общем если на форме временно установить подключение к базе *.mdb (с соответствующими контролами) , выполнить, а потом не закрывая vb перенастроить подключение к нужным dbf - то как ни странно все запросы выполняются без ошибок. Если сохранить проект и закрыть vb и открыть снова - то снова ошибка про нехватку параметров

)

Я так понимаю проблема в драйверах ODBC конкретной версии.
Скорее всего нужно обновление ???

С уважением, Alex.

@VbGuest · 09.11.2009, 19:11

А может так:
select Kod as 'Код', NM as 'Наименование' from punkt

@ANG1 · 10.11.2009, 09:47

Работает Select * From Table;
Не работает когда указываешь Select * From Table WHERE Field='lobuda'

@Shkurenko Alexander · 10.11.2009, 14:30

Скорее всего Table и Field - служебны слова для Jet'a. Для того чтобы их использовать необходимо их заключить в квадратные скобки. Например
SELECT * FROM [Table] WHERE ([Field]='lobuda')

@ANG1 · 10.11.2009, 16:56

Да нет, Table и Field я привел для примера.
На самом деле название таблицы и поля не являются зарезервированными.
т.е. на самом деле строка Select * from t8 where r461='00000000361'

@ANG1 · 16.11.2009, 16:45

Работает, если провайдера указать не ODBC а Jet.
А в расширенных атрибутах Jet`а указать dBase IV.

Новые блоги и статьи Все статьи Все блоги /
1С: Программный отбор элементов справочника Номенклатура по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника Сотрудники по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .

Comanche
	27.10.2009, 12:33
	А не пробовал имена русских полей заключить в квадратные скобки?

@ANG1 0 / 0 / 0 Регистрация: 09.11.2009 Сообщений: 4
	09.11.2009, 17:09
	Наблюдаю такую же лобуду ;( Но вот случайно натолкнулся на такую ... В общем если на форме временно установить подключение к базе *.mdb (с соответствующими контролами) , выполнить, а потом не закрывая vb перенастроить подключение к нужным dbf - то как ни странно все запросы выполняются без ошибок. Если сохранить проект и закрыть vb и открыть снова - то снова ошибка про нехватку параметров ) Я так понимаю проблема в драйверах ODBC конкретной версии. Скорее всего нужно обновление ??? С уважением, Alex. 0

@VbGuest 98 / 1 / 1 Регистрация: 28.01.2007 Сообщений: 53
	09.11.2009, 19:11
	А может так: select Kod as 'Код', NM as 'Наименование' from punkt 0

@ANG1 0 / 0 / 0 Регистрация: 09.11.2009 Сообщений: 4
	10.11.2009, 09:47
	Работает Select * From Table; Не работает когда указываешь Select * From Table WHERE Field='lobuda' 0

@Shkurenko Alexander 0 / 0 / 0 Регистрация: 10.11.2009 Сообщений: 18
	10.11.2009, 14:30
	Скорее всего Table и Field - служебны слова для Jet'a. Для того чтобы их использовать необходимо их заключить в квадратные скобки. Например SELECT * FROM [Table] WHERE ([Field]='lobuda') 0

@ANG1 0 / 0 / 0 Регистрация: 09.11.2009 Сообщений: 4
	10.11.2009, 16:56
	Да нет, Table и Field я привел для примера. На самом деле название таблицы и поля не являются зарезервированными. т.е. на самом деле строка Select * from t8 where r461='00000000361' 0

@ANG1 0 / 0 / 0 Регистрация: 09.11.2009 Сообщений: 4
	16.11.2009, 16:45
	Работает, если провайдера указать не ODBC а Jet. А в расширенных атрибутах Jet`а указать dBase IV. 0