<HTML> <HEAD> <TITLE>Cvičení k ADO - (c) 2002 Doc. Ing. Radim Farana, CSc.</TITLE> <META http-equiv="Content-Type" content="text/html; charset=windows-1250"> <META NAME="AUTHOR" CONTENT="Radim Farana"> <META NAME="CONTENT" CONTENT="Cvičení z ADO - spolupráce s databází"> </HEAD> <BODY text="#000000" bgcolor="#FFFFFF" link="#0000EE" vlink="#551A8B" alink="#FF0000"> <H1>Výstup z databáze</H1> <% ' Definice proměnných Dim CRLF CRLF = Chr(13) & Chr(10) ' Vytvoříme objekt pro spojení s databází Session.timeout = 1 If IsObject(Session("CvicAplInf_conn")) Then Set DBConn = Session("CvicAplInf_conn") Else Set DBConn = Server.CreateObject("ADODB.Connection") ' Open database without DSN myDSN="DRIVER={Microsoft Access Driver (*.mdb)}; " myDSN=myDSN & "DBQ=" & server.mappath("CvicAplInf.mdb") DBConn.open myDSN ' Open database with DSN 'DBConn.open "CvicAplInf","Admin","" Set Session("CvicAplInf_conn") = DBConn End If ' Vytvoříme SQL dotaz pro zjištění potřebných dat SQLStr = "SELECT * FROM Osoby ORDER BY Prijmeni, Jmeno;" ' Vytvoříme objekt Recordset a otevřeme ho Set RS = Server.CreateObject("ADODB.Recordset") RS.Open SQLStr, DBConn, 3, 3 ' Určíme zda je k dispozici alespoň jeden záznam If RS.EOF Then ' Není ani jeden záznam Response.Write "<P>Nejsou k dispozici žádné záznamy!</P>" & CRLF Else ' Záznamy existují, zpracujeme výstup Response.Write "<TABLE BORDER=1>" & CRLF Do While Not RS.EOF Response.Write " <TR>" & CRLF Response.Write " <TD>" & RS.Fields("Prijmeni").Value & "</TD>" & CRLF Response.Write " <TD>" & RS.Fields("Jmeno").Value & "</TD>" & CRLF Response.Write " <TD>" & RS.Fields("Tel_cislo").Value & "</TD>" & CRLF Response.Write " </TR>" & CRLF RS.MoveNext Loop Response.Write "</TABLE>" & CRLF End If ' Set RS = Nothing ' Set DBConn = Nothing %> </BODY> </HTML>