1 / 33

Datenbankanbindung mit ASP von Thomas Ohlhauser Wilhelm-Schickard-Schule Tübingen

Datenbankanbindung mit ASP von Thomas Ohlhauser Wilhelm-Schickard-Schule Tübingen. Inhalt. Basiswissen Dynamische Webseiten mit ASP Voraussetzungen Zugriff auf eine ACCESS-Datenbank über ADO Abfragen mit SQL. HTML ohne ASP.

jamil
Download Presentation

Datenbankanbindung mit ASP von Thomas Ohlhauser Wilhelm-Schickard-Schule Tübingen

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Datenbankanbindung mit ASP von Thomas Ohlhauser Wilhelm-Schickard-Schule Tübingen

  2. Inhalt • Basiswissen • Dynamische Webseiten mit ASP • Voraussetzungen • Zugriff auf eine ACCESS-Datenbank über ADO • Abfragen mit SQL

  3. HTML ohne ASP • Der Browser nimmt die URL in der Adressleiste entgegen und leitet sie in Form einer http-Anfrage an den Webserver weiter. Dabei sprechen beide die Sprache "http"! • Der Server stellt die gewünschte Information zusammen und leitet sie wieder auf "http-ianisch" an den Browser zurück.

  4. HTML mit ASP • Die Anfrage geht nicht an eine statische Datei. • Es wird vielmehr über den Webserver ein Programm aufgerufen. • Dieses erzeugt dynamisch Daten (z.B. HTML). • Die "frisch" erzeugten Daten gehen über den Webserver an den Anfragenden zurück.

  5. Dynamische Webseiten mit ASP Beispiel: beispiel1.asp <html> <head> <title>Mein erstes ASP-Skript</title> </head> <body> <h1>Hallo Welt</h1> <br> Auf meiner Homepage ist es <% =Now() %> <br> <br> <% Response.Write "Ich glaube es wird Zeit eine Pause zu machen!" %> </body> </html>

  6. Dynamische Webseiten mit ASP Die folgende Grafik zeigt die Wirkung des ASP-Skripts: Erläuterung: Mit den Tags <% .....%> wird dem Server signalisiert, dass sich hier der ASP-Code befindet, der verarbeitet werden muss. Der Befehl now() bedeutet, dass jedes Mal, wenn man diese Seite aufruft, das Datum und die Uhrzeit vom Server erneut gelesen und angezeigt wird. Der Befehl Response.Write wird verwendet, um einen Wert auszugeben.

  7. Webserver • PWS (Personal Web Server). Er ist im Lieferumfang von Windows 9x enthalten und kann bei der Installation aktiviert oder später nachinstalliert werden (Systemsteuerung / Software). • IIS (Internet Information Server). Er ist im Lieferumfang von Windows NT/2000 enthalten und wird bei der Installation als Dienst eingerichtet. Zum Konfigurieren des IIS stehen in der Systemsteuerung unter Verwaltung Tools zur Verfügung. • C:\Inetpub\wwwroot(Standardordner für die Webdateien). • http://<Computername> • Localhost ist die Bezeichnung (Computername) für den eigenen Rechner. • default.asp (Standardmäßige Startseite).

  8. C:\Inetpub\wwwroot Beispiel: default.asp <html> <head> <title>Zweites ASP-Script</title> </head> <body> <h1>Hallo Welt</h1> <br> <% Response.Write "Dies ist die Startseite (default.asp) meiner Homepage!" & "<br>" Response.Write "Sie liegt in dem Verzeichnis C:\Inetpub\wwwroot!" & "<br>" Response.Write "Ich benutze den Internet Information Server (IIS)!" & "<br>" %> </body> </html>

  9. IIS

  10. Drittes ASP-Skript Beispiel: beispiel3.asp <html> <head> <title>Drittes ASP-Skript</title> </head> <body> <h1>Der grosse Rechner</h1> <br> <% a=1 b=3 summe=a+b %> a+b= <% =summe %> </body> </html>

  11. Viertes ASP-Skript Beispiel: beispiel4.asp Ändere das Programm so das positive Werte in blau und negative Werte in rot ausgegeben werden. <html> <head> <title>Viertes ASP-Skript</title> </head><body> <% a=1 b=-3 summe=a+b %> a+b= <% if summe>0 then %> <font color=#0000ff> <% else %> <font color=#ff0000> <% end if %> <% =summe %> </body> </html>

  12. Variablendeklaration Beispiel: beispiel5.asp <html><body><%dim namename="Thomas Ohlhauser"response.write("My name is: " & name)%></body></html>

  13. Variablendeklaration Beispiel: beispiel6.asp <html> <body> <% dim h h=Now() response.write(h) response.write(" (Schickard Zeit) </p>") If h<12 then response.write("Guten Morgen!") else response.write("Einen schönen Tag noch!") end if %> </body> </html>

  14. Formulare Beispiel: beispiel7.html <html> <body> <form method=“post" action="formular.asp"> Vorname: <input type="text" name="fname"> <br /> Nachname: <input type="text" name="lname"> <br /><br /> <input type="submit" value="Submit"> </form> </body> </html>

  15. Formulare Beispiel: beispiel7.asp <html> <body> Welcome <% response.write(request.form("fname")) response.write(" " & request.form("lname")) %> </body> </html>

  16. Passwortabfrage Beispiel: beispiel8.html <html> <head> <title>Login</title> <body> <form action="beispiel8.asp" method="POST"> Benutzername: <input type="Text" name="Benutzername" size="20" maxlength="20"> <br> Passwort: <input type="Password" name="Passwort" size="20" maxlength="20"> <br> <input type="Submit" name="Absenden" value="Einloggen"> </form> </body> </html>

  17. Passwortabfrage Beispiel: beispiel8.asp <% user = Request.Form("Benutzername") pass = Request.Form("Passwort") if user = "test" and pass = "demo" then Response.Redirect "http://localhost/tom/intranet.html" else Response.Redirect "http://localhost/tom/pech.html" end if %>

  18. Verbindung mit der Datenbank Beispiel: dbzugriff.asp <html> <head></head> <body> <% 'Pfad und Dateiname der Datenbank strDB = "Data Source=" & _ Server.MapPath("haro.mdb") 'Parameter zum Öffner der Datenbank strCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & strDB 'Objekt für den Verbindungsaufbau mit der Datenbank Set ConDB = Server.CreateObject("ADODB.Connection") ConDB.Open strCon Response.Write "Verbindung zur Datenbank geöffnet.<br><br>" 'Verbindungsobjekt schließen ConDB.close Response.Write "Verbindung zur Datenbank geschlossen.<br>" %> <hr> </body> </html>

  19. Verbindung mit der Datenbank Die folgende Grafik zeigt die Wirkung des ASP-Skripts: • Erläuterung: • ASP ist eine Sammlung von mehreren vordefinierten Objekten, • Request, Response, Application, Session, Server, • ADODB.Connection (Schnittstelle, die den Zugriff auf Datenbanken erleichtert), • Methode Open (Verbindung zur Datenbank herstellen),, • Methode Close beendet die Verbindung zur Datenbank.

  20. Datenbankanbindung mit ADO Beispiel: dbzugriff1.asp <html> <head></head> <body> <% 'Pfad und Dateiname der Datenbank strDB = "Data Source=" & _ Server.MapPath("haro.mdb") 'Parameter zum Öffner der Datenbank strCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & strDB 'Name der Tabelle oder Abfrage, die geöffnet werden soll strTabelle= "Teile" 'Objekt für den Verbindungsaufbau mit der Datenbank Set ConDB = Server.CreateObject("ADODB.Connection") ConDB.Open strCon Response.Write "Verbindung zur Datenbank geöffnet.<br>„ 'Objekt für das Recordset-Objekt Set RS = Server.CreateObject("ADODB.Recordset") Rs.open strTabelle, ConDB Response.Write "Leistungstabelle geöffnet.<br>"

  21. Datenbankanbindung mit ADO 'Befehle zur Bearbeitung der Daten Response.Write "<HR>„ 'Geht zum ersten Datensatz Rs.MoveFirst 'Liest bis das Ende der Daten erreicht ist Do While Not Rs.EOF Response.Write Rs("TeileNr") & " , " Response.Write Rs("Bez") & " , " Response.Write Rs("LagerNr") & " , " Response.Write Rs("VKPreis") & " , " Response.Write Rs("Bestand") & " " Response.Write "<br><hr>" Rs.MoveNext Loop 'Verbindungsobjekt schließen ConDB.close Response.Write "Verbindung geschlossen.<br>" %> <hr> </body> </html>

  22. Datenbankanbindung mit ADO ohne DSN • Erklärung: • Öffnen der Datenbank über die Variable strCon, • Parameter Provider definiert den Treiber, • Data Source bestimmt den Pfad und Dateinamen der ACCESS-Datenbank (Variable strDB), • strDB = "Data Source=" & _ • Server.MapPath(“haro.mdb") • strCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & strDB • “Provider=Microsoft.Jet.OLEDB.4.0;“ – Treiber für ACCESS 97 und ACCESS 2000, • Rs.open strTabelle, ConDB Recordset wird geöffnet, empfängt die Daten der Tabelle „Leistung“ (strTabelle = “Teile“), Verbindungsparameter zur Datenbank. • Die Befehle zum Öffnen bzw. Schließen der Datenbank und der jeweiligen Tabelle mit der Methode Open bzw. Close. • Exkurs: Auf Excel-Daten zugreifen .... strDB = "Data Source=" & _ • Server.MapPath(“tabelle.xls") • strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Excel 8.0; " & strDB

  23. Tabellen auslesen ... • Erklärung: • Verbindung zur anzuzeigenden Tabelle (Leistung) öffnen, • Zugriff auf die Tabellendaten und die Ergebnisse einer Access-Abfrage mit dem Recordset-Objekt, • Den Inhalt eines Datenbank-Feldes erhält man mit dem Befehl Recordset(„Feldname“), • “MoveFirst“ bewegt den Satzzeiger auf den ersten Datensatz des Recordsets, • “Do While Not Rs.EOF“ bedeutet, dass die Tabelle solange durchlaufen werden soll, bis sich der Satzzeiger hinter dem letzten Datensatz der Tabelle befindet, • Mit „Loop“ wird das Recordset beendet, • “Rs.Close“ schließt die Tabelle und “ConDB.Close“ die Datenbank.

  24. Abfragen mit SQL Beispiel: dbzugriff2.asp <html> <head></head> <body> <% 'Pfad und Dateiname der Datenbank strDB = "Data Source=" & _ Server.MapPath("haro.mdb") 'Parameter zum Öffnen der Datenbank strCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & strDB 'Name der Tabelle oder Abfrage, die geöffnet werden soll strSQL = "Select TeileNr, Bez, LagerNr, VKPreis, Bestand From Teile Where LagerNr ='T1';" ’Objekt für den Verbindungsaufbau mit der Datenbank Set ConDB = Server.CreateObject("ADODB.Connection") ConDB.Open strCon Response.Write "Verbindung zur Datenbank geöffnet.<br>" 'Objekt für das Recordset-Objekt Set Rs = Server.CreateObject("ADODB.Recordset") Rs.open strSQL, ConDB 'Befehle zur Bearbeitung der Daten Response.Write "<HR>"

  25. Abfragen mit SQL  'Geht zum ersten Datensatz Rs.MoveFirst 'Liest bis das Ende der Daten erreicht ist While Not Rs.EOF Response.Write Rs("TeileNr") & " , " Response.Write Rs("Bez") & " , " Response.Write Rs("LagerNr") & " , " Response.Write Rs("VKPreis") & " , " Response.Write Rs("Bestand") & " " Response.Write "<br><hr>" Rs.MoveNext Wend 'Verbindungsobjekt schließen ConDB.close Response.Write "Verbindung geschlossen.<br>" %> <hr> </body> </html>

  26. Abfragen mit SQL Die folgende Grafik zeigt die Wirkung des ASP-Skripts:

  27. Abfragen mit SQL • Erklärung: • Die Grundstruktur einer SQL – Abfrage sieht wie folgt aus: Select Attribute From Tabellen Where Selektionskriterien; Dabei sind nur die Select- und die From- Klausel zwingend. Alle SQL-Anweisungen sind mit einem Semikolon (;) abzuschliessen. • Beispiel: Es werden alle Teile gesucht, welche im Lagerort “T1“ eingelagert sind. Select TeileNr, Bez, LagerNr, VKPreis, Bestand From Teile Where LagerNr=’T1’; • Im ASP-Skript werden die SQL-Befehle zur weiteren Verarbeitung in eine Variable gepackt. strSQL = "Select TeileNr, Bez, LagerNr, VKPreis, Bestand From Teile Where LagerNr ='T1';" • Für den Zugriff auf die Datenbank benötigt man die Befehle, die in den vorhergehenden Beispielen erläutert wurden. Da man statt der gesamten Leistungstabelle nur bestimmte Daten sehen möchte, wird lediglich der Parameter Leistungstabelle durch die SQL-Anweisung ausgetauscht.

  28. HTML-Formulare zur Datenbankabfrage • Für die Administration einer Datenbank ist es sinnvoll auf einer HTML-Seite Formularmasken zu erstellen, um folgende Aufgaben durchführen zu können: • Suche nach bestimmten Datensätzen, • Hinzufügen von Datensätzen, • Löschen von Datensätzen, • Anzeigen der gesamten Datenbank. 1. Einen Datensatz suchen“ Das Formular besteht aus einem Eingabefeld (db_feld1) und einem Submit-Button, der die Suchanfrage an die Seite db_ergebnis.asp schickt. <HTML> <HEAD> <TITLE>Einen Datensatz suchen</TITLE> </HEAD> <BODY> <B>Nach welchen Teilen möchten Sie suchen ?</B> <FORM METHOD=POST ACTION="db_ergebnis.asp"> <INPUT TYPE="text" NAME="db_feld1" style="width:200px" size="20"> <INPUT TYPE="submit" value="suchen" style="width:100px"> </FORM> </BODY> </HTML>

  29. Ergebnis einer Datenbanksuche ausgeben Beispiel: db_ergebnis.asp <html> <head></head> <body> <% 'Speichern der im Request-Objekt übergebenen Formulardaten Dim feld1 feld1 = Request.Form("db_feld1") 'Pfad und Dateiname der Datenbank strDB = "Data Source=" & _ Server.MapPath("haro.mdb") 'Parameter zum Öffnen der Datenbank strCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & strDB 'Name der Abfrage, die geöffnet werden soll strSQL = "Select TeileNr, Bez, LagerNr, VKPreis, Bestand From Teile Where Bez LIKE '%" & feld1 & "%';" 'Objekt für den Verbindungsaufbau mit der Datenbank Set ConDB = Server.CreateObject("ADODB.Connection") ConDB.Open strCon Response.Write "Verbindung zur Datenbank geöffnet.<br>"

  30. Ergebnis einer Datenbanksuche ausgeben 'Objekt für das Recordset-Objekt Set Rs = Server.CreateObject("ADODB.Recordset") Rs.open strSQL, ConDB If Rs.EOF = False Then Do While Not Rs.EOF Response.Write Rs("TeileNr") & " , " Response.Write Rs("Bez") & " , " Response.Write Rs("LagerNr") & " , " Response.Write Rs("VKPreis") & " , " Response.Write Rs("Bestand") & " " Response.Write "<br><hr>" Rs.MoveNext Loop Else Response.Write("<b>Leider keinen Eintrag gefunden!</b><br>") End If 'Verbindungsobjekt schließen ConDB.close Response.Write "Verbindung geschlossen.<br>" %> <hr> </body> </html>

  31. Ergebnis einer Datenbanksuche ausgeben Die folgende Grafik zeigt die Wirkung des ASP-Skripts:

  32. Ergebnis einer Datenbanksuche ausgeben Erklärung: Um die Programmierung übersichtlicher zu gestalten werden die im Request Objekt übergebenen Formulardaten zunächst in eine Variable gespeichert. Dim feld1 feld1 = Request.Form("db_feld1") Danach wird die Verbindung zur Datenbank hergestellt und das Recordset-Objekt geöffnet. Mit der SQL-Abfrage Like ’%Kriterium%’ wird nach einem Teilstring innerhalb eines Feldes gesucht. Im Beispiel bezieht sich die Suche auf den Wochentag. strSQL = "Select TeileNr, Bez, LagerNr, VKPreis, Bestand From Teile Where Bez LIKE '%" & feld1 & "%';" Nur wenn das Recordset Datensätze als Ergebnis der Abfrage enthält, wird die Datenbankoperation auch ausgeführt. If Rs.EOF = False Then Do While Not Rs.EOF Hat der User einen Begriff gesucht, der nicht in der Datenbank enthalten ist, wird eine Fehlermeldung ausgegeben. Else Response.Write("<b>Leider keinen Eintrag gefunden!</b>") End If Zum Schluss wird das Recordset und die Datenbankverbindung wieder geschlosssen.

  33. Gesamte Tabelle durchsuchen Bezieht sich die Suche nicht nur auf die Teile, so ist der SQL-Befehl folgendermaßen zu ergänzen: strSQL = "Select TeileNr, Bez, LagerNr, VKPreis, Bestand From Teile Where TeileNr & Bez & LagerNr & VKPreis & Bestand LIKE '%" & feld1 & "%';"

More Related