Importando datos de Excel a FB 3.0
 

Estimados Todos:

Estoy tratando de importar los datos de una hoja en Excel, a una Base de datos Firebird 3.0 , estoy usando Delphi X10, el asunto es que leo los datos de excel, si los ppongo en una listview, todo perfecto. Peeero al tratar de ponerlos en una tabla (ConceptosTable), es donde viene el problema. el codigo que tengo es :

Código Delphi [-]
Hoja:= Excel.Worksheets.Item[1] as _WorkSheet;

  i:= 2;
  si:= IntToStr(i);
  repeat
    with ConceptosTable do
    begin
      Close;
      SQL.Clear;
      SQL.Add('INSERT INTO ConceptosTable (CVE_CPTO, CONCEPTO, UD, PUBASE, PU1,PU2, PU3, CVE_CAT) VALUES (:CVE, :CPTO, :UD, :BASE, :P1, :P2, :P3, :CAT)');

      ParamByNAme('CVE').AsString:= Hoja.Range['A'+si, 'A' + si].Value2;//Clave
      ParamByName('CPTO').AsBlob := Hoja.Range['B'+si, 'B' + si].Value2;//Concepto
      parambyname('UD').AsString:= Hoja.Range['C'+si, 'C' + si].Value2;//Unidad
      ppb:= Hoja.Range['D'+si, 'D' + si].Value2;// P Base

      ParamByName('BASE').asfloat := strtofloat(ppb);

      pp1:=  Hoja.Range['E'+si, 'E' + si].Value2;
      ParamByName('P1').AsFloat:= strtofloat(pp1);// P1
      pp2:= Hoja.Range['F'+si, 'F' + si].Value2;// P2
      ParamByName('P2').AsFloat:= strtofloat(pp2);
      pp3:=  Hoja.Range['G'+si, 'G' + si].Value2;// P3
      ParamByName('P3').AsFloat:= strtofloat(pp3);

      ParamByName('CAT').AsString:= Hoja.Range['F'+si, 'F'+si].Value2;//Categoria

      Prepare;

      Open;

    end;

    inc(i);
    si:= IntToStr(i);

  until ( VarType ( Excel.Range['A'+si, 'A'+si].Value2) = VarEmpty);

cuando sale de la asignacion de CAT, en el Prepare, truena el programa y me marca el error:

.... De antemano agradezco su ayuda ^\||/

Olvidé mencionar que en la Forma tengo los componentes TExcelApplication conectado al archivo de Excel, FDConnection a la Base de datos y FDQuery a la Tabla CONCEPTOS.

Gracias

¿Sólo sale eso en el error?, es que el 204 normalmente sucede cuando la tabla es desconocida, aunque también sucede en otros casos (Como tipo de datos incorrecto, procedimiento desconocido...) pero viene acompañado el código de error, con su respectivo mensaje, algo como...

Para mí que ConceptosTable no existe y simplemente es Conceptos.

Tienes toda la razón jhonny

la tabla ConceptosTable no existe, es el nombre del TQuery.... la tabla es CONCEPTOS!!!

Gracias!!!

¡Genial!, me alegra :).