Discussion :

[Kloun]

Bonjour,

Suite à la désinstallation d'Access 97 pour passer à Access 2003, le driver ODBC pour SQL Server (pour SQL Server 2000) a "disparu" des PC.
Quelqu'un a-t-il déjà eu ce problème ?
Comment a-t-il été résolu ?
Au pire ,comment faire pour réinstaller le driver ODBC ?

Merci.

[micniv]

Bonjour, Kloun

L'intallation 2003 : l'as-tu faite "Personnalisée" avec l'option "Tout exécuter depuis le disque dur" ?

[Kloun]

Plus d'informations :
Le problème est porvoqué par la desinstallation d'Access97 si 97 et 2003 son tinstallés ensemble.
Ce n'est pas moi qui m'occupe des installations.
Par contre c'est moi qu'on appelle quand il y a un problème.

La DLL qui va bien est toujours sur les postes, par contre il est impossible de faire un regsvr32.

[Kloun]

La réinstallation d'Access 2003 installe un driver ODBC pour SQL Server.
Mais, alors qu'auparavant j'avais le driver "SQL Server", maintenant, j'ai le driver "SQL Native Client".

Comment faire pour savoir (via VBA) lequel est installé ?
Merci.

[LedZeppII]

Bonjour,

Déclaration à mettre dans la section "Déclarations"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Declare Function SQLGetInstalledDrivers Lib "odbccp32.dll" _
    (ByVal lpszBuf As String, _
     ByVal cbBufMax As Integer, _
     ByRef pcbBufOut As Integer) As Long

Un exemple pour lister dans la fenêtre d'exécution, les pilotes dont la description commence par "SQL ":

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim MaxBuffSize As Integer, BuffSize As Integer, strBuff As String
Dim RetVal As Long, arrDrivers() As String, i As Integer
 
Do
    MaxBuffSize = MaxBuffSize + 256: strBuff = String(MaxBuffSize, vbNull)
    RetVal = SQLGetInstalledDrivers(strBuff, MaxBuffSize, BuffSize)
Loop Until BuffSize < MaxBuffSize
 
strBuff = Left(strBuff, BuffSize - 1)
arrDrivers = Split(strBuff, vbNullChar)
 
For i = LBound(arrDrivers) To UBound(arrDrivers)
    If arrDrivers(i) Like "SQL *" Then Debug.Print arrDrivers(i)
Next

A+

[Kloun]

Je m'étais fait une fonction qui teste les drivers et avec une gestion d'erreur, je récupérais le nom du driver qui fonctionnais mais j'me disais bien qu'il devait y avoir une API qui allait bien

Donc :
Fonction qui teste les drivers dispo (SQL Server ou SQL Native Client).
Si KO, installation de SQL Native Client grâce à sqlncli.msi dispo chez Microsoft et ça roule.