Lentisima la conexion con DB2 del AS400

[Javier_A]

Estas son las instrucciones, tardan en encontrar la informacion.


With Table2 DO
Begin
First;
While Not EOF Do
Begin
If Table2CODART.Value = Edit1.Text Then
Begin
Edit2.Text:=Table2CODART.Value;
Edit3.Text:=Table2DESART.Value;
end;
Next;

Y este grupo de instrucciones no me localizan el reg. adecuado, sale otro que no tiene nada que ver con lo que busco. ( La tabla tiene 2 indices y yo solo busco a traves de uno ).

Table2.Active:=True;
Table2.SetKey;
Table2.FieldByName('CODART').AsString:=copy(Edit1.text,1,length(Edit1.text));
Edit2.text:=Table2.FieldByName('CODART').AsString;
Table2.GotoKey;
end;

Perdona por las molestias, un saludo