Pasar campos de la tabla localidad a un combobox de el form paciente...

[ecfisa]

Empezado por y_a_p

No, disculpa te corrija, el 2 es para indicarle q campo de la BD se le asigna al combobox, se considera al primer campo de la DB=0, el primero=1 y asi sucesivamente, en mi caso quiero mostrar el nombre de la localidad q vendría a ser el campo nº 2, igual agradezco tu predisposición.
El error radica cuando agrupo, hago el seguimiento y me lo marca ahí...

Hola.

Me parece más claro utilizar la función FieldByName en lugar de la propiedad vectorial Fields. No existe lugar a dudas de que campo estamos hablando si la instrucción se escribe:

Código Delphi [-]
  loc_cons_pac.Items.Add(DM.Q_loc.FieldByName('LOCALIDAD').AsString);

Como ya te han explicado, hay que usar con cuidado la propiedad Fields, ya que si alteras el órden o el número de los campos en una consulta sin tomarlo en cuenta, puede devolverte un valor inesperado.

Saludos.

[Cañones]

Usar FieldByName sería lo correcto, pero no creo que estén declarados los campos.

[y_a_p]

Agradezco mucho su colaboración a todos, y quiero comentarles q ya probe con todas las opciones q me dijeron, pero me sigue tirando el mismo error, para ser más clara el error me tira cuando en la linea:

Código Delphi [-]
DM.Q_loc.SQL.Add('select LOCALIDAD from LOCALIDADES');

De lo contrario si yo modifico esa linea de código a:

Código Delphi [-]
DM.Q_loc.SQL.Add('select * from LOCALIDADES');

No me lo tira más, pero me muestra las localidades agrupadas, para q se entienda mejor hago esto:

Código Delphi [-]
begin
DM.Q_loc.Close;
DM.Q_loc.SQL.Clear;
DM.Q_loc.SQL.Add('select * from LOCALIDADES');
DM.Q_loc.Open;
while not DM.Q_loc.Eof do  
begin
loc_cons_pac.Items.Add(DM.Q_loc.FieldByName('LOCALIDAD').AsString); 
DM.Q_loc.Next;
end;

Que debería hacer para q no me las muestre más repetidas... ya q no puedo agruparlas porq no puedo seleccionarlas por localidad, desde ya muchas gracias!!!...

[ecfisa]

Empezado por y_a_p

Agradezco mucho su colaboración a todos, y quiero comentarles q ya probe con todas las opciones q me dijeron, pero me sigue tirando el mismo error

Hola y_a_p.

Ayudaría mucho que nos pusieses literalmente el mensaje de error que te arroja. (Ctr+C para copiarlo y Ctrl+V para pegarlo aquí en el mensaje)

Saludos.

[y_a_p]

---------------------------
Debugger Exception Notification
---------------------------
Project Project_tesis.exe raised exception class EDatabaseError with message 'Q_loc: Field 'ID_LOC' not found'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

[ecfisa]

Empezado por y_a_p

---------------------------
Debugger Exception Notification
---------------------------
Project Project_tesis.exe raised exception class EDatabaseError with message 'Q_loc: Field 'ID_LOC' not found'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Hola y_a_p.

Revisá si te está pasando algo parecido a esto.

Saludos.

[y_a_p]

Si, estamos haciendo lo mismo porq somos compañeras de tesis...

[[Chris]]

Empezado por y_a_p

---------------------------
Project Project_tesis.exe raised exception class EDatabaseError with message 'Q_loc: Field 'ID_LOC' not found'. Process stopped. Use Step or Run to continue.
---------------------------

SUPONGO: El componente de conexión está buscando el campo ID_LOC, el cual no estás trayendo con la consulta:

Código Delphi [-]
DM.Q_loc.SQL.Add('select LOCALIDAD from LOCALIDADES');

Para solucionarlo tienes que traer el campo necesario desde la consulta con una sql como esta:

Código Delphi [-]
DM.Q_loc.SQL.Add('select ID_LOC, LOCALIDAD from LOCALIDADES');

Este tipo de problemas es común si tienes una relación maestro detalle.

Por otro lado, a cómo te ha apuntado ya antes el compañero Delphius, no puedes hacer una agrupación así por así. El código SQL que tenías (select LOCALIDAD from LOCALIDADES GROUP BY LOCALIDAD) -por lo menos en Firebird- no te funcionará. Necesitas un campo "agregador/agrupador" que no existe en la consulta citada.

Para obtener una única copia de un valor repetido o no repetido, utiliza la clausula "DISTINCT" de SQL. Ya que no has mencionado el motor de base de datos que estás utilizando, desconozco si está soportada esa clausula. Lo más probable es que sí porque es muy común. Entonces tu consulta debería quedar así:

Código Delphi [-]
DM.Q_loc.SQL.Add('select distinct ID_LOC, LOCALIDAD from LOCALIDADES');

Ya que estás utilizando el valor del campo ID_LOC para no sé que, ignoro las consecuencias que pueda tener la clausula DISTINCT en el comportamiento de tu aplicación.

Saludos,
Chris.