error en select
Publicado por Roberto (13 intervenciones) el 16/12/2018 19:46:26
Buenas.
Estoy intentando pasar los campos de una query filtrada por ID a unos tedit y siempre me da error la select.
El código es este. La variable cte es ya integer y no se si se puede comparar con el ID asi directamente o hay que hacerlo de otra forma el caso es que siempre me da un error.
Lo que quiero es que dependiendo de los que se teclee en un tedit llamado ncliente.text me busque los registros correspondientes en la tabla de clientes y me rellene los tedti de nomb.text, rs.text y dir.text con lo que traigan esos campos.
Algo a priori muy sencillo pero que no deja de darme errores.
Estoy intentando pasar los campos de una query filtrada por ID a unos tedit y siempre me da error la select.
El código es este. La variable cte es ya integer y no se si se puede comparar con el ID asi directamente o hay que hacerlo de otra forma el caso es que siempre me da un error.
Lo que quiero es que dependiendo de los que se teclee en un tedit llamado ncliente.text me busque los registros correspondientes en la tabla de clientes y me rellene los tedti de nomb.text, rs.text y dir.text con lo que traigan esos campos.
Algo a priori muy sencillo pero que no deja de darme errores.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TFpedidos.AplicarClick(Sender: TObject);
var
cte : integer;begin
cte := strtoint(ncliente.text);
//showMessage(inttostr(cte));
with query do
begin
close;
sql.clear;sql.text:='select * from clientes where ID = cte';
open;
nomb.Text:=FieldByName('NOM_CLI').AsString;
rs.Text:=FieldByName('RS_CLI').AsString;
dir.Text:=FieldByName('DIR_CLI').AsString;
query.Free;end;
end;
Valora esta pregunta
0
