<% Dim cn : Set cn = Server.CreateObject("ADODB.Connection") cn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\ben test\newintranet\db") & "\verif-equip.mdb;" cn.Open Dim rs, sql sql "SELECT YEAR(cl_nom_conj) AS Annee, MONTH(cl_nom_conj) AS Mois, num_tech, COUNT(*) AS Total FROM enquete WHERE num_tech '"& Cint(tech) &"' GROUP BY YEAR(cl_nom_conj), MONTH(cl_nom_conj), num_tech ORDER BY Annee, Mois, num_tech;" Set rs = cn.Execute(sql) If Not rs.EOF Then Do Response.Write annee & " " rs.MoveNext Loop While Not(rs.EOF) Else Response.Write "Rien à afficher !" End If %>
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionsql = "SELECT * FROM enquete WHERE num_tech=3;"
Dim Cn, ConnString Set Cn = Server.CreateObject("ADODB.Connection") ConnString = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\ben test\newintranet\db") & "\verif-equip.mdb;" cn.Open ConnString Dim Rs, Sql Set Rs = CreateObject("ADODB.RecordSet") Sql "SELECT YEAR(cl_nom_conj) AS Annee, MONTH(cl_nom_conj) AS Mois, num_tech, COUNT(*) AS Total FROM enquete WHERE num_tech '"& Cint(tech) &"' GROUP BY YEAR(cl_nom_conj), MONTH(cl_nom_conj), num_tech ORDER BY Annee, Mois, num_tech;" Rs.Open Sql, Cn, 3, 3