2300bryggen.dk - Tips og Tricks til pc og web-design m.v. - ASP

Html, Css, JavaScript m.v.

JavaScript - Klokken

JavaScript - Grafisk ur

Gør til Startside

Føj til Foretrukne

De Browsersikre Farver

ASP - Databaseforbindelse til access database.

Bemærk der kan være forskel på servere og serveropsætning osv.
Denne opsætning virker på bryggenet's hjemmesider.

Databaseforbindelsen.

' Databaseforbindelse - husk at angive sti til din database Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("Sti-Til-Din-Database.mdb") Conn.Open DSN

SQL Forespørgsel.

' SQL forespørgsel strSQL = "Select * from Tabel Order by Feltnavn" ' Udfør forespørgsel (rs indeholder nu resultatet) Set rs = Conn.Execute(strSQL)

Udfør.

' Gennemløb Recordset (rs) med en løkke Do

Udskriv.

' Udskriv værdien af kolonnen Feltnavn Response.Write " & rs("Feltnavn") & "

Gå til næste post.

' Gå til næste Record i rs rs.MoveNext

Fortsæt.

' Fortsæt indtil rs er gennemløbet (EOF = End Of File) Loop While Not rs.EOF

Luk Forbindelsen.

' Luk databaseforbindelse Conn.Close Set Conn = Nothing

Eksempel på Databaseforbinelse.
I flg. eksempel er der en Access database der hedder adresse.mdb med en tabel der er hedder tlfliste og 3 kolonner navn, adresse og telefon.

<table width="468" border="0" cellpadding="3" cellspacing="0" align="center" bgcolor="#EBEAE8"> <tr> <td style="border-bottom: 1px solid rgb(0,0,0)"><b>Navn</b></td> <td style="border-bottom: 1px solid rgb(0,0,0)"><b>Adresse</b></td> <td style="border-bottom: 1px solid rgb(0,0,0)"><b>Telefonnummer</b></td> </tr> <% ' Databaseforbindelse - husk at angive sti til din database Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("databaser/adresse.mdb") Conn.Open DSN ' SQL forespørgsel strSQL = "Select * from tlfliste Order by navn, adresse" ' Udfør forespørgsel (rs indeholder nu resultatet) Set rs = Conn.Execute(strSQL) ' Gennemløb Recordset (rs) med en løkke Do ' Udskriv værdien af kolonnen navn Response.Write "<tr><td style=""border-bottom: 1px solid rgb(0,0,0)"">" & rs("navn") & "</td>" Response.Write "<td style=""border-bottom: 1px solid rgb(0,0,0)"">" & rs("adresse") & "</td>" Response.Write "<td style=""border-bottom: 1px solid rgb(0,0,0)"">" & rs("telefon") & "</td></tr>" ' Gå til næste Record i rs rs.MoveNext ' Fortsæt indtil rs er gennemløbet (EOF = End Of File) Loop While Not rs.EOF ' Luk databaseforbindelse Conn.Close Set Conn = Nothing %> </table>

Se ovenstående eksempel her.