Code: Select all
qry := TSQLQuery.Create(nil);
try
qry.SQLConnection := FSQLConnection;
qry.SQL.Text := 'CREATE TABLE [TEST] ('
+ ' [DATETIME] datetime NOT NULL '
+ ', [NUMBER] integer NOT NULL '
+ ', [TEXT] nvarchar(30) NULL '
+ '); ';
qry.ExecSQL;
qry.Close;
qry.SQL.Text := ' CREATE UNIQUE INDEX [PK_TEST] ON [TEST]([DATETIME], [NUMBER]); ';
qry.ExecSQL;
qry.Close;
qry.SQL.Text := 'INSERT INTO [TEST] ([DATETIME], [NUMBER], [TEXT]) '
+ ' VALUES (:DATETIME, :NUMBER, :TEXT);';
qry.Params[0].AsDateTime := Now;
qry.Params[1].AsInteger := 1;
qry.Params[2].AsString := 'Text';
qry.ExecSQL;
qry.Close;
finally
qry.Free;
end;