Bonjour
Pour affichier des données d'une table d'une BD MySQL, j'ai utilisé le code suivant
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
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'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
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;"
Quelqu'un a une idée?
Merci
Partager