Запись строки и датой

[Ardarik]

DateSeparator := '-';
  ShortDateFormat := 'yyyy-mm-dd';
Edit1.Text:= DateToStr(Now);
...
procedure TForm3.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text := ('INSERT INTO invoice(`Поставщик`, `Дата`)  VALUES('+(IntToStr(ComboBox1.ItemIndex+1))+', '+Edit1.Text+');');
ADOQuery1.ExecSQL;
ShowMessage('Добавлено');
Form3.close;
end;

Вместо даты 0000-00-00 в базу записывается
Что не так?

[Stilet]

+QuotedStr(Edit1.Text)+

А вообще СУБД укажи. Все зависит от того с чем работаешь.

[Аватар]

Судя по обратным кавычкам MySQL. А почему бы дату параметризировано не загнать?

[Ardarik]

Верно MySQL.

А почему бы дату параметризировано не загнать?

Как?

[superedward]

ADOQuery1.Close;
ADOQuery1.SQL.Text := 'INSERT INTO invoice(`Поставщик`, `Дата`)  VALUES(:fProvider,:fDate)';
ADOQuery1.ParamByName('fProvider').AsInteger:=ComboBox1.ItemIndex+1;
ADOQuery1.ParamByName('fDate').AsDate:=StrToDate(Edit1.Text);
ADOQuery1.Prepare;
ADOQuery1.ExecSQL;

[Ardarik]

необъявленный идентификатор: 'ParamByName' пишет

[Аватар]

А мозгой чуть пошевелить? Используй
ADOQuery.Parameters.ParamByName('им я параметра').Value
Да и вообще на форуме наверно тысяч 10 тем по параметризированным запросам

[Ardarik]

ADOQuery1.Close;
ADOQuery1.SQL.Text := 'INSERT INTO invoice(`Поставщик`, `Дата`)  VALUES(:fProvider,:fDate)';
ADOQuery1.Parameters.ParamByName('fProvider').Value:=ComboBox1.ItemIndex+1;
ADOQuery1.Parameters.ParamByName('fDate').Value:=StrToDate(Edit1.Text);
//ADOQuery1.Parameters.Prepare;
ADOQuery1.ExecSQL;

На AsInteger, AsDate и Prepare, ругался. Дату пишет почему то 2024-04-20

[Ardarik]

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

[eval]

А как надо?