ayuda SQL Server

[Salnhack]

Hola a todos, agradeceria si me ayudaran, necesito mostrar en un combobox las bases de datos existente en mi servidor SQL utilizo Microsoft SQL Server 2000, como podria hacerlo.

Saludos.

[look]

Empezado por Salnhack

Hola a todos, agradeceria si me ayudaran, necesito mostrar en un combobox las bases de datos existente en mi servidor SQL utilizo Microsoft SQL Server 2000, como podria hacerlo.

Saludos.

Código SQL [-]
SELECT name 
    FROM master..sysdatabases 
    ORDER BY name

Saludos!

[[gatosoft]]

O desde cualquier base:

Código SQL [-]
select * from sys.databases

tambien puedes revisar las consultas interesantes que hay bajo SYS:

Código SQL [-]
select * from sys.all_Objects

Código SQL [-]
select * from sys.all_columns

Código SQL [-]
select * from sys.all_sql_modules

Código SQL [-]
select * from sys.all_sql_modules

[Salnhack]

gracias por la ayuda, disculpen mi ignorancia pero soy nuevo con el trabajo con MS SQL Server pero me podian decir como conecto mi combobox, porque trate de agregarle esta consulta a un ADOQuery y me da error

[Casimiro Notevi]

Empezado por Salnhack

y me da error

Recuerda explicar las cosas claramente, piensa que nosotros no sabemos qué error te sale, ni tenemos una bola mágica para adivinar

[olbeup]

Te puedes crear un función que te devuelva todas las bases de datos:

Código Delphi [-]
// Devuelve todas las bases de datos
function TForm1.GetAllSysMSSDataBasesToStringsList: TStrings;
var
  adoCnnTmp: TADOConnection;
  ConnectionString: WideString;
begin
  ConnectionString := 'Provider=SQLNCLI.1;' +
                      'Password=123;' +
                      'Persist Security Info=True;' +
                      'User ID=sa;' +
                      'Data Source=SERVIDOR\SQLEXPRESS';

  adoCnnTmp := TADOConnection.Create(nil);
    adoCnnTmp.Connected := False;
    adoCnnTmp.LoginPrompt := False;
    adoCnnTmp.ConnectionString := ConnectionString;

  with TADOQuery.Create(nil) do
  begin
    Connection := adoCnnTmp;

    SQL.Add('SELECT');
    SQL.Add('    UPPER(name) AS DBNAME');
    SQL.Add('  FROM sys.databases');
    SQL.Add('  ORDER BY name');

    Open;

    Result := TStringList.Create;

    while (not Eof) do
    begin
      Result.Add(FieldByName('DBNAME').AsString);
      Next;
    end;

    adoCnnTmp.Free;
    Free;
  end;

end;

Después con un Button o en el OnCreate del formulario realizas:

Código Delphi [-]
...
begin
  ComboBox1.Items.Assign(GetAllSysMSSDataBasesToStringsList);
end;

y eso es todo.

Un saludo.