[VB2008] Controllare se è presente SQLExpress

[marco.santilli]

Sto cercando una funzioni che mi controlli se nel pc è gia installato SQLExpress2005

Questa funzione è perfetta su WIN7...ma va in errore su XP

Private Sub ControlloInstallazioneSQL()         
  Dim isInstalled As Boolean = False          
  Dim regSql As Microsoft.Win32.RegistryKey =   Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\MSSQLServer\MSSQLServer\CurrentVersion")          
  If regSql.GetValue("CurrentVersion") IsNot Nothing Then             
  isInstalled = True             
  MsgBox("Installato")         
  Else             
  MsgBox("Non Installato")         
  End If      
End Sub

Avete un'altro metodo da propormi?

Ciao e grazie

[MItaly]

"va in errore" in che senso?

[marco.santilli]

Originariamente inviato da MItaly
"va in errore" in che senso?

Uploaded with ImageShack.us

[MItaly]

Non c'entra XP in particolare... il problema è che tu controlli se esiste il valore "CurrentVersion", ma non verifichi se la sua chiave (la "cartella" in cui è contenuto) esiste, da cui la NullReferenceException; fai:

Dim isInstalled As Boolean = False          
Dim regSql As Microsoft.Win32.RegistryKey =   Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\MSSQLServer\MSSQLServer\CurrentVersion")          
isInstalled = (regSql IsNot Nothing) AndAlso (regSql.GetValue("CurrentVersion") IsNot Nothing)

[marco.santilli]

Originariamente inviato da MItaly
Non c'entra XP in particolare... il problema è che tu controlli se esiste il valore "CurrentVersion", ma non verifichi se la sua chiave (la "cartella" in cui è contenuto) esiste, da cui la NullReferenceException; fai:

Dim isInstalled As Boolean = False          
Dim regSql As Microsoft.Win32.RegistryKey =   Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\MSSQLServer\MSSQLServer\CurrentVersion")          
isInstalled = (regSql IsNot Nothing) AndAlso (regSql.GetValue("CurrentVersion") IsNot Nothing)

non ho capito come devo fare...
anche cosi mi da errore...
forse qualche errore nella lettura del registro....????

[MItaly]

Originariamente inviato da marco.santilli
non ho capito come devo fare...
anche cosi mi da errore...

Quale errore?
Com'è il codice che usi adesso?
Dovrebbe essere una cosa del tipo:

Private Sub ControlloInstallazioneSQL()         
    Dim isInstalled As Boolean = False          
    Dim regSql As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\MSSQLServer\MSSQLServer\CurrentVersion")          
    isInstalled = (regSql IsNot Nothing) AndAlso (regSql.GetValue("CurrentVersion") IsNot Nothing)
    If isInstalled Then
        MsgBox("Installato")         
    Else             
        MsgBox("Non Installato")         
    End If      
End Sub

[marco.santilli]

Un passo avanti è stato fatto....adesso non da più errore....


Però...

Su WIN7 mi dice "INSTALLATO" ed è giusto
Su XP mi dice "NON INSTALLATO", invece è installato...

Altra precisazione, non so se ne tiene conto, su XP ho sqlexpres 32 bit su WIN7 ho il 64 bit...

Se hai altre hai altre idee...sono pronto a provarle...

Ciao e grazie

[MItaly]

Ma sulla macchina XP andando con regedit sotto HKLM\SOFTWARE\Microsoft\MSSQLServer\MSSQLServer\Cu rrentVersion cosa trovi?

[marco.santilli]

XP


Uploaded with ImageShack.us


WIN7


Uploaded with ImageShack.us

[MItaly]

Il codice funziona correttamente, infatti sulla macchina XP la chiave che cerchi non c'è mica, dovresti trovare un'altra chiave che ti dica che MSSQL è installato... ma piuttosto, non è meglio cercare di collegarsi al DB locale e, se il collegamento fallisce, segnalare all'utente che non è stato trovato alcun DB server installato?