Problema insertar fecha

[Nomad]

Hola

Estoy insertando la fecha actual de la siguiente forma:

Código Delphi [-]
sql := 'Insert into FinalProduct(Id,PlantId,OrderId,PackDate,BagsURC,IdCus,IdVar) Values('
+FloatToStr(Inicio)+','+CmbPlanta.Items[CmbPlanta.itemindex]+
','+#39+'K017-3'+#39+','+formatdatetime('dd/mm/yyyy',date)+','
+NBolsas.Text+',107,169'+')';

Pero resulta que cuando voy a SQL server a revisar el dato que inserte, me aparece 01/01/1900, el tipo de datos en la base de datos es DATETIME.

Cuando corro el programa paso a paso, antes de enviar a insertar, reviso la cadena y la fecha va correctamente ej: 13/06/2007, pero sigue insertando 01/01/1900

Gracias y disculpen si redundo, pero he buscado y no encuentro nada como esto en el foro.

Gracias

[loxod]

creo que te falta poner el campo fecha entre el caracter #39

sql := 'Insert into FinalProduct(Id,PlantId,OrderId,PackDate,BagsURC,IdCus,IdVar) Values('
+FloatToStr(Inicio)+','+CmbPlanta.Items[CmbPlanta.itemindex]+
','+#39+'K017-3'+#39+','+ #39 + formatdatetime('dd/mm/yyyy',date) + #39 +',' +NBolsas.Text+',107,169'+')';

[luisgutierrezb]

si es ms sql server, no hay nada como la fecha en formato iso
YYYYMMDD para que insertes o manejes fechas, independientemente del lenguaje, notese que no lleva - o / es todo pegado

[ContraVeneno]

Código Delphi [-]
with TuDataSet do begin
SQL.Add('Insert into FinalProduct(Id, PlantId, OrderId, PackDate, BagsURC, IdCus, IdVar) ');
SQL.Add('Values('+FloatToStr(Inicio)+', '''+CmbPlanta.Items[CmbPlanta.itemindex]+''', ''K017-3'', ');
SQL.Add(''''+ formatdatetime('yyyy-mm-dd',date)+''', '''+NBolsas.Text+''',107,169) ');
...
end;

Código Delphi [-]
With TUDataset do begin
...
SQL.Add('Insert into FinalProduct(ID, PlantID, OrderID, PackDate, BagsURC, IdCus, IDVar)');
SQL.Add('Values( :vID, :vPlantID, :vOrderID, :vPackID, :vBagusURC, :vIDCus, :vIDVar)');
ParamByname('vID').AsFloat := Inicio;
ParamByName('vPlantID').AsString := cmbPlanta.Items[cmbPlanta.ItemIndex];
ParamByName('vOrderID').AsString := 'K017-3';
ParamByName('vPackID').AsDateTime := date;
ParamByName('vBagusURC').AsString := NBolsas.Text;
ParamByName('vIDCus').AsInteger := 107;
ParamByName('vIDVar').AsInteger := 169;
..
ExecSQL;
...
end; // with

[vtdeleon]

Para problemas de tipo fecha, lo mejor es usar "Paramentros" en el DataSet. De esa forma le dejas el trabajo sucio a otro.

Código Delphi [-]
sql := 'Insert into FinalProduct(Id,PlantId,OrderId,PackDate,BagsURC,IdCus,IdVar) Values(:Inicio, :Planta, :Orden, :Fecha, :Bolsas, 107,169)';
With Query1 do
begin
  Sql.Text:=sql;
  ParamByName('Inicio').AsFloat:=Inicio;
  ParamByName('Planta').AsString:=CmbPlanta.Items[CmbPlanta.itemindex];
  ParamByName('Orden').AsString:='K017-3';
  ParamByName('Fecha').AsDateTime:=Date;
  ParamByName('Bolsas').AsString:=NBolsas.Text;
  ExecSql;
end;

[vtdeleon]

Llegue 7 minutos tarde

[ContraVeneno]

Si hombre, que cosas, últimamente me les he estado adelantando, jejeje
en fin, me queda una duda... ¿es necesario agregar los apóstrofes (') con el #39?

Código Delphi [-]
ParamByName('Orden').AsString:=#39+'K017-3'+#39;

Según entiendo, al utilizar parámetros, este se encargar de agregárlos. Por lo que la instrucción sería:

Código Delphi [-]
ParamByName('Orden').AsString:='K017-3';

Al menos así funciona en mi delphi 5 ó 10 .

---edito--
ya editaste, jeje

[Nomad]

Gracias a todos... luego les cuento como me fue...

[karlaoax]

Empezado por ContraVeneno

en fin, me queda una duda... ¿es necesario agregar los apóstrofes (') con el #39?

Duda, el codigo Ascci #39 para que lo ponen, si es lo mismo utilizar '

Podrian explicarme este codigo, no lo entiendo?

[ContraVeneno]

Lo ponen para que en el texto se coloque un apóstrofe y obtener el mismo resultado que se obtiene al usar la función "QuotedStr". En el caso de utilizar parámetros esto no es necesario.

Si no se utilizan parámetros, para obtener una cadena con apóstrofes (como regularmente se utilizan en una consulta en SQL Server), tienes tres opciones:

• 'campo = '+#39+valor+#39 +','; Resultando en: campo = 'valor',
• 'campo = '''+valor+''', '; Resultando en: campo = 'valor',
• 'campo = '+QuotedStr(Valor)+','; Resultando en: campo = 'valor',

Donde la menos recomendable es la primera y la más recomendable es la tercera.