добавление записи в БД

[kuzmich]

привет всем!
написал код для добавлении записей в БД и у меня выводит ошибку при компиляции. вот сам код.

 DataModule1.Query8.Close;
 DataModule1.Query8.SQL.Text:=
   'insert into sklad_obuv (id, sezon, nomer, '+
   'opisanie, firm, cena1, datapr)'+
   'values ('+quotedstr(edit1.Text)+', '+combobox1.text+', //ошибка тут
            '+quotedstr(edit3.text)+', '+edit4.text+', '+combobox2.text+',
            '+quotedstr(edit5.text)+', '+quotedstr(edit6.text)+')';
 datamodul1.query8.execsql;

 datamodul1.query1.close;
 datamodul1.query1.sql.clear;
 datamodul1.query1.sql.add('select * from sklad_obuv');
 datamodul1.query1.open;

может подскажите?

[Serge_Bliznykov]

в Паскаль/Delphi НЕЛЬЗЯ разрывать строковую константу (начало оставлять на одной строке кода, а окончание ПЕРЕНОСИТЬ!

пробуйте так:

 DataModule1.Query8.SQL.Text:=
   'insert into sklad_obuv (id, sezon, nomer, '+
   'opisanie, firm, cena1, datapr)'+
   'values ('+quotedstr(edit1.Text)+', '+combobox1.text+', '+
    quotedstr(edit3.text)+', '+edit4.text+', '+combobox2.text+', '+
    quotedstr(edit5.text)+', '+quotedstr(edit6.text)+')';
 datamodul1.query8.execsql;

[Stilet]

//ошибка тут

Не удивительно. Ковычка не закрыта:

 DataModule1.Query8.SQL.Text:=
   'insert into sklad_obuv (id, sezon, nomer, '+
   'opisanie, firm, cena1, datapr)'+
   'values ('+quotedstr(edit1.Text)+', '+combobox1.text+', '
               +quotedstr(edit3.text)+', '+edit4.text+', '+combobox2.text+','
               +quotedstr(edit5.text)+', '+quotedstr(edit6.text)+')';

Нельзя в Паскале строки разрывать в исходнике переносом строк.

Serge_Bliznykov

Ну вот ) Теперь ты обогнал. Мы квиты (прошу читать это слово не по Украински)

[kuzmich]

Сообщение от Stilet

Не удивительно. Ковычка не закрыта:

 DataModule1.Query8.SQL.Text:=
   'insert into sklad_obuv (id, sezon, nomer, '+
   'opisanie, firm, cena1, datapr)'+
   'values ('+quotedstr(edit1.Text)+', '+combobox1.text+', '
               +quotedstr(edit3.text)+', '+edit4.text+', '+combobox2.text+','
               +quotedstr(edit5.text)+', '+quotedstr(edit6.text)+')';

Нельзя в Паскале строки разрывать в исходнике переносом строк.

Ну вот ) Теперь ты обогнал. Мы квиты (прошу читать это слово не по Украински)

сделал как вы и говорили, спасибо - помогло! но теперь при добавление записи выдает ошибку на Query1 где прописана сама база!

 DataModule1.Query8.Close;
 DataModule1.Query8.SQL.Text:=
   'insert into sklad_obuv (id, sezon, nomer, '+
   'opisanie, firm, cena1, datapr)'+
   'values ('+quotedstr(edit1.Text)+', '+combobox1.text+', '
               +quotedstr(edit3.text)+', '+edit4.text+', '+combobox2.text+','
               +quotedstr(edit5.text)+', '+quotedstr(edit6.text)+')';
 datamodule1.query8.execsql;

 datamodule1.query1.close; //тут! на закрытие Query
 datamodule1.query1.sql.clear;
 datamodule1.query1.sql.add('select * from sklad_obuv');
 datamodule1.query1.open;

[0parol0lorap0]

Можешь выложить исходник ?

[kuzmich]

Сообщение от 0parol0lorap0

Можешь выложить исходник ?

исходник -> тут , вторая форма

[Serge_Bliznykov]

весьма и весьма странно!
насколько я вижу, query1 вообще никак не связано с query8!

Какая конкретно ошибка? (скриншот в студию!)

раз у меня нет разумных советов, то попробую помочь локализовать проблему..

1) попробуйте закрыть query1 ДО работы с Query8. Проверьте, повторяется ли ошибка.

если повторяется, то
2) закомментируйте ВЕСЬ код с Query8 (чтобы убедится, влият ли он на ошибку), запустите программу. Проверьте.

Если не удалось вылечить - пишите детали, будем совместными усилиями решать вашу проблему!



ps. когда я писал свой ответ, ещё не видел выложенный исходник... возможно, что по коду станет чуть понятнее, в чём трабл...

[Аватар]

//тут! на закрытие Query

Скорее всего тут

datamodule1.query8.execsql;

и дословно текст сообщения об ошибке. Вот например поле цена, почему значение для него закавычено, ткстовый тип что-ли?

[kuzmich]

Сообщение от Serge_Bliznykov

весьма и весьма странно!
насколько я вижу, query1 вообще никак не связано с query8!

Какая конкретно ошибка? (скриншот в студию!)

раз у меня нет разумных советов, то попробую помочь локализовать проблему..

1) попробуйте закрыть query1 ДО работы с Query8. Проверьте, повторяется ли ошибка.

если повторяется, то
2) закомментируйте ВЕСЬ код с Query8 (чтобы убедится, влият ли он на ошибку), запустите программу. Проверьте.

Если не удалось вылечить - пишите детали, будем совместными усилиями решать вашу проблему!



ps. когда я писал свой ответ, ещё не видел выложенный исходник... возможно, что по коду станет чуть понятнее, в чём трабл...

вот сама ошибка!
1) закрыл я Query1 до Query8 как вы и говорили - все равно таже ошибка.
2) закомментировал я весь код с Query8 и ошибки нет никакой.

Query8 - у меня используется для SQL запросов. Query8 используется в 4 - ой и в 5 - ой форме, и все работает!

по поводу даты - при создание таблицы я в datapr указал значение date. можете сами глянуть код на первой форме

[Аватар]

Ошибка не там, а в запросе на вставку. Смотрим структуру таблицы

    ADOQuery1id: TIntegerField;
    ADOQuery1sezon: TWideStringField;
    ADOQuery1nomer: TIntegerField;
    ADOQuery1opisanie: TWideStringField;
    ADOQuery1firm: TWideStringField;
    ADOQuery1cena1: TIntegerField;
    ADOQuery1datapr: TIntegerField;

И запрос на вставку. Какие кавычки для числовых полей id, nomer, cena1 и datapr? И наоборот - их отсутствие для строковых полей?