Código Delphi
[-]
procedure TFiller.Iniciar_statement;
case iStatus of
1 :
begin
sSqlstatement := ('SELECT distinct ref_type '+
'FROM technical_inf '+
'WHERE id_part_type=0');
Incluir_fabricante;
DataModule2.IBSQL1.SQL.Add(sSqlstatement);
DataModule2.IBSQL1.ExecQuery;
i := 1;
...
Al ejecutarse la linea del
"ExecQuery" me da el siguiente error:
SQL error code = -104
Token unknow - line 2, char 1
SELECT.
Generalmente suelen ser fallos mios a la hora de escribir la consulta, algun espacio que no pongo y cosas asi, pero es que en esta, no veo lo que falla.
¿Algun sagaz forero me ayuda?
ACTUALIZANDO:
Mi cerebro me dice que el error lo cometo al iniciar las consultas.
Código Delphi
[-]
Terminar_transaccion;
Iniciar_transaccion;
Iniciar_Statement;
las cuales son:
Código Delphi
[-]
procedure TFiller.Terminar_transaccion;
begin
if DataModule2.IBDataSet1.Transaction.Active then
begin
DataModule2.IBDataSet1.Transaction.Commit;
end;
end;
Código Delphi
[-]
procedure TFiller.Iniciar_transaccion;
begin
DataModule2.IBDataSet1.Transaction.StartTransaction;
DataModule2.IBDataSet1.SelectSQL.Clear;
end;
Y estoy usando un StringGrid que rellenare con el resultado de la consulta que me da error, pero creo que a lo mejor, al estar la transaccion activa del DataModule, hace que no pueda ejecutar la consulta correctamente.
¿me explico?