Citando el código de Roman pero usando paramtros:
Código SQL
[-]insert into personas
(id, nombre)
values
(:id, :nombre')
Código Delphi
[-]
Uses DateUtils;
Procedure PruebaSQL;
var UnQuery:TZQuery; Begin
unQuery := TZQuery.Create(nil);
Try
With UnQuery Do
Begin
Connection := MyConeccion; SQL.Add('insert into personas'); SQL.Add(' values (:id, :fecha)');
for c:=1 to 1000 Do
Begin
ParamByName('id').AsString := format('X%d',[c]); ParamByName('fecha').AsDateTime := Today;
ExecSQL; end;
end;
Finally
unQuery.free;
end;
end;
Como puedes ver al poner el parametro fecha usando AsDateTime Delphi se encarga de convertir el dato en un valor de fecha adecuado para el motor de base de datos. Obviamente antes de fijarlo nos tenemos que asegurar que le estemos pasando una fecha válida. Si usas un control o edit para obtener la fecha, pues usamos TDateTimePicker que solito nos devuelve siempre una fecha.