Retour à Forum de programmation

codage asp classique

  • Wurn
  • Graduate
  • Graduate
  • Avatar de l’utilisateur
  • Inscription: Mai 19, 2005
  • Messages: 122
  • Loc: Cape Town
  • Status: Offline

Message Juillet 29th, 2011, 2:40 am

Hé, je suis gaspiller mon temps posant une question ASP classique ici ?

Sinon, peut quelqu'un please m'informer comment je peux écrire du code pour regarder ma boîte de texte d'entrée de formulaires, prendre ce que l'utilisateur mis et ensuite chercher mon db MS Access et afficher les résultats. L'utilisateur sera seulement rechercher FirstName ou LastName

Je suis en utilisant Dreamweaver CS4, ASP et MS Access
Je sais, qu'il doit être possible de le faire. THX à l'avance

PS : please résister de moi d'utiliser d'autres programmes ou code informant. Seule raison im ne pas à l'aide d'ASP. NET est parce que pour une raison quelconque DW CS4 pas me permettra de créer un groupe de données à l'aide de jeu d'enregistrements. Si j'utilise ASP classique il me donne ensuite l'option de jeu d'enregistrements.

Heres mon code :
Code: [ Select ]
<%
Dim Recordset__ID
Recordset__ID = "1"
If (Request.Form("")   <> "") Then
 Recordset__ID = Request.Form("")  
End If
%>
<%
Dim Recordset
Dim Recordset_cmd
Dim Recordset_numRows

Set Recordset_cmd = Server.CreateObject ("ADODB.Command")
Recordset_cmd.ActiveConnection = MM_Smit_STRING
Recordset_cmd.CommandText = "SELECT ?, FirstName, LastName, ext, cell FROM tel WHERE FirstName LIKE 'w%'"
Recordset_cmd.Prepared = true
Recordset_cmd.Parameters.Append Recordset_cmd.CreateParameter("param1", 200, 1, 255, Recordset__ID) ' adVarChar

Set Recordset = Recordset_cmd.Execute
Recordset_numRows = 0
%>
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&_
Server.MapPath ("/database/smit.mdb") & ";"
set rs = conn.execute("SELECT = NULL")
if (RS.BOF and RS.EOF) then
    response.write "No records found"
    response.end
End if
%>

my Recordset fields:



       <td height="30" align="left"><span class="p"><%=(Recordset.Fields.Item("FirstName").Value)%></span></td>
       <td height="30" align="left"><span class="p"><%=(Recordset.Fields.Item("LastName").Value)%></span></td>
       </tr>
      <tr>
       <td height="30" align="left"><span class="p"><%=(Recordset.Fields.Item("cell").Value)%></span></td>
       <td height="30" align="left"><span class="p"><%=(Recordset.Fields.Item("ext").Value)%></span></td>
  1. <%
  2. Dim Recordset__ID
  3. Recordset__ID = "1"
  4. If (Request.Form("")   <> "") Then
  5.  Recordset__ID = Request.Form("")  
  6. End If
  7. %>
  8. <%
  9. Dim Recordset
  10. Dim Recordset_cmd
  11. Dim Recordset_numRows
  13. Set Recordset_cmd = Server.CreateObject ("ADODB.Command")
  14. Recordset_cmd.ActiveConnection = MM_Smit_STRING
  15. Recordset_cmd.CommandText = "SELECT ?, FirstName, LastName, ext, cell FROM tel WHERE FirstName LIKE 'w%'"
  16. Recordset_cmd.Prepared = true
  17. Recordset_cmd.Parameters.Append Recordset_cmd.CreateParameter("param1", 200, 1, 255, Recordset__ID) ' adVarChar
  19. Set Recordset = Recordset_cmd.Execute
  20. Recordset_numRows = 0
  21. %>
  22. <%
  23. set conn = Server.CreateObject("ADODB.Connection")
  24. conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&_
  25. Server.MapPath ("/database/smit.mdb") & ";"
  26. set rs = conn.execute("SELECT = NULL")
  27. if (RS.BOF and RS.EOF) then
  28.     response.write "No records found"
  29.     response.end
  30. End if
  31. %>
  33. my Recordset fields:
  37.        <td height="30" align="left"><span class="p"><%=(Recordset.Fields.Item("FirstName").Value)%></span></td>
  38.        <td height="30" align="left"><span class="p"><%=(Recordset.Fields.Item("LastName").Value)%></span></td>
  39.        </tr>
  40.       <tr>
  41.        <td height="30" align="left"><span class="p"><%=(Recordset.Fields.Item("cell").Value)%></span></td>
  42.        <td height="30" align="left"><span class="p"><%=(Recordset.Fields.Item("ext").Value)%></span></td>
  • Anonymous
  • Bot
  • No Avatar
  • Inscription: 25 Feb 2008
  • Messages: ?
  • Loc: Ozzuland
  • Status: Online

Message Juillet 29th, 2011, 2:40 am

  • ultimate11
  • Student
  • Student
  • No Avatar
  • Inscription: Fév 02, 2011
  • Messages: 86
  • Status: Offline

Message Août 3rd, 2011, 10:18 pm

Je ne peux pas votre question, mais il semble que vous voulez rechercher des txtbox d'entrée que l'utilisateur inscrit et afficher le résultat et si vous souhaitez rechercher soit au prénom et nom, vous pouvez ajouter un ou "||« condition...:hmm:
Code: [ Select ]
<%

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open (Server.MapPath("mydb.mdb"))
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "Select * from mytable where lastname='"&request.form("src")&"'", conn

do until rs.EOF

%>
        <td>    <%    response.write(""&rs("lastname")&"&nbsp;&nbsp;")%>    </td>
        <td>    <%    response.write(""&rs("first_name")&"&nbsp;&nbsp;")%>    </td>
        </tr>
    
<%


    rs.movenext
loop

rs.close
conn.close
%>
  1. <%
  3. set conn=Server.CreateObject("ADODB.Connection")
  4. conn.Provider="Microsoft.Jet.OLEDB.4.0"
  5. conn.Open (Server.MapPath("mydb.mdb"))
  6. set rs=Server.CreateObject("ADODB.recordset")
  7. rs.Open "Select * from mytable where lastname='"&request.form("src")&"'", conn
  9. do until rs.EOF
  11. %>
  12.         <td>    <%    response.write(""&rs("lastname")&"&nbsp;&nbsp;")%>    </td>
  13.         <td>    <%    response.write(""&rs("first_name")&"&nbsp;&nbsp;")%>    </td>
  14.         </tr>
  15.     
  16. <%
  19.     rs.movenext
  20. loop
  22. rs.close
  23. conn.close
  24. %>

Page 1 sur 1

Afficher de l'information

  • Total des messages de ce sujet: 2 messages
  • Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 102 invités
  • Vous ne pouvez pas poster de nouveaux sujets
  • Vous ne pouvez pas répondre aux sujets
  • Vous ne pouvez pas éditer vos messages
  • Vous ne pouvez pas supprimer vos messages
  • Vous ne pouvez pas joindre des fichiers
 
 

© 2011 Unmelted, LLC. Ozzu® est une marque déposée de Unmelted, LLC