MySQL Tablas y campos tabla

[Ramiro_Hf]

Hola a todos, existe la posibilidad de cargar en un componente delphi las tablas de una BD MySQL.
Y que al seleccionar la tabla en el componente nos llene otro con los nombres de los campos de la tabla seleccionada.
Podríais orientarme como hacerlo.
Gracias
PD Utilizo componentes Zeos y Delphi-6

[roman]

Revisa los métodos GetTableNames y GetColumnNames del componente ZConnection.

// Saludos

[Ramiro_Hf]

Me da un error al compilar
[Error] Unit1.pas(38): There is no overloaded version of 'GetTableNames' that can be called with these arguments
Es como si el metodo no existiera ¿no?, no tengo manual del componente ¿podría conseguir alguno?
Gracias.

[rgstuamigo]

Y que tal usar un componente TreeView para visualisar tus tablas y cada campos de tus tablas, para MySQL se puede utilizar la siguiente consulta para conocer todas las tablas de una determinada Base de datos:

Código SQL [-]
show tables;

Y para conocer los campos de una determinada tabla se puede hacer así:

Código SQL [-]
Describe Nombre_de_tu_Tabla;

De ahí podemos hacer lo siguiente desde Delphi usando el evento OnClick de un Boton:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var TableName,CampoName:String;
nodo:TTreeNode;
begin
   with ZQuery1 do
     begin
      SQL.Text:='show tables;';
      Open;
      TreeView1.Items.Clear;
        while not Eof do
        begin
          TableName:=Fields[0].AsString;
          nodo:=TreeView1.Items.AddChild(nil,TableName);
              with ZQuery2 do
              begin
                 SQL.Text:='describe '+TableName+';';
                 Open;
                  while not Eof do
                  begin
                    CampoName:=Fields[0].AsString;
                    TreeView1.Items.AddChild(nodo,CampoName);
                    Next;
                  end;
              end;
          Next;
        end;
     end;
end;

En ese caso yo estoy haciendo uso de dos componentes ZQuery para hacer las dos consultas anteriores.
Por supuesto que se le puede adornar un poco más al componente TreeView, poniendo por ejemplo, imagenes a los campos donde se podría poner un icono de una llavecita a los campos Primarios y cualquier otro icono a los demás, eso es cuestion de verificar el cuarto Campo al hacer la segunda consulta anterior mente expuesta arriba, es decir:

Código SQL [-]
 Describe Nombre_de_tu_Tabla; //<-El cuarto campo nos dice si es primario o no .

Espero sea de utilidad.
Saludos...

[[AzidRain]]

Hice una herramienta simple para hacer eso, creo que te puede servir descárgala aquí.

[Ramiro_Hf]

Hola, agradezco mucho las respuestas, en ambos casos las considero muy interesantes y en realidad a poner en práctica.

Por el momento he resuelto el tema con el siguiente codigo:

Mostrar las tablas (Llenando un listbox):

procedure TForm1.NxButtonMostrarClick(Sender: TObject);
var
Query:TZQuery;
sFiltro: String;
begin
if NxRbTodas.Checked then sFiltro := '_xx';
if nxRbSoloProd.Checked then sFiltro := '_xx_2';
ListBox1.Items.Clear;
ListBox2.Items.Clear;
Query:=TZQuery.Create(Self);
Query.Connection := ZConnection1;
Query.SQL.Add('show tables');
try
Query.Open;
while(not Query.Eof) do
begin
if pos(sFiltro, Query.Fields[0].AsString) <> 0 then
ListBox1.Items.Add(Query.Fields[0].AsString);
Query.Next;
end;
finally
Query.Close;
Query.Free;
end;
end;

Una vez llenado el listbox1 donde me muestra las tablas, al acer clic en cualquiera de ellas muestra los campos en el listbox2:

procedure TForm1.ListBox1Click(Sender: TObject);
var
Query:TZQuery;
begin
ZTable1.Active := False;
ZTable1.TableName := ListBox1.Items.Strings[ListBox1.ItemIndex];
ZTable1.Active := True;
ListBox2.Items.Clear;
Query:=TZQuery.Create(Self);
Query.Connection := ZConnection1;
Query.SQL.Add('show columns from '+NxBtnBD.Text + '.' + ZTable1.TableName );
try
Query.Open;
while(not Query.Eof) do
begin
ListBox2.Items.Add(Query.Fields[0].AsString);
Query.Next;
end;
finally
Query.Close;
Query.Free;
end;
end;

Evidente, se puede hacer a lo mejor mas elegante pero con esto he salido del paso. Gracias de nuevo a los que aportaron las ideas y podeis estar seguros que me van a servir y mucho por las caracteristicas de las mismas.
Un saludo.