Delphi MySQL - криво вводится дата в таблицу.

[iskurt]

Доброго времени.
Подскажите по SQL.

из формы с помощью DateTimePicker вношу дату в таблицу с типом поля date, а получаю перевернутую дату... пример:
DateTimePicker1.Date := 31.05.2012
А в DBGrid1 получается 20.05.2031

В чем подвох???

Пробую вот такой вариант

  with ADOQuery1.Parameters.AddParameter do
begin
  Name := 'param1';
  Value := FormatDateTime('ddmmyyyy', DateTimePicker1.Date);
end;

Вставляет пустое значение, то есть в поле вааще пусто!!!

[Stilet]

А запрос сам где?
FormatDateTime тут не нужен.
Value :=DateTimePicker1.Date будет достаточно.

[iskurt]

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

А запрос сам где?
FormatDateTime тут не нужен.
Value :=DateTimePicker1.Date будет достаточно.

ADOQuery1.SQL.Text := 'INSERT INTO jurnal VALUES (NULL, "'
    +DateToStr(DateTimePicker1.Date)
    +'","'+DBLookupComboBox1.Text
    +'","'+DBLookupComboBox2.Text
    +'",' +IntToStr(SpinEdit1.Value)
    +', "'+p+'")';
  ADOQuery1.ExecSQL;

Все замечательно, кроме даты...

SOS!!!

[Stilet]

with ADOQuery1 do begin
 SQL.Text := 'INSERT INTO jurnal VALUES (NULL, :d,:lcb1,lcb2,:ce,:p)';
 ParamByName('d').AsDateTime:=DateTimePicker1.Date;
 ParamByName('lcb1').value:=DBLookupComboBox1.Text;
 ParamByName('lcb2').value:=DBLookupComboBox2.Text;
 ParamByName('ce').value:=SpinEdit1.Value;
 ParamByName('p').value:=p;
 if ExecSQL=0 then ShowMessage('Ничего не вставилось');
end;

Подойдет?

[iskurt]

Странно, но ругается на

[DCC Error] Unit1.pas(98): E2003 Undeclared identifier: 'ParamByName'

Его нужно объявлять? КАК?

Может просто NAME ?
Чего это он не понимает его?

[Stilet]

А какого типа у тебя ADOQuery1 ?

[iskurt]

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

А какого типа у тебя ADOQuery1 ?

Уточните вопрос?
работаю с MySQL через драйвер ODBC
Может это поможет мне ответить,

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, ComCtrls, ExtCtrls, DBCtrls, StdCtrls,
  Spin, Buttons, Menus;
type
   ADOQuery1: TADOQuery;

[Stilet]

Затупил:

Parameters.ParamByName(...

Ну ладно я не специалист в компудерах
А ты мог бы ради приличия заглянуть в справку и почитать как этот ParamByName описывается

[iskurt]

ну я направления мыслей то понял.. но вот беда, не могу присвоить тип AsDateTime

Вобще вместо вопросов мне нужно чтото правильное прописать!!!

Parameters.ParamByName('d').??????:=DateTimePicker1.Date;

VALUE?

И все равно, нужно параметры где то объявлять, ругается, мол не находит их...

Вобщем думаю дело даже и не в этом, а в НЕСОВПАДЕНИИ написании формата даты...
Похоже что в скуле yyyy/mm/dd
а в Делфях dd.mm.yyyy

Вот тут есть таблица с датами

!!!!!SOS!!!!!

[Stilet]

Похоже что в скуле yyyy/mm/dd
а в Делфях dd.mm.yyyy

Тогда по другому - посмотри административными средствами для Мускула, как дата из проги твоей записывается? Если в БД она как полагается, значит просто тебе нужно для поля в Гриде описать формат вывода.
Или преобразовывать в строку в запросе (если пользуешся запросом) типа
select cast(поледаты as char(10))...