Asunto: Función para obtener las tablas de MySQL en un TStringList
¿Cómo puedo hacer una función que obtenga las tablas de una base de datos MySQL y las guarde (el nombre de la tabla) en un TStringList?
Publicado:
Mar Oct 10, 2006 8:26 pm
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Función para obtener las tablas de MySQL en un TStringLi
Anuncios
varios escribió:
¿Cómo puedo hacer una función que obtenga las tablas de una base de datos MySQL y las guarde (el nombre de la tabla) en un TStringList?
Puedes utilizar, por ejemplo, la siguiente función realizada en Delphi:
Código:
function obtenerMySQLTablas () : TStringList;
var
lista : TStringList;
begin
lista := TStringList.Create;
md.tc.Close;
md.tc.SQL.Clear;
md.tc.SQL.Add('SHOW TABLES');
try
md.tc.Open;
while not md.tc.Eof do
begin
lista.Add (md.tc.Fields[0].AsString);
md.tc.Next;
end;
Result := lista;
except
Result := lista;
end;
md.tc.Close;
end;
Donde:
* md.tc: "md" es el nombre del módulo de datos (DataModule) donde se encuentra el TQuery ("tc").
* txtTabla: componente de tipo TMemo donde se mostrarán las tablas de la base de datos (el resultado de la ejecución de la función).
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A