Foros Club Delphi - Necesito traer todas las tablas de una base

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)

- - Necesito traer todas las tablas de una base (https://www.clubdelphi.com/foros/showthread.php?t=64799)

peripla

20-04-2009 16:43:40

Necesito traer todas las tablas de una base

Para ello utilizo lo siguiente :

Código:

  With frmRegistro do begin

    cmbtabla.Clear;

    st := 'SELECT nameas a FROM sysobjects WHERE (xtype = ' + QuotedStr('U') + ') ORDER BY name ';

    AbreQuery(st,rs);

    While not rs.Eof do begin

      cmbtabla.items.Add(rs.fieldbyname('a').AsString);

     rs.Next;

    end;



  end;

El tema es que no encuentra el campo name, por ello me devuelve un error.
Cuando listo "select * from sysobjects......" Tampoco me trae el campo name, alguien me puede ayudar ? Muchas gracias, utilizo delphi 6 y sql server 2000.

rruz	20-04-2009 18:31:05

debes reemplazar
st := 'SELECT nameas a FROM sysobjects WHERE (xtype = ' + QuotedStr('U') + ') ORDER BY name ';

por
st := 'SELECT [name] as a FROM sysobjects WHERE (xtype = ' + QuotedStr('U') + ') ORDER BY [name] ';

jmandrake

20-04-2009 18:35:07

Usando Conexion ADO

Hola, si lo que deseas hacer es conseguir la lista de las tablas de tu DB en SQL Server 2000, una forma de lograrlo es, si utiliza conexion ADO, invocando el metodo GetTableNames que tiene el componente ADOConnection.

Has lo siguiente:
1.- en un formulario usa un Boton, un ComboBox y un componente ADOConnection

2.- Configurar las propiedades de conexion necesaria del Objeto ADOConnection, ( imagino que sabes como hacer esto).

3.- En el evento OnClick del Boton pon esta lina de codigo y listo.

Código Delphi [-] ComboBox1.Clear;
    ADOConnection1.GetTableNames(ComboBox1.Items,false);

Un saludo, espero que te sea util.

La franja horaria es GMT +2. Ahora son las 10:29:12.