Código Delphi
[-]
Procedure TFIndMan.GuardarIndices;
var
I : integer;
begin
for i := 1 to GrDetalle.RowCount - 1 do
begin
if GrDetalle.Cells[0,i] <> '' then
begin
LocalQuery1.SQL.Clear;
LocalQuery1.SQL.Text := 'Insert Into Indices(IdGh,SectionLetter,IdPlant,From_b,To_b,Indice,avail,'
+'pots,week,temporada) Values(:GH,:Sec,:Plant,:from,:To,:ind,:ava,'
+':mac,:sem,:sea)';
LocalQuery1.Parameters.ParamByName('GH').Value := GrDetalle.Cells[0,i];
LocalQuery1.Parameters.ParamByName('Sec').Value := GrDetalle.Cells[1,i];
LocalQuery1.Parameters.ParamByName('Plant').Value := GrDetalle.Cells[5,i];
LocalQuery1.Parameters.ParamByName('from').Value := GrDetalle.Cells[3,i];
LocalQuery1.Parameters.ParamByName('To').Value := GrDetalle.Cells[4,i];
LocalQuery1.Parameters.ParamByName('ind').Value := GrDetalle.Cells[7,i];
LocalQuery1.Parameters.ParamByName('ava').Value := GrDetalle.Cells[9,i];
LocalQuery1.Parameters.ParamByName('mac').Value := GrDetalle.Cells[8,i];
LocalQuery1.Parameters.ParamByName('sea').Value := SDIMain.Season;
LocalQuery1.ExecSQL;
end;
end;
end;
Tengo ese procedimiento que ustedes ven ahi, en cual hago una insercion en la tabla 'indice', pero cuando lo ejecuto me dice que no encuentra el objeto dbo.index, al cual no logro ver por ningun lado que yo este utilizando.
Alguna sugerencia o idea?
Saludos y gracias de antemano!