DateTimePicker в SQL запросе

[doldb]

Всем добрый день! Помогите пожалуйста новичку разобраться в данном трабле D )
Вообщем не могу не как засунуть данные из DateTimePicker в таблицу выдает всегда ошибку "Invalid use of keyword. Token: .2011") Line Number: 3."
Гуглил, гуглил не чего не нашёл. (

Вот код:

begin
Query1.Active:=false;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('INSERT INTO doldb');
Query1.SQL.Add('(Fio, Adr, Tel, Date_a)');
Query1.SQL.Add('VALUES("'+Edit1.Text +'", "'+Edit2.Text+'", "'+Edit3.Text+'", '+DateToStr(form2.DateTimePicker2.Date)+')');
Query1.ExecSQL;
Query1.SQL.Text:='SELECT*FROM doldb';
Query1.Open;
end;

Поле Date_a имеет тип Date


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

1) переношу тему туда, где ей и место - "БД в Delphi"

2) используйте параметрический запрос.
Примеров на форуме - валом!

[doldb]

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

1) переношу тему туда, где ей и место - "БД в Delphi"

2) используйте параметрический запрос.
Примеров на форуме - валом!

Если возможно, ткните пожалуйста носом спасибо!

[doldb]

Вот это параметрический запрос?

begin
Query1.Active:=false;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Text:='INSERT INTO doldb (Fio, Adr, Tel, Date_a) VALUES ("'+edit1.Text+'", "'+edit2.Text+'", "'+edit3.Text+'", )';
Query1.ParamByName(data_a).Value:=DateTimePicker2.Date;
Query1.ExecSQL;
end;

А как быть с DateTimePicker в конце sql запрса? Чет не могу догнать.

[Serge_Bliznykov]

посмотрите вот по этим ссылкам:
http://www.programmersforum.ru/showp...83&postcount=3

http://www.programmersforum.ru/showp...98&postcount=3

http://www.programmersforum.ru/showthread.php?t=124533

параметры в запросе в Delphi обозначаются двоеточием.

В вашем случае будет примерно так:

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('INSERT INTO doldb');
Query1.SQL.Add('(Fio, Adr, Tel, Date_a)');
Query1.SQL.Add('VALUES( :pFio, :pAdr, :pTelephon, :pDate )');
Query1.Parameters.ParamByName('pFio').Value := Edit1.Text;
Query1.Parameters.ParamByName('pAdr').Value := Edit2.Text;
Query1.Parameters.ParamByName('pTelephon').Value := Edit3.Text;
Query1.Parameters.ParamByName('pDate').Value := form2.DateTimePicker2.Date;
Query1.ExecSQL;

p.s. кстати, пара советов:
1) Query1.Active:=false;
Query1.Close;
эти две строчки синонимы. достаточно одно (любой. я бы оставил Query1.Close)

2) для запросов, изменющих данные и запросов, отображающих данные лучше использовать разные Query - при использовании одного и того же компонента многократно - выигрыш в памяти получается абсолютно копеечный, а вот если для каждого действия использовать свой компонент - то удобство сопровождения/отладки/наглядности кода резко повышается.
Да и эффективность от этого только улучшится...

[doldb]

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

посмотрите вот по этим ссылкам:
http://www.programmersforum.ru/showp...83&postcount=3

http://www.programmersforum.ru/showp...98&postcount=3

http://www.programmersforum.ru/showthread.php?t=124533

параметры в запросе в Delphi обозначаются двоеточием.

В вашем случае будет примерно так:

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('INSERT INTO doldb');
Query1.SQL.Add('(Fio, Adr, Tel, Date_a)');
Query1.SQL.Add('VALUES( :pFio, :pAdr, :pTelephon, :pDate )');
Query1.Parameters.ParamByName('pFio').Value := Edit1.Text;
Query1.Parameters.ParamByName('pAdr').Value := Edit2.Text;
Query1.Parameters.ParamByName('pTelephon').Value := Edit3.Text;
Query1.Parameters.ParamByName('pDate').Value := form2.DateTimePicker2.Date;
Query1.ExecSQL;

p.s. кстати, пара советов:
1) Query1.Active:=false;
Query1.Close;
эти две строчки синонимы. достаточно одно (любой. я бы оставил Query1.Close)

2) для запросов, изменющих данные и запросов, отображающих данные лучше использовать разные Query - при использовании одного и того же компонента многократно - выигрыш в памяти получается абсолютно копеечный, а вот если для каждого действия использовать свой компонент - то удобство сопровождения/отладки/наглядности кода резко повышается.
Да и эффективность от этого только улучшится...

Спаибо, но у меня почему-то на Query1.Parameters ругается
[Error] Unit2.pas(58): Undeclared identifier: 'Parameters'

[XeruH]

Query1.Params

может.. точно не помню

[doldb]

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

Query1.Params

может.. точно не помню

И так пробовал, все равно ошибка (( Мы могли бы с вами в icq пообщаться?

[doldb]

Ошибка такого плана:
Type mismatch in expression

[doldb]

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Add('INSERT INTO doldb');

Query1.SQL.Add('(Fio, Adr, Tel)');

Query1.SQL.Add('VALUES( :pFio, :pAdr, :pTelephon )');

Query1.Params.ParamByName('pFio').Value := Edit1.Text;

Query1.Params.ParamByName('pAdr').Value := Edit2.Text;

Query1.Params.ParamByName('pTelephon').Value :=StrToInt(Edit3.Text);

Query1.ExecSQL;
Query2.Refresh;

  end;

Вот уже вообще убрал дату все равно mismatch in expression ((