ввод данных в БД

[kuzmich]

привет всем!
не могу сделать ввод данных в базу. написал код и дает мне ошибку на компонент query1, вот код:

form1.query2.Close;
form1.Query2.sql.Clear;
form1.Query2.sql.Add ('insert into sklad_tab1 (Sezon_goda, Nomer_model, Opisanie, Firma, Cena_zakup, Data_prih)');
form1.Query2.sql.Add ('values ("'+ComboBox1.text+ '", "'+edit1.text+ '","'+edit3.Text+ '","'+ComboBox2.Text+ '"," ' +edit2.Text+ '", "' +edit4.Text+ '")');
form1.Query2.ExecSql;

form1.query1.Close; //ошибка тут
form1.Query1.SQL.Clear;
form1.Query1.SQL.Add('select * from sklad_tab1');
form1.Query1.Open;

говорит об ошибке в базе. в чем причина? если другие компоненты с базой работают и все так же настроенно

[AlexMas]

Вместо двойных кавычек, юзайте 2 апострофа:

form1.Query2.sql.Add ('values ('''+ComboBox1.text+ ''', '''+edit1.text+ ''','''+edit3.Text+ ''','''+ComboBox2.Text+ ''','' ' +edit2.Text+ ''', ''' +edit4.Text+ ''')');

[kuzmich]

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

Вместо двойных кавычек, юзайте 2 апострофа:

form1.Query2.sql.Add ('values ('''+ComboBox1.text+ ''', '''+edit1.text+ ''','''+edit3.Text+ ''','''+ComboBox2.Text+ ''','' ' +edit2.Text+ ''', ''' +edit4.Text+ ''')');

раньше она с моим кодом открывалась, исправил и теперь вообще компиляция не идет! сразу на базу идет ошибка

[Лесной]

А что за ошибка? Попробуйте с помощью Query2.Params. Так понятнее получается. А вообще я не понимаю зачем куча апострофов. Попробуйте так.

form1.Query2.sql.Add('values ('+ComboBox1.text+ ', '+edit1.text+ ', '+edit3.Text+ ', '+ComboBox2.Text+ ', ' +edit2.Text+ ', ' +edit4.Text+ ')');

[kuzmich]

изменил код как мне и говорили. вот сам код:

form1.query2.Close;
form1.Query2.sql.Clear;
form1.Query2.sql.Add ('insert into sklad_tab1 (Sezon_goda, Nomer_model, Opisanie, Firma, Cena_zakup, Data_prih)');
form1.Query2.sql.Add ('values ('''+ComboBox1.text+ ''', '''+edit1.text+ ''','''+edit3.Text+ ''','''+ComboBox2.Text+ ''',''' +edit2.Text+ ''', ''' +edit4.Text+ ''')'); //изменения тута
form1.Query2.ExecSql;

form1.query1.Close;
form1.Query1.SQL.Clear;
form1.Query1.SQL.Add('select * from sklad_tab1');
form1.Query1.Open;

все равно выдает ошибку и вот сама ошибка:



подскажи те что небудь

[Лесной]

Это означает, что ты вставляешь запись,значение ключевого поля которой уже существует. Например, есть у тебя табличка id работника и фамилия работника, где Id работника -- ключевое поле. А ты вставляешь первую запись 1, Иванов, а вторую запись 1, Петров. Происходит ошибка. Если я все правильно помню))

[kuzmich]

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

[Лесной]

Это ошибка - нарушение ссылочной целостности.
Либо повторяется значение первичного ключа, либо попытка указать несуществующее значение для внешнего ключа. А что конкретно - это надо сомтреть конкретно код и базу.

[kuzmich]

вот сам проект: тут

[Прик]

Запрос работает без ошибки:

  form1.query2.Close;
  form1.Query2.sql.Text :=
      'insert into sklad_tab1 (Sezon_goda, Nomer_model, Opisanie, '+
      'Firma, Cena_zakup, Data_prih)'+
      'values ('+QuotedStr(ComboBox1.text)+ ','+edit1.text+','+QuotedStr(edit3.Text)+','+
                QuotedStr(ComboBox2.Text)+ ','+edit2.Text+',' +QuotedStr(edit4.Text)+ ')';
  form1.Query2.ExecSql;

Если ввести корректную дату в Edit4.

P.S. Когда выкладываете проект, желательно чтобы он был полный (в архиве нет sklad_tab2.db).