Discussion :

[ghita269]

j'ai un formulaire et une base access je veux faire la recherche d'un nom et afficher le prenom dans un champ texte voila le code le probeleme quand j'execute il me donne le formulaire mais il fais pas la recherche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
<%@ Language=VBScript %>
<%
DSN_BASE = "DBQ=" & Server.Mappath("mabase2.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25" %>
 
<% 
Set Conn = Server.CreateObject("ADODB.Connection")
 Conn.Open DSN_BASE
Set rs = Server.CreateObject("ADODB.Recordset")%>
 
<% 
 
rs.Open "SELECT * FROM éléve ", Conn
num=Request("Nom")
if num <> "" then
set rs=Conn.execute("select * from éléve where Nom="&num&"")
if rs.EOF=false then
request.Form("Prenom")=rs.Fields(Prenom)
else
response.write("Client inéxistant")
end if
end if
%>

[Immobilis]

Un seul post devrait suffire.
Peux-tu supprimer les deux autres STP?
Merci
Sinon, il faut des guillemets pour encadrer une chaine.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Conn.execute("select * from éléve where Nom='" & num & "'")

Entre parentheses, n'utilise pas de caractères accentués dans tes bases de données...

A+

[ghita269]

Merci j'a fais ce que tu as dis
tjs le meme probleme

surement il ya une erreur dans ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
<%@ Language=VBScript %>
<%
DSN_BASE = "DBQ=" & Server.Mappath("mabase2.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25" %>
 
<% 
Set Conn = Server.CreateObject("ADODB.Connection")
 Conn.Open DSN_BASE
Set rs = Server.CreateObject("ADODB.Recordset")%>
 
<% 
 
rs.Open "SELECT * FROM éléve ", Conn
num=Request("Nom")
if num <> "" then
set rs=Conn.execute("select * from éléve where Nom='" & num & "'") 
if rs.EOF=false then
request.Form("Prenom")=rs.Fields(Prenom)
else
response.write("Client inéxistant")
end if
end if
%>

[gyouk]

tu veux afficher le prenom du gars en ayant saisi le nom c'est bien ca ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

request.Form("Prenom")=rs.Fields(Prenom)

je vois pas trop pourquoi cette ligne.

pi evite peut etre les accents dans le nom de tes tables, sera plus propre (enfin chui maniaque mais bon)
Peux tu expliquer un peu mieux comment tu fais pour "lancer" la recherche. Tu as un form ? un lien ?

[Immobilis]

request.Form("Prenom")=rs.Fields(Prenom)

Je ne savais pas qu'on pouvait affecter une valeur au données d'un formulaire posté. Supprime la pour voir.
En plus, il faut mettre des guillemets ici:

rs.Fields("Prenom")

A+

[ghita269]

oui je veux afficher le prenom du gars en ayant saisi le nom

Peux tu expliquer un peu mieux comment tu fais pour "lancer" la recherche. Tu as un form ? un lien ?

je lance la recherche par un boutton

sinon si je supprime
request.Form("Prenom")=rs.Fields("Prenom")
je remplace cette ligne par quoi pour que le requette affiche le prenom dans un champ texte

[Immobilis]

je remplace cette ligne par quoi pour que le requette affiche le prenom dans un champ texte

<input type="text" name="textfield" value="<%=rs("prenom")%>">

A+

[ghita269]

oui mais le champ text est dejas creé ici

<TD><INPUT id=text3 style="WIDTH: 118px; HEIGHT: 22px" size=15
name=Prenom></TD>

donc je veux une ligne sans ça
<input type="text" name="textfield

[Immobilis]

Ben tu ne le mets pas... L'important c'est "value".