Combinar Dos Dblookupcombobox

[donpedro]

AgustinOrtu, hola

no me ha funcionado, no se si lo hice mal............si podrias hacer un ejempo, lo agradeceria mucho,, o si no tendre que trucear el programa
quizas agregando un edit que me capture el id de servicios, y luego hacer la comparacion con ese edit.

[[AgustinOrtu]]

Muestra el código y si da error cual y donde ocurre

[donpedro]

HOla, mira lo que tuve que hacer.........

en el evento Onclick del Dblookupcombobox correspondietne a SERVICIOS coloque el siguiente codigo

Código Delphi [-]
edit1.Text:=inttostr(fmodulo.T_Servicios.FieldByName('servicios_id').AsInteger);

with fmodulo do
begin
q_generico.close;
q_generico.SQL.Clear;
q_generico.SQL.Add('select * from grados where servicios_id='+edit1.Text +'');
q_generico.Open;



end;

Le paso al edit1 el id de servicios que selecciono, luego con la consulta comparo el id de servicio de la tabla GRADOS con el numero que esta en el edit1. y asi me funciona..............un poco truqueao...que creen

[[AgustinOrtu]]

Y como habias hecho antes que te daba error/no funcionaba? Eres el segundo hoy que le recomiendo que use parametros en sus comandos SQL

Creo que me voy a hacer una placa como la de Casimiro de los Tags

[rocksoft]

Buenas,

Código Delphi [-]
edit1.Text:=inttostr(fmodulo.T_Servicios.FieldByName('servicios_id').AsInteger);

aparte de lo que te menciona AgustinOrtu, dos cositas si ya que haces lo de arriba en asignar un valor a un edit, lo que no es elegante ni tiene mucho sentido, mejor lo haces de esta manera:

Código Delphi [-]
var s:string
..
s:=fmodulo.T_Servicios.FieldByName('servicios_id').AsString

lo segundo no uses el evento onclick, cada vez que pinches el Dblookupcombobox se dispara el codigo del query, usa como mencionando en el primer post:

puedes usar en Dblookupcombobox el metodo onchange, o del datasource ondatachange.

[Casimiro Noteví]

Empezado por AgustinOrtu

Creo que me voy a hacer una placa como la de Casimiro de los Tags