Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 29-12-2011
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
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.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Llenar un combobox con los campos de una tabla enecumene Conexión con bases de datos 6 07-03-2007 21:42:28
como pasar los datos de un combobox a una tabla Goyo OOP 0 24-01-2007 19:59:50
como pasar los datos de un combobox a una tabla Goyo OOP 2 08-01-2007 23:21:22
como pasar los datos de un combobox a una tabla Goyo OOP 0 21-12-2006 21:13:49
pasar datos de la tabla a un combobox todook Conexión con bases de datos 5 29-11-2006 11:44:26


La franja horaria es GMT +2. Ahora son las 01:45:39.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi