as400

[Yoshi 1]

Bom Dia

 

To com o seguinte problema

 

Criei uma conexão direta com o As400 a conexão ta certa porem ao fazer busca esta dando erro to usando o seguinte codigo

 

begin

DMHOS.SQLQPACINT.Active:= False;

DMHOS.SQLQPACINT.SQL.Clear;

DMHOS.SQLQPACINT.SQL.Add('SELECT RAIINT, RGPINT, DTIINT, IDAINT FROM "LIBRARY"."TABELA"');

DMHOS.SQLQPACINT.SQL.Add('WHERE RAIINT = ' + TXTRA.Text);

DMHOS.SQLQPACINT.Active:= True;

end;

if (DMHOS.SQLQPACINT.RecordCount > 0) Then

begin

txtrg.Text:= DMHOS.SQLQPACINT.Fields[1].AsString;

txtdatainter.Text:=DMHOS.SQLQPACINT.Fields[2].AsString;

txtidade.Text:=DMHOS.SQLQPACINT.Fields[3].AsString;

end

 

vlws

 

[Yoshi 1]

Helllllllllllppppppppppppp

[marcio.theis 3]

Teria como colocar a mensagem de erro ?