Per Lorenzo....conoscere il nome dei server con SQL installato.

martedì 06 giugno 2006 - 09.08

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

sal21 Profilo | Junior Member

63 messaggi | Data Invio: mar 6 giu 2006 - 09:08

Ciao Papà, dopo vari tentativi ho fatto qestu due macro. La prima funziona perfettamente e mi lista in un foglio di Excel tutti i server sql connessi. La seconda che ho creato per ssapere i nome dei database funziona solo se inserisco nella linea sottostante il nome del mio server montato sul mio pc, in questo caso "local". Ma se inserisco un altro nome dei server appaena rintracciati la macro mi ìda errore "440" Errore di automazione.
In effetti a me non intressa aprire e modificare i vari database sui server non locali, ma solo sapere il nome del database... si puo fare qualcosa?
Grazie.
objSQLServer.Connect "(LOCAL)"

my code:

Sub TEST_SQL()
Dim TEST As String
Dim RIGA As String

Set sqlApp = CreateObject("SQLDMO.Application")

Set serverList = sqlApp.ListAvailableSQLServers

numServers = serverList.Count
RIGA = 2

For I = 1 To numServers

TEST = serverList(I)

Range("A" + RIGA) = TEST
RIGA = RIGA + 1
Next

Set sqlApp = Nothing

End Sub
Sub DATABASE_SQL()
Dim TESTDBSQL As String

Const DisplaySystemDatabases = False

Set objSQLServer = CreateObject("SQLDMO.SQLServer")
objSQLServer.LoginSecure = True

objSQLServer.Connect "(LOCAL)"

For I = 1 To objSQLServer.Databases.Count
If (Not objSQLServer.Databases(I).SystemObject) Or DisplaySystemDatabases Then
TESTDBSQL = objSQLServer.Databases(I).name
End If
Next

End Sub

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !