Cita:
|
Empezado por AGAG4
A que te refieres con esto .... "pero no me resulta" ????
No te guarda los datos ????
En el caso de un StringGrid, es la forma màs correcta que he visto para almacenar datos si no usaràs algun ibDataset conectado a un dbGRID, no le veo algun problema, a no ser que alguien este en contra de mi opinion.
Saludos....
|
me refiero a que este proceso me deberia almacenar los datos en la tabla Cargos... pero no almacena nada.. y caundo empieza a ejecutarse el código me da error de 'List index out of bound (0)',, y no es un numero decimal válido..
este mismo codigo lo he ejecutado sin Store Procedure y utilizando componente IBQuery... y me funciona bien.. y la forma de almacenar es la sigueinte:
Código Delphi
[-]
For i:= 0 to Asig_Costos.Costos_Paso.RowCount-1 Do
Begin
IBQ_Edit.SQL.Clear;
IBQ_Edit.SQL.Add('Insert Into "Cargos" ("Ord_Numero","Cen_Codigo","Car_Monto","Car_Observacion")');
IBQ_Edit.SQL.Add('Values (:P1, :P2, :P3, :P4)');
IBQ_Edit.Params[0].AsString := IntToStr(IBQ_Select['ORD_NUM']);
IBQ_Edit.Params[1].AsString := Asig_Costos.Costos_Paso.Cells[0,i];
IBQ_Edit.Params[2].AsFloat := StrToFloat(Asig_Costos.Costos_Paso.Cells[2,i]);
IBQ_Edit.Params[3].AsString := Asig_Costos.Costos_Paso.Cells[3,i];
IBQ_Edit.ExecSQL;
End;