MALBOTO22
12-10-2007, 15:59:03
Si alguien me puede colaborar con este inconveniente, les agradezco de antemano. Estoy haciendo una actualización a una tabla y aparece el siguiente error “OLE error 80040E2F”. Trabajo con D6 y Windows 2000 Server.
El código utilizado es el siguiente:
if control_insercion_tiquetes = 2 then
begin
Qconstiq.Close;
Qconstiq.SQL.Add('update bl_tiquetes ' +
'set FecHor_Sal = ' + QuotedStr(DatetoStr(MastData.CDSTiqueteComFecHor_Salida.Value)) + ', ' +
'Peso_Sal = ' + QuotedStr(FloattoStr(MastData.CDSTiqueteComPeso_Salida.Value)) + ', ' +
'Peso_Net = ' + QuotedStr(FloattoStr(MastData.CDSTiqueteComPeso_Neto.Value)) +
' where cons_tiquetes = ' + QuotedStr(IntToStr(MastData.CDSTiqueteComcons_tiquete.Value))); {+
' and Nums_Tiques = ' + QuotedStr(FloatToStr(MastData.CDSTiqueteComtiquete_num.Value))); }
Qconstiq.ExecSQL;
Qconstiq.Close;
end;
MastData.CDSCompraPadyvr_carga.Value:=0; MastData.CDSCompraPady.ApplyUpdates(-1);
Mil gracias por la colaboración que me puedan brindar. :confused:
El código utilizado es el siguiente:
if control_insercion_tiquetes = 2 then
begin
Qconstiq.Close;
Qconstiq.SQL.Add('update bl_tiquetes ' +
'set FecHor_Sal = ' + QuotedStr(DatetoStr(MastData.CDSTiqueteComFecHor_Salida.Value)) + ', ' +
'Peso_Sal = ' + QuotedStr(FloattoStr(MastData.CDSTiqueteComPeso_Salida.Value)) + ', ' +
'Peso_Net = ' + QuotedStr(FloattoStr(MastData.CDSTiqueteComPeso_Neto.Value)) +
' where cons_tiquetes = ' + QuotedStr(IntToStr(MastData.CDSTiqueteComcons_tiquete.Value))); {+
' and Nums_Tiques = ' + QuotedStr(FloatToStr(MastData.CDSTiqueteComtiquete_num.Value))); }
Qconstiq.ExecSQL;
Qconstiq.Close;
end;
MastData.CDSCompraPadyvr_carga.Value:=0; MastData.CDSCompraPady.ApplyUpdates(-1);
Mil gracias por la colaboración que me puedan brindar. :confused: