Problème format de donnée access vers asp

Fermé
fdlprod - 29 janv. 2007 à 11:38
 founnzy - 13 avril 2007 à 13:28
Bonjour honorables programmeurs J'ai un petit souci qui me donne envie de me tordre le coup!!!!j'ai cherché sur des milliers de forums sans résultats,alors je fini par mendier.....jai une base de donnée access 97 que je vai modifier ou visualiser à laide d'html et de asp.Tout est crée jarrive à voir toute une table de la base avec une requête select * from (matabl).jarriv aussi à modifier ou a supprimer des lignes avec la clause where nomdecolonne=request.form(inmuttext) seulement si les données de ma base sont numériques!!!si c'est du texte asp me genère une erreur que je ne comprend vraiment pas car effectivement à partir du moment ou les données sont numériques je n'ai pas de problème.....le délire c'est que dans ma base ,je na'i pas une seule donnée numérique donc je sui s bien embetter et je n'arrive pas a avancer......ci joint un exemple d'une page qui marche seulement avec des données numériques

<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=windows-1252">
<TITLE>PC</TITLE>
</HEAD>
<BODY>
<%
ligne = Request.form("ligne")
serie = Request.form("num")

Param = Request.QueryString("Param")
Data = Request.QueryString("Data")
If IsObject(Session("_conn")) Then
Set conn = Session("_conn")
Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\inventaire\bd2.mdb;uid=Admin"
Set Session("_conn") = conn
End If
%>
<%

' c'est ici qu'il y a problème!!marequête est bonne!!???

sql = "select * from table where antivol=" &cstr(ligne)
response.write(sql)
Set rs = Server.CreateObject("ADODB.Recordset")

rs.open sql, conn


%>

<TABLE BORDER=1 BGCOLOR=#ffffff CELLSPACING=0><FONT FACE="Arial" COLOR=#000000><CAPTION><B>LISTE NC</B></CAPTION>

<THEAD>
<TR>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT SIZE=2 FACE="Arial" COLOR=#000000>serie</FONT></TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT SIZE=2 FACE="Arial" COLOR=#000000>antivol</FONT></TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT SIZE=2 FACE="Arial" COLOR=#000000>emplacement</FONT></TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT SIZE=2 FACE="Arial" COLOR=#000000>DSP</FONT></TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT SIZE=2 FACE="Arial" COLOR=#000000>PRT</FONT></TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT SIZE=2 FACE="Arial" COLOR=#000000>douchette</FONT></TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT SIZE=2 FACE="Arial" COLOR=#000000>prise</FONT></TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT SIZE=2 FACE="Arial" COLOR=#000000>EX</FONT></TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT SIZE=2 FACE="Arial" COLOR=#000000>EXPRT</FONT></TH>

</TR>
</THEAD>
<TBODY>
<%
On Error Resume Next
rs.MoveFirst
do while Not rs.eof
%>
<TR VALIGN=TOP>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=2 FACE="Arial" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("serie").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=2 FACE="Arial" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("antivol").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=2 FACE="Arial" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("emplacement").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=2 FACE="Arial" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("DSP").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=2 FACE="Arial" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("PRT").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=2 FACE="Arial" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("douchette").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=2 FACE="Arial" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("prise").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=2 FACE="Arial" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("EX").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=2 FACE="Arial" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("EXPRT").Value)%><BR></FONT></TD>

</TR>
<%
rs.MoveNext
loop%>
</TBODY>
<TFOOT></TFOOT>
</TABLE>



<%'-------fermeture de la connection et du recordset----------
Set Rs = Nothing
Conn.Close
Set Conn = Nothing%>
</BODY>
</HTML>




si vous voyez ce qu'il ne vas pas vous me seriez d'une grande aide!!!!merci tou plein
A voir également:

2 réponses

blux Messages postés 26365 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 14 octobre 2024 3 303
29 janv. 2007 à 12:32
Salut,

je mettrais bien des quotes comme séparateur de chaine :
sql = "select * from table where antivol = '" & cstr(ligne) & "';"
Access aime bien quand c'est délimité correctement...
0
Bonjour !!

Comme dit blux delimite bien tes var dans la requete ('"& XX &"') , acces est tres capricieu ....

Sinon personnelement j'ai eu pas mal de probleme avec acces ou il me renvoyé des erreur lors de requetes et la seule "solution" que j'ai trouvé a été d'utiliser la clause 'LIKE' au lieu de '=' , cela a réglé le pb chez moi mais c du bricolage ...

Sinon je vais surencherir avec une nouvelle question : sauriez vous comment definir qu'une var va contenir du string , du numrique , un entier etc ...
Est ce qu'une fonction existe pour cela ???

Merki
0