Necesito traer todas las tablas de una base

[peripla]

Para ello utilizo lo siguiente :

  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]]

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]

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.