Asunto: Función o procedimiento para obtener todas las tablas MySQL
Estoy realizando una aplicación con CodeGear Delphi, es una aplicación de facturación y contablidad, como base de datos utilizo MySQL Server 4.1. ¿Cómo puedo hacer un procedure o function que me devuelva todas las tablas de un catálogo? lo quiero para poder realizar determinadas tareas sobre todas las tablas de MySQL.
Publicado:
Dom Feb 01, 2009 7:15 pm
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Función o procedimiento para obtener todas las tablas My
Anuncios
varios escribió:
Estoy realizando una aplicación con CodeGear Delphi, es una aplicación de facturación y contablidad, como base de datos utilizo MySQL Server 4.1. ¿Cómo puedo hacer un procedure o function que me devuelva todas las tablas de un catálogo? lo quiero para poder realizar determinadas tareas sobre todas las tablas de MySQL.
Puedes utilizar esta función:
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;
Devolverá un TStringList con todas las tablas del catálogo de MySQL.
* "md" es un DataModule (Módulo de datos) donde están alojados los componentes de acceso a datos (TQuery, TTable, etc.).
* "tc" es un componente de tipo "TZQuery" que ha de estar enlazado con un "TZConnection" por la propiedad "Connection" del TZQuery.
El TZQuery y el TZConnection son componentes gratuitos de acceso a MySQL de ZeosDBO, en el siguiente artículo explicamos cómo instalarlos en Delphi:
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