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:
Questo è l'errore che mi genera quando l'esecuzione arriva sulla riga evidenziata in rosso: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
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![]()


Rispondi quotando
