MS SQL Server 2008 r2 ввод текущей даты и времени в БД

[spotip]

Подскажите пожалуйста, база MS SQL Server 2008 r2 после добавления данных через DBgrid хочу добавить время добавления данных делаю так:

procedure TForm1.Button1Click(Sender: TObject);
var
pnd5, regtime:String;
begin
pnd5:=quotedstr(Unit1.Form1.Edit19.Text);
regtime:=FormatDateTime('yyyy-mm-dd hh:mm:ss', Now);

через хранимую процедуру записываю данные в бд:

with Unit2.DataModule2.Query1 do
begin
close;
SQL.clear;
SQL.Add('exec new_turb '+pnd5+','+regtime);
ExecSQL;
Unit2.DataModule2.T_Query1.Active:=False;
Unit2.DataModule2.T_Query1.Active:=True;
end;
end;

в бд regtime тип данных datetime

при записи выдаёт ошибку не правильный синтаксис "-"
пробовал делать так

regtime:=DateTimeToStr(now);

тот же эффект, подскажите где ошибка ?

[Streletz]

Дата передаётся в виде строкового литерала. Поэтому её значение, по идее, должно быть в апострофах.

regtime:=#39+FormatDateTime('yyyy-mm-dd hh:mm:ss', Now)+#39;

[Serge_Bliznykov]

во-первых, на сервере есть время (кстати, намного более надёжное==достоверное, чем время на локальном компьютере), поэтому ничего не надо передавать, надо брать время с сервера:

SQL.Add('exec new_turb '+pnd5+', getdate() ');

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

[spotip]

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

Дата передаётся в виде строкового литерала. Поэтому её значение, по идее, должно быть в апострофах.

regtime:=#39+FormatDateTime('yyyy-mm-dd hh:mm:ss', Now)+#39;

если пробую так, то ругается на неправильный синтаксис около +#39

[spotip]

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

во-первых, на сервере есть время (кстати, намного более надёжное==достоверное, чем время на локальном компьютере), поэтому ничего не надо передавать, надо брать время с сервера:

SQL.Add('exec new_turb '+pnd5+', getdate() ');

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

Вы правы надёжнее брать время с сервера, мне в принципе так и надо, пробую как вы написали, пишет Неправильный синтаксис около конструкции “)” при этом я убрал из хранимых процедур параметр regtime

procedure TForm1.Button1Click(Sender: TObject);
var
pnd5:String;
begin
pnd5:=quotedstr(Unit1.Form1.Edit19.Text);with Unit2.DataModule2.Query1 do
begin
close;
SQL.clear;
SQL.Add('exec new_turb '+pnd5+',getdate()');
ExecSQL;
Unit2.DataModule2.Turb_Query1.Active:=False;
Unit2.DataModule2.Turb_Query1.Active:=True;
end;

вот собственно процедура

USE [8]
GO
create procedure new_turb(@pnd5 float)
as
Begin
insert into turb values ((select ISNULL(MAX(id)+1,1) from turb),
@pnd5)
end

[Streletz]

Неправильный синтаксис около конструкции “)” при этом я убрал из хранимых процедур параметр regtime

А, куда Вы тогда передадите дату?

надёжнее брать время с сервера, мне в принципе так и надо

Тогда getdate() разумнее всего поместить в саму процедуру. Тогда не надо будет вообще передавать дату.
Кроме того, в таблицах MS SQL значения по умолчанию ещё никто не отменял.

[Serge_Bliznykov]

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

Тогда getdate() разумнее всего поместить в саму процедуру. Тогда не надо будет вообще передавать дату.
Кроме того, в таблицах MS SQL значения по умолчанию ещё никто не отменял.

Полностью согласен!

[eval]

ютиси дату надо юзать

[spotip]

добавил в базу столбик getdate c параметром datetime и значением по умолчанию (getdate())

USE [8]

GO
create procedure new_turb(@pnd5 float, @getdate datetime)
as
Begin
insert into turb values ((select ISNULL(MAX(id)+1,1) from turb),
@pnd5, @getdate)
end

если так то при вызове программы:

procedure TForm1.Button1Click(Sender: TObject);
var
pnd5:String;
begin
pnd5:=quotedstr(Unit1.Form1.Edit19.Text);with Unit2.DataModule2.Query1 do
begin
close;
SQL.clear;
SQL.Add('exec new_turb '+pnd5+',getdate()');
ExecSQL;
Unit2.DataModule2.Turb_Query1.Active:=False;
Unit2.DataModule2.Turb_Query1.Active:=True;
end;

пишет неверный синтаксис возле ")"







подскажите как в эту процедуру добавить время

[eval]

это не возможно, самое трудное во всей галактики...

вам уже все сказали показали, в каком слове затруднения?