Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Не могу внести данные в таблицу. 
:(
    Опции темы
korob2001
Дата 28.5.2005, 04:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: нет
Всего: 61



Привет!!!
Вобщем есть такая таблица:
--Resize_Images_Alt_Text--
Мне нужно её заполнить, пишу такой запрос:
Код

    Dim sSQL As String
    Dim bolPayd As Boolean
    Dim bolTranss As Boolean

    sSQL = "INSERT INTO Besteling (MenuId, TableNum, JoinTime, Payd, ColThis, TranssControl)"
    sSQL = sSQL & " VALUES (" & idMenu & ", " & tabNum & ", '" & Now() & "', " & bolPayd & ", " & colPorciy & ", " & bolTranss & ")"
    
    Set rs = cn.Execute(sSQL)
    rs.Close

Получаю ошибку "Слишком мало параметров. Требуется 1."
В чём проблема???

Это сообщение отредактировал(а) korob2001 - 28.5.2005, 09:08


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
Gannibal
Дата 28.5.2005, 13:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17



Привет, попробуй указать другого провайдера если у тебя ODBC поменяй на Jet а в атрибутах Jet`а укажи dBase IV. (в раширеных атрибутах)


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
korob2001
Дата 28.5.2005, 13:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: нет
Всего: 61



Помоему у меня проблема с запросом, так как я таким образом прекрасно могу выбрать данные из базы. Просто я ещё практически не работас Microsoft Access. Или с запросом всё в порядке???

Зы: к БД подключаюсь так:
Код

strConnect = "Driver=Microsoft Access Driver (*.mdb);DBQ=" & App.Path & "\base\restorant.mdb"
Set cn = New ADODB.Connection
cn.Open strConnect

Через Microsoft ActiveX Data Object

Это сообщение отредактировал(а) korob2001 - 28.5.2005, 13:43


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
Gannibal
Дата 28.5.2005, 13:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17



Dim rs As New Recordset

если одна переменная
rs.Open "Имя запроса " + Переменная параметра, Коннекшен и т.д.

если несколько переменных
rs.Open "Имя запроса [Параметр1] = " + Переменная параметра1 + ", [Параметр2] = " + Переменная параметра2 ... , Коннекшен и т.д.

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

Это сообщение отредактировал(а) M.E.G.U.S - 28.5.2005, 13:58


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
korob2001
Дата 28.5.2005, 14:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: нет
Всего: 61



Сейчас поробую, но я почему-то думал, что квадратные скобки нужны тогда, когда название полей состоит из нескольких слов. У меня же названия полей состоят из одного слова.
Мне кажется, что я не правильно пытаюсь установить поля флажков. Вот напимер в моём случае, переменные:
Код

bolPayd = False
bolTranss = False

Т.е. мне нужно изначально установить эти флажки как выключены. Может для этого нужно передавать в запросе что-то другое, а не False, например: 0????

Это сообщение отредактировал(а) korob2001 - 28.5.2005, 17:11


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
Gannibal
Дата 28.5.2005, 14:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17



попробуй открыт Аццесс и там создай запрос и скопируй в ВБ себе smile должн в принципе без проблем работать

Это сообщение отредактировал(а) M.E.G.U.S - 28.5.2005, 14:28


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
Gannibal
Дата 28.5.2005, 15:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17



Цитата(korob2001 @ 28.5.2005, 13:13)
Т.е. мне нужно изначально установить эти флажки как выключены. Может для этого нужно передавать в запросе что-то другое, а не False, например: 0????


да кстати попробуй ноль и один употребить


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
Naghual
Дата 28.5.2005, 15:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49



На мой взгляд, булевы переменные тоже нужно брать в кавычки:
Код
sSQL = sSQL & " VALUES (" & idMenu & ", " & tabNum & ", '" & Now() & "', '" & bolPayd & "', " & colPorciy & ", '" & bolTranss & "')"



--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Gannibal
Дата 28.5.2005, 15:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17



Цитата(Naghual @ 28.5.2005, 14:30)
На мой взгляд, булевы переменные тоже нужно брать в кавычки:

всёравно туже самую ошибку кидает..

а вообще может проблема в передаче параметров для

bolPayd = False
bolTranss = False

как нековыряю... надо попробыват.


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
Naghual
Дата 28.5.2005, 15:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49



Так...
пардон, не то я чт-то написал

Это сообщение отредактировал(а) Naghual - 28.5.2005, 15:35


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
korob2001
Дата 28.5.2005, 16:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: нет
Всего: 61



Naghual - так получаю ошибку: несоответствие типов данных. smile


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
korob2001
Дата 28.5.2005, 21:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: нет
Всего: 61



Всё, разобрался. Проблема действительно была в том, что я пытался передать False в качестве ложного значения. С нулями и единицами вроде всё заработало. Правда там нашлись ошибки и в последующих запросах smile . Например: SELECT last_insert_id()


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0501 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.