Поменять формат даты.

[edsjeka]

По умолчанию в Delphi формат даты: дд.мм.гггг чч:мм:сс, мне нужно вставить дату в БД MYSql, а там дата такая, гггг.мм.дд чч:мм:сс.
Как мне привести в одинаковый вид эти даты? В Delphi есть какие-то функции, чтобы заменить порядок дня, месяца и года, чтобы тип остался DateTime? Или в MySql может можно как-то настроить вид даты?

[northener]

Не надо менять форматы! При работе с БД надо использовать параметры.

[edsjeka]

PHP код:

[PHP] today:=Now;
 DataModule1.SQLQuery1.Active:=false;
 DataModule1.SQLQuery1.SQL.Text:='Insert Into Cartridgi (IDModelCartridga, Articul,'+
  ' IDKlienta, IDManagerPrin, DatePriema, IdStatusa, Komments) Values ('+IntToStr(md)+
  ', '+ '"'+art+'"'+', '+IntToStr(kl)+', '+IntToStr(pr)+', '+DateTimeToStr(today)+', "1",'+'"'+kom+'"'+')';
  DataModule1.SQLQuery1.ExecSQL; 


[/PHP]

Как тут можно сделать, чтобы даты были совместимы?

[Dvoishnik]

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

Не надо менять форматы! При работе с БД надо использовать параметры.

Угу

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

[northener]

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

после время если не ошибаюсь в мили секундах.

После время в "частях суток". Например час - 1/24 суток

[Dvoishnik]

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

После время в "частях суток". Например час - 1/24 суток

Спасибо за исправление.

Вот тут есть пример запроса с параметром
вот он сам пример

begin
  Query1.DatabaseName:='DBDEMOS';
  Query1.SQL.Text:='select * from country.db where capital like :param1';
  Query1.Prepare;
  Query1.ParamByName('param1').AsString:='M%';
  Query1.Open;
end;

или

..............
Query1поле1.Value:=значение1;
Query1поле2.Value:=значение2;
........
Query1полеN.Value:=значениеN;
Query1.post;
..............

[edsjeka]

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

Спасибо за исправление.

Вот тут есть пример запроса с параметром
вот он сам пример

begin
  Query1.DatabaseName:='DBDEMOS';
  Query1.SQL.Text:='select * from country.db where capital like :param1';
  Query1.Prepare;
  Query1.ParamByName('param1').AsString:='M%';
  Query1.Open;
end;

или

..............
Query1поле1.Value:=значение1;
Query1поле2.Value:=значение2;
........
Query1полеN.Value:=значениеN;
Query1.post;
..............

PHP код:

today:=Now;
  DataModule1.SQLQuery1.FieldByName('DatePriema').Value:=today; 


Так почему-то тоже не получается. Ошибок никаких не выдается, но значение не меняется, как было по умолчанию, так и остается.

[Dvoishnik]

остальной код в студию.

[edsjeka]

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

остальной код в студию.

PHP код:

procedure TFMPriemLazKart.BitBtn1Click(Sender: TObject);
var art, kom: string;
    maxid, md, kl, pr: integer;
    today: TDateTime;
begin
 art:=Edit1.Text;
 DataModule1.SQLQuery1.Active:=false;
 DataModule1.SQLQuery1.SQL.Text:='Select IDModelCartridga From SprModeleyCartridgey' +
 ' Where ModelCartridga = "'+ComboBox1.Text+'"';
 DataModule1.SQLQuery1.Active:=true;
 md:=DataModule1.SQLQuery1.FieldByName('IDModelCartridga').Value;

 DataModule1.SQLQuery1.Active:=false;
 DataModule1.SQLQuery1.SQL.Text:='Select IDKlienta From SprKlientov' +
 ' Where NameKlient = "'+ComboBox2.Text+'"';
 DataModule1.SQLQuery1.Active:=true;
 kl:=DataModule1.SQLQuery1.FieldByName('IDKlienta').Value;

 DataModule1.SQLQuery1.Active:=false;
 DataModule1.SQLQuery1.SQL.Text:='Select IDManager From SprManager' +
 ' Where Manager = "'+ComboBox3.Text+'"';
 DataModule1.SQLQuery1.Active:=true;
 pr:=DataModule1.SQLQuery1.FieldByName('IDManager').Value;

 kom:=Memo1.Lines.Text;
 today:=Now;
 DataModule1.SQLQuery1.Active:=false;
 DataModule1.SQLQuery1.SQL.Text:='Insert Into Cartridgi (IDModelCartridga, Articul,'+
  ' IDKlienta, IDManagerPrin, IdStatusa, Komments) Values ('+IntToStr(md)+
  ', '+ '"'+art+'"'+', '+IntToStr(kl)+', '+IntToStr(pr)+{', '+DateTimeToStrtoday+}', "1",'+'"'+kom+'"'+')';
  DataModule1.SQLQuery1.ExecSQL;

  DataModule1.SQLQuery1.Active:=false;
  DataModule1.SQLQuery1.SQL.Text:='Select MAX(IDCartridga) AS MaxIdcartridga From Cartridgi';
  DataModule1.SQLQuery1.Active:=true;
  maxid:=DataModule1.SQLQuery1.FieldValues['MAXIDCartridga'];

  DataModule1.SQLQuery1.Active:=false;
  DataModule1.SQLQuery1.SQL.Text:='Select * From Cartridgi Where IDCartridga='+inttostr(maxid);
  DataModule1.SQLQuery1.Active:=true;
  today:=Now;
  DataModule1.SQLQuery1.FieldByName('DatePriema').Value:=today;
{  DataModule1.SQLQuery1.FieldValues['DatePriema']:=today;}
end; 


[Serge_Bliznykov]

Вам нужно при вставке использовать параметр, а не присваивать его полю датасета неизвестно зачем в конце...

сравните:

today:=Now; 
 DataModule1.SQLQuery1.Active:=false; 
 DataModule1.SQLQuery1.SQL.Text:='Insert Into Cartridgi (IDModelCartridga, Articul,'+ 
  ' IDKlienta, IDManagerPrin, IdStatusa, Komments) Values ('+IntToStr(md)+ 
  ', '+ '"'+art+'"'+', '+IntToStr(kl)+', '+IntToStr(pr)+', :mydate, "1",'+'"'+kom+'"'+')'; 
  DataModule1.SQLQuery1.Prepare;
  DataModule1.SQLQuery1.ParamByName('mydate').Value:=today;
  DataModule1.SQLQuery1.ExecSQL;

только мне сдаётся, что запрос неверный - количество указанных полей меньше, чем число значений в values.
например, в какое поле должна дата вставляться?!! похоже пропущено поле между IDManagerPrin, IdStatusa

p.s. остальные значения в запросе тоже неплохо бы заменить параметрами.