Bonjour

Pour affichier des données d'une table d'une BD MySQL, j'ai utilisé le code suivant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub Form_Load()
 
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
Dim StrCnn As String
 
StrCnn = "ODBC;DSN=EngTool;UID=EngUser;PWD=EngTool;
 
DATABASE=EngToolSQL_dbo"
 
Set cn = New ADODB.Connection
 
With cn
    .Provider = "MSDASQL"
    .Properties("Data Source").Value = StrCnn
    .Open
End With
 
   'Create an instance of the ADO Recordset class, and
   'set its properties
Set rs = New ADODB.Recordset
With rs
      Set .ActiveConnection = cn
      .Source = "SELECT * FROM TDepartment WHERE DptStatus = False"
      .LockType = adLockOptimistic
      .CursorType = adOpenKeyset
      .CursorLocation = adUseClient
      .Open
End With
 
   'Set the form's Recordset property to the ADO recordset
Set Me.Recordset = rs
Set rs = Nothing
Set cn = Nothing
End Sub
J'aurai voulu changé le Connection String pour ne pas utiliser un DSN par le string suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
StrCnn = "DRIVER={MySQL ODBC 5.1 Driver}; " _
                        & " SERVER=fc-mysql-ory1-101.ory1;" _
                        & " DATABASE=EngToolSQL_dbo;" _
                        & " UID=EngUser;" _
                        & " PWD=EngTool;OPTION=3;"
J'ai une erreur disant que la source n'existe pas et qu'il n'y a pas de Driver spécifié. POurtant ce String connection fonctionne dans une autre application

Quelqu'un a une idée?

Merci