Bonjour tlm,
J'ai une requete qui ne me donne pas la reponse attendu et je ne comprends pas pourquoi. Je m'explique:
dans ma page asp j'ajoute 2 ou 4 enregistrements a une table de ma base access. Juste apres cette etape et dans la meme page je demande l'affichage de ces enregistrements dans un tableau. Etrangement le dernier enregistrement n'apparait pas que j'en ai rajouté 2 ou 4 c'est toujours le dernier. Je ne comprends pas pourquoi. Est ce que quelqu'un a une ID?
je mets une partie de mon code:
<% While NOT Recordset5.EOF%>
<%
IdT=recordset5.Fields.item("Id_TypVac").value
AU=0
SU=0
Set Recordset4 = Server.CreateObject("ADODB.Recordset")
Recordset4.ActiveConnection = MM_conn1_STRING
Recordset4.Source = "INSERT INTO Vacation (Date_Vac,Pt_TypVac_Vac,Nb_Lib_AU_Vac,Nb_Lib_SU_Vac) VALUES ('"&dtFerm2&"',"&IdT&","&AU&","&SU&")"
Recordset4.CursorType = 0
Recordset4.CursorLocation = 2
Recordset4.LockType = 1
Recordset4.Open()
recordset5.movenext()
wend
%>
<%
Recordset5.Close()
Set Recordset5 = Nothing
%>
<%
Set Recordset6 = Server.CreateObject("ADODB.Recordset")
Recordset6.ActiveConnection = MM_conn1_STRING
Recordset6.Source = "SELECT Id_Vac FROM Vacation WHERE Date_Vac='"&dtFerm2&"'"
Recordset6.CursorType = 0
Recordset6.CursorLocation = 2
Recordset6.LockType = 1
Recordset6.Open()
Recordset6_numRows = 0%>
<table border="1">
<tr>
<td>Id_Vac</td>
</tr>
<% While ((Repeat1__numRows <> 0) AND (NOT Recordset6.EOF)) %>
<tr>
<td><%=(Recordset6.Fields.Item("Id_Vac").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset6.MoveNext()
Wend
%>
</table>
Ca fait un moment que je suis sur leprobleme et je trouve pas... Help please! :)
MÔA Gloppy