Problème ODBC MySQL

Merci sa résolu mon problème

Pour les liens

Explication du problème
https://support.microsoft.com/fr-fr/...ion-of-windows

Download Fournisseur OLEDB 64*bits pour ODBC (MSDASQL) from Official Microsoft Download Center.html

https://www.microsoft.com/fr-fr/down....aspx?id=20065

Mon bout de programme en vb6

Code:

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
Private Sub ConnServer
   Dim rs As ADODB.Recordset
   Dim sql As String
   Dim conn As ADODB.Connection
   Set rs = New ADODB.Recordset
   Set conn = New ADODB.Connection
   conn.CursorLocation = adUseClient
 
   conn.ConnectionString = "DRIVER={MySQL ODBC 5.3 ANSI Driver};" ' _
                           & "SERVER = " & localHost & ";" _
                           & "Database = " & mabase & ";" _
                           & "UID = " & root & "; " _
                           & "PWD = " & mdp & ";option=3;"
 
 
   'conn.ConnectionString = "DSN=test;"
 
   conn.Open
   MsgBox "yes"
 
   sql = "select * from acteur"
  ' rs = conn.Execute(sql)
 
   rs.Open "select * from actor", conn, adOpenDynamic, adLockOptimistic
   rs.MoveFirst
   MsgBox rs!last_name
   conn.Close
   Set conn = Nothing
 
end sub

Créer votre connexion dans odbc

J'espère que sa peut aider ;)