Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 03-01-2015
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 17
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Tenes dos alternativas:

A: Mandas por parametro un TStrings al cual se le vas a hacer el .Add(nombre empleado)

Código Delphi [-]
Unit UEmpleados;

interface

uses System, Classes, // etc...

procedure CargarEmpleados(ListaEmpleados: TStrings);

implementation

procedure CargarEmpleados(ListaEmpleados: TStrings);
begin
  // si no esta instanciado el objeto tipo lista hay que crearlo
  // en este ejmplo use un TStringList pero podria ser cualquiera que herede de TStrings (que es abstracta)
  if not(Assigned(ListaEmpleados) then
    ListaEmpleados := TStringList.Create;

  with TZQuery.Create(NIL) do
  begin
    Connection := < Tu conexion a la BD acá >
    SQL.Clear;
    SQL.Add('Select * From Empleados');
    Open;

    ListaEmpleados.Items.Clear;
    First;
    while not Eof do
    begin
      ListaEmpleados.Items.Add(FieldByName('NombreEmpleado').AsString);
      Next;
    end;
  end;
end;

B: En ves de un procedure tenes una function la cual te retorna directamente la lista

Código Delphi [-]
Unit UEmpleados;

interface

uses System, Classes, // etc...

function CargarEmpleados: TStrings;

implementation

function CargarEmpleados: TStrings;
begin
  result := TStringList.Create;

  with TZQuery.Create(NIL) do
  begin
    Connection := < Tu conexion a la BD acá >
    SQL.Clear;
    SQL.Add('Select * From Empleados');
    Open;

    result.Items.Clear;
    First;
    while not Eof do
    begin
      result.Items.Add(FieldByName('NombreEmpleado').AsString);
      Next;
    end;
  end;
end;


No use nunca los componentes ZEOS, igual me los imagino muy similares a los ADO.
El tema del TZQuery que creo en tiempo de ejecucion es porque el que estabas usando vos no lo conoce la unit UEmpleados. Poner en el uses el principal para poder acceder a ese componente query me parece muy mala idea, si tenes que usar el mismo procedimiento en otro form y por casualidad ese form no existe no vas a poder usar el ZQuery1. El connection para asignarle al query, es el TZConnection creo para ZEOS, que tendras en un DataModule, obviamente tenes que incluir la unit del DataModule en el uses

Saludos!

EDITO: Se me adelanto el compañero nelson

Última edición por AgustinOrtu fecha: 03-01-2015 a las 02:25:05.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
¿Modulo Rss para php nuke 7.9? JXJ PHP 0 20-06-2006 18:43:23
Sugerencia para un módulo de Inventarios JorgeBec Varios 2 10-12-2005 22:04:28
Módulo de Imágenes para mi programa Sergio J. Gráficos 3 26-10-2005 14:34:47
Modulo en vb6 para traducir la aplicacion Cerathos Conexión con bases de datos 0 16-04-2005 04:05:51
Como declarar variables para que las puedan utilizar otras units erocha Varios 1 07-11-2003 22:21:27


La franja horaria es GMT +2. Ahora son las 03:47:52.


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