Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   MS SQL Server (https://www.clubdelphi.com/foros/forumdisplay.php?f=23)
-   -   Como seleccionar datos de una columna en base a un dato de otra de la misma Tabla (https://www.clubdelphi.com/foros/showthread.php?t=85938)

maxzama 03-12-2014 22:06:28

Maestro-detalle
 
Aqui te mando una idea:

Código Delphi [-]
    combobox4.Clear; // limpiar
    Dmodulo.municipio.SQL.Clear ; // limpiar
    Dmodulo.municipio.SQL.Add('select * from municipio where municipio=:A'); // selecciono el campo maestro
    Dmodulo.municipio.ParamByName('A').Value:=combobox3.Text;     // veo si es igual
    Dmodulo.municipio.Open;                                                          // abro
    edit5.Text:=Dmodulo.municipio.FieldByName('CODIGOM').Value;    // lo paso
    Dmodulo.parroquia.SQL.Clear ;                                                  // limpio

    Dmodulo.parroquia.SQL.Add('select * from parroquia where CODIGOM=:A'); // selecciono el campo
    Dmodulo.parroquia.ParamByName('A').Value:=edit5.Text;                         // veo si es igual
    Dmodulo.parroquia.Open;                                                                     // abro
    Dmodulo.parroquia.First;                                                        // lo mando a la primera fila
    while not Dmodulo.parroquia.Eof do                                                      // hago un ciclo
    begin
      // Muestro el campo que quiero(El Detalle)
      combobox4.Items.Add(DMODULO.parroquia.FieldByName('parroquia').AsString) ;
      Dmodulo.parroquia.Next; // fnl
    end;

Casimiro Notevi 04-12-2014 09:50:06

Cita:

Empezado por maxzama (Mensaje 486051)
Aqui te mando una idea:Código Delphi [-] combobox4.Clear; // limpiar Dmodulo.municipio.SQL.Clear ; // limpiar Dmodulo.municipio.SQL.Add('select * from municipio where municipio=:A'); // selecciono el campo maestro Dmodulo.municipio.ParamByName('A').Value:=combobox3.Text; // veo si es igual Dmodulo.municipio.Open; // abro edit5.Text:=Dmodulo.municipio.FieldByName('CODIGOM').Value; // lo paso Dmodulo.parroquia.SQL.Clear ; // limpio Dmodulo.parroquia.SQL.Add('select * from parroquia where CODIGOM=:A'); // selecciono el campo Dmodulo.parroquia.ParamByName('A').Value:=edit5.Text; // veo si es igual Dmodulo.parroquia.Open; // abro Dmodulo.parroquia.First; // lo mando a la primera fila while not Dmodulo.parroquia.Eof do // hago un ciclo begin // Muestro el campo que quiero(El Detalle) combobox4.Items.Add(DMODULO.parroquia.FieldByName('parroquia').AsString) ; Dmodulo.parroquia.Next; // fnl end;

Eso no es SQL.


La franja horaria es GMT +2. Ahora son las 10:38: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