Ciao ragazzi.
Qualche giorno fa avevo implementato una procedura che carica in una listbox l'elenco dei server di sql presenti sulla rete. e tutto funzionava alla perfezione.
Oggi ho riportato la stessa procedura in un nuovo progetto e mi sono accorta che non funziona più, nemmeno sul progetto "originario"; l'errore viene generato sulla riga in rosso.
Vi posto di seguito la procedura e l'errore che mi genera:
codice:
Private Function fCaricaListaServer() As Boolean
' carica nella listbox l'elenco dei server SQL disponibili
fCaricaListaServer = False
Dim i As Long
Dim SQL_App As New SQLDMO.Application
Dim SQL_Lst As SQLDMO.NameList
SQL_Lst = SQL_App.ListAvailableSQLServers
lBox_ElencoServer.Sorted = True
lBox_ElencoServer.Items.Clear()
For i = 1 To SQL_Lst.Count
lBox_ElencoServer.Items.Add(SQL_Lst.Item(i))
Next
fCaricaListaServer = True
End Function
Questo è l'errore che mi genera quando l'esecuzione arriva sulla riga evidenziata in rosso:
13: Unable to cast COM object of type 'System.__ComObject' to interface type 'SQLDMO.NameList'.
This operation failed because the QueryInterface call on the COM component for the interface with IID '{100....}' failed with HRESULT: 0x800004002 (Interfaccia non supportata. (Exception from HRESULT: ... (E_NOINTERFACE))).
Qualcuno di voi sa da cosa può dipendere?
Grazie a tutti

EDIT:
Ho dimenticato di dire che nel progetto ho ovviamente inserito già la referenza alla dll SQLDMO.dll