[ASP/ACCESS]Affichage d'un recordset dans des zones de texte
Affichage d'un recordset dans des zones de texte [ASP/ACCESS] - ASP - Programmation
MarshPosté le 24-06-2005 à 00:19:19
salut bon j'ai un interface avec une simple page Asp,j'ai rencontré un prb lorsque je veux afficher des information du table client à partir de access via Asp, j'ai créer une procédure au sein de Vbscript ds la page asp voilà le code:
sub Bconsulter_OnClick() dim a dim V a=inputbox("Entrer la valeur" )
<%rs.open "select * from Client",cn rs.movefirst do while not rs.eof %> if a=<%=rs.fields(0)%> then Frmclient.Numclient.value=<%=rs.fields(0)%> Frmclient.Nomclient.value=<%=rs.fields(1)%> Frmclient.preclient.value=<%=rs.fields(2)%> Frmclient.DatNais.value=<%=rs.fields(3)%> Frmclient.Adresse.value=<%=rs.fields(4)%> Frmclient.Codepostal.value=<%=rs.fields(5)%> V=<%=rs.fields(6)%> <%rs.close%> <% rs.open "Select Nomville from ville where numville=" & V & "",cn %> Frmclient.ville.value=<%=rs.fields(0)%> <%rs.close%> exit sub end if <%rs.movenext loop rs.close%> msgbox "Aucun muméro ne correspont à votre recherche"
end sub
voilà si il ya des question je suis là et j'attends vous réponse merci
Marsh Posté le 24-06-2005 à 00:19:19
salut bon j'ai un interface avec une simple page Asp,j'ai rencontré un prb lorsque je veux afficher des information du table client à partir de access via Asp, j'ai créer une procédure au sein de Vbscript ds la page asp voilà le code:
sub Bconsulter_OnClick()
dim a
dim V
a=inputbox("Entrer la valeur" )
<%rs.open "select * from Client",cn
rs.movefirst
do while not rs.eof
%>
if a=<%=rs.fields(0)%> then
Frmclient.Numclient.value=<%=rs.fields(0)%>
Frmclient.Nomclient.value=<%=rs.fields(1)%>
Frmclient.preclient.value=<%=rs.fields(2)%>
Frmclient.DatNais.value=<%=rs.fields(3)%>
Frmclient.Adresse.value=<%=rs.fields(4)%>
Frmclient.Codepostal.value=<%=rs.fields(5)%>
V=<%=rs.fields(6)%>
<%rs.close%>
<% rs.open "Select Nomville from ville where numville=" & V & "",cn %>
Frmclient.ville.value=<%=rs.fields(0)%>
<%rs.close%>
exit sub
end if
<%rs.movenext
loop
rs.close%>
msgbox "Aucun muméro ne correspont à votre recherche"
end sub
voilà si il ya des question je suis là et j'attends vous réponse merci