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

[marcoszorrilla]

Código Delphi [-]
procedure TPacientes.ConsultaShow(Sender: TObject); begin
DM.Q_loc.Close;
DM.Q_loc.SQL.Clear;
 DM.Q_loc.SQL.Add('select LOCALIDAD from LOCALIDADES GROUP BY LOCALIDAD');
 DM.Q_loc.Open; while not DM.Q_loc.Eof do  // a lo que entiendo es mientras el query no haya llegado al ultimo registro
   begin     
loc_cons_pac.Items.Add(DM.Q_loc.Fields[2].Text); //le asigna a items del combo el texto que existe en el campo 2 (en ntro caso, nom_localidad esta en posicion 2, xq id_loc(0), cod_postal(1) fijate en BD)     DM.Q_loc.Next; // pasa al siguiente registro
   end;

Un Saludo.

[y_a_p]

Agradezco mucho tu ayuda, pero he probado el código q me mandaste y me sigue tirando el error del id en la linea en la q agrupo, me podrías proporcionar alguna otra solución, muchas gracias!!!

[Cañones]

Para mi el error está en
Fields[2] y según esa consulta sebería ser Fields[0]

Saludos.

[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í...

[Cañones]

Esa es una consulta de ejemplo nomás?
Sin agrupar funciona?

[y_a_p]

Si, funciona... Es mas la consulta sin agrupar funciona bien si selecciono todos los campos de localidad y yo quiero buscar solo por el nombre para poder agruparlo por q sino me muestra los nombres pero repetidos...

[Cañones]

Con la consulta

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

y Fields[0] no funciona?

[Cañones]

Empezado por y_a_p

Si, funciona... Es mas la consulta sin agrupar funciona bien si selecciono todos los campos de localidad y yo quiero buscar solo por el nombre para poder agruparlo por q sino me muestra los nombres pero repetidos...

Ahora que estoy en casa y con más tiempo....
Creo entender que estás confundido en la parte de los campos de la tabla y los campos del dataset.
La tabla de la db puede tener varios campos. IDLOCALIDAD, NOMBRE_LOCALIDAD, IDPROVINCIA, NRO_CODIGOPOSTAL .....
Pero la consulta del dataset solo trae un campo, LOCALIDAD por lo que Fields[] solo puede ser 0.
La prueba que haces y que funciona, es porque el dataset trae al menos 3 o mas campos, entonces Fields[2] te muestra lo que está en la tercer columna.
Creo que antes de decir que Fields[0] no funciona, tenías que probar y si de hecho no funciona ahí si repreguntar.
Tampoco es tan grave, el tiempo te va a forjar la paciencia que hace falta para programar, y por otro lado si en el club no se encuentra una solución a algo, es porque no existe.
Si estás trabajando con FireBird y dbx o ibx te puedo pasar unos apuntes que te van a ayudar.

Por otro lado y fuera del tema del tema principal, las localidades no se deberían repetir a menos que se llamen igual pero pertenezcan a distintas provincias/estado ... y si así lo fuese no se deberían agrupar tampoco.
No se si tu idea es programar todo a mano por el tipo de consulta, pero hay componentes que si le indicas el dataset, cargan los datos automativamente, pero también es otro tema.

Saludos.

[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!!!...