<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim y,AllUnique,AllUniqueTxt,idORtxt,SeachRow,SeachRowOpdate IF request.Querystring("y") ="" then y = "IDnummer ASC" ELSE y = request.Querystring("y") END IF IF request.form("AllUnique") = "" THEN AllUnique = "" AllUniqueTxt = "Vis Unikke" ELSE AllUnique = request.form("AllUnique") AllUniqueTxt = "Vis Alle" END IF IF request.form("idORtxt") = "" THEN idORtxt = "Idnummer" ELSE idORtxt = request.form("idORtxt") END IF IF idORtxt = "Idnummer" THEN SeachRow = "Idnummer" SeachRowOpdate = "RapportID" ELSEIF idORtxt = "Tekst" THEN SeachRow = "RapportTekst" SeachRowOpdate = "OpdateringTekst" ELSEIF idORtxt = "Dato" THEN SeachRow = "OprettetDato" SeachRowOpdate = "OpdateringDato" END IF 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 'Check formular data og indsæt SQL søgekriterier Dim strForm,strError,SeachString,SeachStringOpdate strError = "" SeachStringOpdate = " WHERE 1=1" SeachString = " WHERE 1=1" strForm = "'MS SQL søgning side 1.'" IF request.form("IDnummer") <> "" THEN IF NOT isNumeric(request.form("IDnummer")) THEN strError = strError & "
  • Indtast En numerisk værdi i feltet:
    tblRapport IDnummer og tblOpdatering RapportID =

  • " ELSE SeachString = SeachString & " AND IDnummer = "& request.form("IDnummer") & "" SeachStringOpdate = SeachStringOpdate & " AND RapportID = "& request.form("IDnummer") & "" END IF END IF IF request.form("notIDnummer") <> "" THEN IF NOT isNumeric(request.form("notIDnummer")) THEN strError = strError & "
  • Indtast En numerisk værdi i feltet:
    tblRapport IDnummer og tblOpdatering RapportID <>

  • " ELSE SeachString = SeachString & " AND IDnummer <> "& request.form("notIDnummer") & "" SeachStringOpdate = SeachStringOpdate & " AND RapportID <> "& request.form("notIDnummer") & "" END IF END IF IF request.form("RapportTekst") <> "" THEN SeachString = SeachString & " AND RapportTekst LIKE '%"& request.form("RapportTekst") & "%'" SeachStringOpdate = SeachStringOpdate & " AND OpdateringTekst LIKE '%"& request.form("OpdateringTekst") & "%'" END IF IF (strError) <> "" Then response.redirect ("formError.asp?fError=" & strError & "&fName=" & strForm) END IF IF SeachString = " WHERE 1=1" THEN SeachString = "" END IF IF SeachStringOpdate = " WHERE 1=1" THEN SeachStringOpdate = "" END IF dim sideId,SQLrapport sideId = "MS_SQL-test-2" SQLstmt = "SELECT IDnummer,RapportType,RapportTekst,OprettetAf,OprettetDato FROM tblRapport ORDER BY IDnummer ASC" 'SQLrapport = "<%" & SQLstmt & "%>" Set rsRapport = Conn.Execute(SQLstmt) SQLstmt = "SELECT IDnummer,RapportID,OpdateringTekst,OpdateringDato FROM tblOpdatering ORDER BY IDnummer ASC" Set rsOpdatering = Conn.Execute(SQLstmt) SQLstmt = "SELECT " & SeachRow & " AS ShResult FROM tblRapport " & SeachString & " UNION " & request.form("AllUnique") & " SELECT " & SeachRowOpdate & " AS ShResult FROM tblOpdatering " & SeachStringOpdate & " ORDER BY ShResult ASC" 'response.write SQLstm SQLrapport = "<%" & SQLstmt & "%>" Set rsResult = Conn.Execute(SQLstmt) %> Hennings MS SQL test side - søgning UNION 2!

    <- til MS SQL søgning 1 SQL & ASP kode som tekst Videre til MS SQL søgning 3 ->

    Hennings MS SQL test database, søgning 2 UNION!

    På denne side afprøves MS-SQL UNION søgefunktioner.

    Med SQL UNION ALL er det muligt at søge de 2 tabeller, og få et samlet resultat som indeholder alle matchende poster.
    Med SQL UNION vises kun unikke poster (som med SELECT DISTINCT).
    Søgeresultatet vises afhængig af søgeordene i formularen nederst på siden.

    Indoldet af tblRapport:
    <% DO WHILE NOT rsRapport.EOF%> <%rsRapport.MoveNext LOOP %>
    IDnummer RapportType RapportTekst OprettetAf OprettetDato
    <%=rsRapport("IDnummer")%> <%=rsRapport("RapportType")%> <%=rsRapport("RapportTekst")%> <%=rsRapport("OprettetAf")%> <%=rsRapport("OprettetDato")%>

    Indoldet af tblOpdatering:
    <% 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")%>

    <%=SQLrapport%>
    <%DO WHILE NOT rsResult.EOF%> <% rsResult.MoveNext LOOP rsResult.Close set rsResult = Nothing %>
    Resultat af UNION <%=request.form("AllUnique")%> søgning:
    <%=rsResult("ShResult")%>
    Indtast et eller flere søgekriterier
    Vis Alle/Vis Unikke:  
    Vis Tekst, Id eller Dato:  
    tblRapport IDnummer og
    tblOpdatering RapportID
    =
    tblRapport IDnummer og
    tblOpdatering RapportID
    <>
    RapportTekst eller OpdateringTekst
    indeholder:
    (LIKE)
    <- til MS SQL søgning 1 SQL & ASP kode som tekst Videre til MS SQL søgning 3 ->


    <% rsRapport.Close set rsRapport = Nothing Conn.Close Set Conn = Nothing%>