SQL & ASP kode som tekst | Videre til MS SQL søgning -> |
Hennings MS SQL test database, SELECT!
ASP MS-SQL SELECT funktioner.
ASP -SQL siderne er oprettet for at afprøve funktioner.Først åbnes forbindelsen til Databasen:
<%Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../db/MS_SQL-test.mdb")
Conn.Open DSN%>
Alt indhold af database tabellen 'tblRapport' hentes:
<%SQLstmt = "<%=SQLrapport%>"
Set rsRapport = Conn.Execute(SQLstmt)%>
IDnummer | RapportType | RapportTekst | OprettetAf | OprettetDato |
<%=rsRapport("IDnummer")%> | <%=rsRapport("RapportType")%> | <%=rsRapport("RapportTekst")%> | <%=rsRapport("OprettetAf")%> | <%=rsRapport("OprettetDato")%> |
Tabellen 'tblOpdatering' indeholder henvisning til IDnummer i tabellen ovenfor (RapportID), og opdateringer som kan kombineres med den første tabel:
<%SQLstmt = "<%=SQLopdatering%>"
Set rsOpdatering = Conn.Execute(SQLstmt)%>
IDnummer | RapportID | OpdateringTekst | OpdateringDato |
<%=rsOpdatering("IDnummer")%> | <%=rsOpdatering("RapportID")%> | <%=rsOpdatering("OpdateringTekst")%> | <%=rsOpdatering("OpdateringDato")%> |
En kombineret liste kan vises ved at hente alle poster i 'tblRapport', indsætte posterne i en tabel og for hver tabel række hente eventuelle opdateringer fra tabellen 'tblOpdatering':
<%SQLstmt = "<%=SQLrapport%>"
DO WHILE NOT rsRapport.EOF%>
Indsæt i tabellen
<%SQLstmt = "SELECT OpdateringTekst,OpdateringDato FROM tblOpdatering WHERE RapportID = " & rsRapport("IDnummer") & " ORDER BY IDnummer ASC"
SQLopdatering = SQLstmt
DO WHILE NOT rsOpdatering.EOF%>
Indsæt opdateringerne i tabellen
<%rsOpdatering.MoveNext
LOOP
rsOpdatering.Close
rsRapport.MoveNextb
LOOP%>
Rapport Type | Tekst | Oprettet Af | Dato | ||||
<%=rsRapport("RapportType")%> | <%=rsRapport("RapportTekst")%> | <%=rsRapport("OprettetAf")%> | <%=rsRapport("OprettetDato")%> | ||||
<%=rsOpdatering("OpdateringTekst")%> | <%=rsOpdatering("OpdateringDato")%> | ||||||
Husk at lukke alle Recordset og Database Connection:
<%rsOpdatering.Close
set rsOpdatering = Nothing
rsRapport.Close
set rsRapport = Nothing
Conn.Close
Set Conn = Nothing%>
SQL & ASP kode som tekst | Videre til MS SQL søgning -> |