1 2 3 4 5 6 7 8 9 10
| Set Rs = New ADODB.Recordset
With Rs
.ActiveConnection = cnn
.Open "SELECT departementCentre.nom, employe.nom, [type_materiel].[nom_type], materiel.designation, materiel.nserie, affectation.[date_affectation] FROM DepartementCentre
INNER JOIN Employe ON (DepartementCentre.[id_dep]=employe.[id_depart_ctr])
INNER JOIN affectation ON (employe.[id_emp]=affectation.[id_emp])
INNER JOIN Materiel ON (affectation.[id_mat]=materiel.[id_mat])
INNER JOIN TypeMateriel ON (materiel.type=typemateriel.[id_type])
WHERE ( departementCentre.nom = ('" & UserForm5.ComboBox1.Text & "') ) ;", cnn _
, , adOpenStatic, adLockOptimistic, adCmdText |