Добавление даты в БД (TDateEdit)

[DimOn4Ik]

Подскажите пожалуйста как правильно занести данные в БД с поля TDateEdit?

Query1.SQL.Add('INSERT INTO telephone(date) VALUES ("+Date.Date+")');

ещё пробовал так
Query1.SQL.Add('INSERT INTO telephone(date) VALUES ("'DateToStr(+Date.Date+)'")');

не компилируется..

[artemavd]

Query1.SQL.Add('INSERT INTO telephone(date) VALUES ("+Date.Date+")');

ещё пробовал так 
Query1.SQL.Add('INSERT INTO telephone(date) VALUES ("'DateToStr(+Date.Date+)'")');

Ужасс...
Используйте параметризированный запрос. Например такой:

 Form1.Query1.SQL.Clear;
 Form1.Query1.SQL.Text:='INSERT INTO telephone(date) VALUES(:D)';
 Form1.Query1.ParamByName('D').Value:=Form1.Label40.Caption;
 Form1.Query1.ExecQuery;

где в Form1.Label40.Caption, например, хранится дата.
P.S.
1. Не используйте в названии полей зарезервированные слова. В вашем случае date. Могут проблемы возникнуть.
2. Если вы не используете параметры в запросе, а вставляете "как обычно", то используйте функцию QuotedStr. Она добавить кавычки. В вашем случае это было бы так:

Query1.SQL.Add('INSERT INTO telephone(date) VALUES (QuotedStr(DateToStr(+Date.Date+))');

И покороче и по красивее. Но лучше используйте параметры.

[DimOn4Ik]

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

Ужасс...
Используйте параметризированный запрос. Например такой:

 Form1.Query1.SQL.Clear;
 Form1.Query1.SQL.Text:='INSERT INTO telephone(date) VALUES(:D)';
 Form1.Query1.ParamByName('D').Value:=Form1.Label40.Caption;
 Form1.Query1.ExecQuery;

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

Form1.Query1.ParamByName('D').Value :=Form1.Label40.Caption;

[Stilet]

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

Но можно в цикле...
Я например все поля и их значения у себя храню в TStringList в виде [Имя поля]=[Значение]
Тогда в цикле удобно по ним проходить и формировать запрос. Впрочем один раз можно и 30 полей описать в программе.

[DimOn4Ik]

Stilet если не затруднит,покажите пожалуйста пример )

[Stilet]

Вот. Пожалуйста:
http://www.programmersforum.ru/showt...hlight=FFields
Здесь считывание.
Запись по тому же принципу.

[DimOn4Ik]

не получается.. О_о

пробовал так:

Query1.SQL.Add('INSERT INTO telephone(date) VALUES (QuotedStr(DateToStr(+BDate.Date+))');

[artemavd]

Query1.SQL.Add('INSERT INTO telephone(date) VALUES (QuotedStr(DateToStr(+BDate.Date+)))');

[DimOn4Ik]

такая же ошибка ( .. artemavd если Вам не сложно выложите пожалуйста демо!

[bezOn]

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

Подскажите пожалуйста как правильно занести данные в БД с поля TDateEdit?

Query1.SQL.Add('INSERT INTO telephone(date) VALUES ("+Date.Date+")');

ещё пробовал так
Query1.SQL.Add('INSERT INTO telephone(date) VALUES (" 'DateToStr(+Date.Date+)' ")');

не компилируется..

Ошибка в двух местах.....
Первый раз нужно было преобразовать дату в
строку: ("+Date.Date+")'

Второй раз, неправильно указал сцепление
в строке: (" 'DateToStr(+Date.Date+)' ")

Если ты хочешь добавить запись именно так, то напиши:
Query1.SQL.Clear;
Query1.SQL.Add('INSERT INTO Telephone(date)');
Query1.SQL.Add('VALUES ("'+DateToStr(Date.Date)+'")');

Поле с именем "date", в будущем принесёт тебе проблем.
Назови по другому, например T_Date или DateTel
Но лучше в запросе всё таки использовать параметры:

TRY
  Query1.SQL.Clear;
  Query1.SQL.Add('INSERT INTO Telephone');
  Query1.SQL.Add('(TelDate, TelNumber, TelOperator)');
  Query1.SQL.Add('VALUES');
  Query1.SQL.Add('(:TelDate, :TelNumber, :TelOpertor)');
     Query1.ParamByName('TelDate').asDateTime := Date.Date;
     Query1.ParamByName('TelNumber').asString := dbNumber.Text;
     Query1.ParamByName('TelOperator').asString := dbVidOperator.Text;
     Query1.ExecSQL;

EXCEPT
    Application.MessageBox(
        'Во время создания новой записи, произошла ошибка.'+#13+
        'Проверьте правильность ввода данных',
        'Ошибка создания', MB_OK+MB_ICONERROR);
END;

//Так будет правильннее :)