Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   tablas y combobox (https://www.clubdelphi.com/foros/showthread.php?t=42548)

veloki 17-04-2007 11:20:43

tablas y combobox
 
Buenas.
Tengo el siguiente problema, quisiera recoger las tablas de una base de datos, si por ejemplo tengo dos tablas que empiezan por client quiero que las muestre en un combobox, pero no soy capaz, estoy usando ADO
gracias de antemano

Neftali [Germán.Estévez] 17-04-2007 11:35:44

Pasa los nombres de tabla a un TStrings y luego lo recorres y añades las que quieras al combo...

Código Delphi [-]
var
  TS:TStrings;
  i:Integer;
begin
  TS := TStringList.Create();
  ADOConnection.GetTableNames(TS, False{SystemTables});
  try
    // recorrido
    for i := 0 to (TS.Count - 1) do begin
      // Escoger las que quieras...      
      if (AnsiStrLComp(TS.Strings[i],'client', 6) = 0) then begin
        ComboBox1.Add(TS.Strings[i]);
      end;
    end;
  finally
    TS.Free;
  end;

Te lo he puesto de memoria, así que tal vez he cometido algun error de sintaxis, pero debería funcionar...

veloki 17-04-2007 12:51:54

muchas gracias por tu ayuda :)


La franja horaria es GMT +2. Ahora son las 00:15:13.

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