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
| 'Activer Microsoft ActiveX Data Objects 2.5 Library
Dim Connexion As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim Requete As String
'-----------------
Private Sub Form_Load()
'Création de la connexion ODBC par regedit
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\Connect\DATABASE", T_DataBase, "REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\Connect\DESCRIPTION", "T_Description", "REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\Connect\Driver", "C:\Program Files\MySQL\Connector ODBC 5.2\Unicode\myodbc5w.dll", "REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\Connect\PORT", "3306", "REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\Connect\PWD", T_Password, "REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\Connect\SERVER", T_Host, "REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\Connect\UID", T_User, "REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources\Connect", "MySQL ODBC 5.2w Driver", "REG_SZ"
'----------------------
'Connexion à la base de données
Connexion.Provider = "MSDASQL.1; Persist Security Info=False; User ID=T_User; Data Source=MySQL Serveur; Initial Catalog=T_DataBase"
Connexion.Open
Requete = "SELECT * FROM DB_TestAppli"
RS.CursorLocation = adUseClient
RS.Open Requete, Connexion, adOpenStatic, adLockOptimistic
RS.ActiveConnection = Connexion
RS.Close
End Sub |
Partager