Forum Discussion

katenok29's avatar
katenok29
New Contributor
14 years ago

How to insert Date type value into DB Table?

I use such string in delphi script to insert date-type value into table: Cmd.CommandText := 'insert into MY_TABLE values(' '1' ', To_date(' '05.03.2010' ', ' 'dd.mm.yyyy' '))';  Cmd.CommandType ...
Dmitry_Nikolaev's avatar
Dmitry_Nikolaev
Staff
14 years ago

Hi Kate,





The following sample script works fine for me when adding a record to a table in an SQL Server 2008 database:







procedure TestProc;

var

  AConnection, RecSet, Cmd, Prm : OleVariant;

begin

  AConnection := ADO.CreateConnection;





  AConnection.ConnectionString := 'Provider=SQLNCLI10;Server=myserver;Database=TestBase;Trusted_Connection=yes;';

  AConnection.Open;

  Cmd := ADO.CreateCommand;





  Cmd.ActiveConnection := AConnection;

  Cmd.CommandText := 'insert into [Persons] ([FirstName],[LastName],[BirthDate]) values (''John'', ''Doe'', ?)';

  Cmd.CommandType := adCmdText;

  Prm := Cmd.CreateParameter('MyParam', adDate, adParamInput);

  Cmd.Parameters.Append(Prm);

  Prm.Value := StrToDate('05/20/1955');

  RecSet := Cmd.Execute;

  

  AConnection.Close;

end;






Please check whether you can modify this script for your case.