[Resolvido] Listar Bancos de Dados SQL

[Fábio Ramos 0]

como faço para listar todos os bancos de dados de uma instância sql?

[Mário Monteiro 179]

As regras do forum proibem posts em caixa alta

[Claudio Neto 3]

Olá Fabio.

 

Veja se a solução abaixo se encaixa no seu problema:

 

Dim cn As New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=seu_database;Data Source=seu_servidor"
cn.Open

Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM [master].[dbo].[sysdatabases] ", cn, 3, 3

Do Until rs.EOF
	MsgBox rs("name")
	rs.MoveNext
Loop

Isso é para conexão com MSSQL Server 2000. Mas note que para pegar a listagem de todos, você já precisa estar conectado em um para conseguir rodar seu recordset.

 

Se isso não der certo para você avise.

 

Abraços e boa sorte.

[Fábio Ramos 0]

Obrigado Claudio, funcionou perfeitamente.