login  Naam:   Wachtwoord: 
Registreer je!
 Scripts:

Scripts > ASP > Handige scripts > Items uit een database halen

Items uit een database halen

Auteur: JAppieJ - 18 maart 2005 - 17:40 - Gekeurd door: Joel - Hits: 3670 - Aantal punten: 3.13 (4 stemmen)




Met deze code kan je items uit een database halen.

Code:
De *.ZIP bevat de volgende bestanden:
- Index.asp
- Bekijken.asp
- Opmaak.css
- Database.mdb

Code 1: Index.asp
  1. <%
  2. 'Dit zijn de variabelen...
  3. Dim Connectie 'De connectie...
  4. Dim Records 'De recordset...
  5. Dim Pad 'Het pad naar de database...
  6. Dim SQL 'Met deze variabele wordt er later bepaald uit welke tabel de data wordt gehaald...
  7.  
  8. 'Hier stellen we het pad naar de database in...
  9. Pad = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Database.mdb")
  10.  
  11. 'Hier maken we met de variabele "Connectie" verbinding met de database...
  12. Set Connectie = Server.CreateObject ("ADODB.Connection")
  13. Connectie.Open Pad
  14.  
  15. 'Hier halen we de recordset op...
  16. Set Records = Server.CreateObject("ADODB.Recordset")
  17. SQL = "Select * From Tabel Order by ID DESC"
  18. Set Records = Connectie.Execute(SQL)
  19. %>
  20.  
  21. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
  22. <html>
  23. <head>
  24. <title>IIS!</title>
  25. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  26. <link href="Opmaak.css" rel="stylesheet" type="text/css">
  27. </head>
  28.  
  29. <body class="STIJL">
  30. <p align="center">Kies een item uit de onderstaande lijst...</p>
  31. <table width="400" border="1" align="center" cellpadding="5" class="Tabellen">
  32. <%
  33. 'Hier begint de loop...
  34. Do While Not Records.EOF
  35. %>
  36. <tr>
  37. <td width="20%" align="left" valign="middle"><strong>ID:</strong> <%=Records("ID")%></td>
  38. <td width="60%" align="left" valign="middle"><%=Records("Titel")%></td>
  39. <td width="20%" align="left" valign="middle"><a href="Bekijken.asp?ID=<%=Records("ID")%>">Bekijken?</a></td>
  40. </tr>
  41. <%
  42. 'Hier gaan we naar het volgende item in de recordset...
  43. Records.MoveNext
  44. Loop
  45. %>
  46. </table>
  47. </body>
  48. </html>
  49.  
  50. <%
  51. 'De connectie wordt afgesloten...
  52. Records.Close
  53. Set Records = Nothing
  54.  
  55. Connectie.Close
  56. Set Connectie = Nothing
  57. %>


Code 2: Bekijken.asp
  1. <%
  2. 'Met deze code kijken welk ID werd opgevraagd...
  3. Dim Zoeken
  4. Zoeken = "1"
  5. If (Request.QueryString("ID") <> "") Then
  6. Zoeken = Request.QueryString("ID")
  7. End If
  8. %>
  9.  
  10. <%
  11. 'Dit zijn de variabelen...
  12. Dim Connectie 'De connectie...
  13. Dim Records 'De recordset...
  14. Dim Pad 'Het pad naar de database...
  15. Dim SQL 'Met deze variabele wordt er later bepaald uit welke tabel de data wordt gehaald...
  16.  
  17. 'Hier stellen we het pad naar de database in...
  18. Pad = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Database.mdb")
  19.  
  20. 'Hier maken we met de variabele "Connectie" verbinding met de database...
  21. Set Connectie = Server.CreateObject ("ADODB.Connection")
  22. Connectie.Open Pad
  23.  
  24. 'Hier halen we de recordset op...
  25. Set Records = Server.CreateObject("ADODB.Recordset")
  26. SQL = "Select * From Tabel Where ID = " + Replace(Zoeken, "'", "''") + ""
  27. Set Records = Connectie.Execute(SQL)
  28. %>
  29.  
  30. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
  31. <html>
  32. <head>
  33. <title>IIS!</title>
  34. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  35. <link href="Opmaak.css" rel="stylesheet" type="text/css">
  36. </head>
  37.  
  38. <body class="STIJL">
  39. <p align="center">Dit is het betreffende item...</p>
  40. <table width="400" border="1" align="center" cellpadding="5" cellspacing="2" class="Tabellen">
  41. <tr>
  42. <td width="20%" align="left" valign="middle"><strong>ID:</strong> <%=Records("ID")%></td>
  43. <td width="80%" align="left" valign="middle"><%=Records("Titel")%></td>
  44. </tr>
  45. <tr>
  46. <td colspan="2" width="100%" align="left" valign="middle"><%=Records("Content")%></td>
  47. </tr>
  48. </table>
  49. </body>
  50. </html>


Code 3: Opmaak.css
  1. .Tabellen {
  2. font-family: Verdana, Arial, Helvetica, sans-serif;
  3. font-size: 11px;
  4. color: #000000;
  5. border: 1px solid #000000;
  6. }
  7.  
  8. .STIJL {
  9. font-family: Verdana, Arial, Helvetica, sans-serif;
  10. font-size: 11px;
  11. color: #0000FF;
  12. }


Database 1: Database.mdb
http://aa.1asphost.com/Jafva/Database.mdbDownload code! Download code (.txt)

 Stemmen
Niet ingelogd.

 Reacties
Post een reactie
Geen reacties (0)
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.022s