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 Form_Load()
' en DAO:======================================================================
'Dim str_SQL As String
'Dim str_ValeurMetier As String
'Dim objDB As DAO.Database
'Dim objRcdset_Source As DAO.Recordset
'
'
'str_SQL = "SELECT DISTINCT ID_ProfilUtilisateur FROM t_ProfilsUtilisateurs_AntolaCOREADD ORDER BY ID_ProfilUtilisateur"
'Set objDB = CurrentDb
'Set objRcdset_Source = objDB.OpenRecordset(str_SQL, dbOpenDynaset)
'Set Me.Type_utilisateur.Recordset = objRcdset_Source
'
'=================================================================================
'en ADO:
Dim objConnection As ADODB.Connection
Dim objRcdset_Source As New ADODB.Recordset
Dim str_SQL As String
Dim str_ValeurMetier As String
'Connection à la Base Access en cours
Set objConnection = CurrentProject.Connection
str_SQL = "SELECT DISTINCT ID_ProfilUtilisateur FROM t_ProfilsUtilisateurs_AntolaCOREADD ORDER BY ID_ProfilUtilisateur"
Set objRcdset_Source = New ADODB.Recordset
objRcdset_Source.Open str_SQL, objConnection, , , adCmdText
End Sub |
Partager