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)%>
<% DO WHILE NOT rsRapport.EOF%> <%rsRapport.MoveNext LOOP %>

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)%>
<% DO WHILE NOT rsOpdatering.EOF%> <%rsOpdatering.MoveNext LOOP rsOpdatering.Close set rsOpdatering = Nothing %>

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%>
<% SQLstmt = "SELECT IDnummer,RapportType,RapportTekst,OprettetAf,OprettetDato FROM tblRapport ORDER BY " & y Set rsRapport = Conn.Execute(SQLstmt) DO WHILE NOT rsRapport.EOF%> <%SQLstmt = "SELECT OpdateringTekst,OpdateringDato FROM tblOpdatering WHERE RapportID = " & rsRapport("IDnummer") & " ORDER BY " & y Set rsOpdatering = Conn.Execute(SQLstmt) DO WHILE NOT rsOpdatering.EOF%> <% rsOpdatering.MoveNext LOOP rsOpdatering.Close rsRapport.MoveNext 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 ->