Nej, mig bekendt findes det ikke.
Men du kan lav en side der kan modtage en SQL sætning fra en form - så kan du lave næsten alt. Bare HUSK at lave en password beskyttelse på siden.
Hvis du f.eks. tager koden herunder og gemmer den som SQL.asp
Så kan du lave almindelige SQL sætninger på WEB.
Den har en masse begrænsninger - bl.a. får man en fejl hvis man udfører en sætning som ikke giver et record-set som resultat. Men det kan du jo lege lidt med.
HUSK at sætte en eller anden password kontrol på!
-----------------------------------------------------------
<%
fejl = \"\"
If Len(request(\"SQLstr\")) = 0 Then
SQLStr = \"\"
Else
SQLStr = request(\"SQLstr\")
End If
If Len(request(\"feltbredde\")) = 0 Then
feltbredde = 30
Else
feltbredde = cInt(request(\"feltbredde\"))
End If
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DataBasenavn\" , \"Brugernavn\", \"Password\"
%>
<html>
<head>
<title>SQL Sætning</title>
</head>
<body>
<%If len(request(\"sqlstr\")) > 0 Then
response.write(\"<h4>QUERY : \" & SQLStr & \"</h4><br>\")
Set Poster = Conn.Execute(SQLStr)
If Not Poster.EOF Then
FUNCTION KlipTekst(byval tekst)
If len(tekst) > feltbredde Then
KlipTekst = left(tekst, feltbredde - 3) & \"...\"
Else
KlipTekst = tekst
End If
END FUNCTION
FUNCTION ASCIITekst(byval tekst)
If IsNull(tekst) Then
ASCIITekst = \"[Null]\"
Else
If len(tekst) > feltbredde Then
slut = feltbredde
Else
slut = len(tekst)
End If
For i = 1 to slut
ASCIITekst = ASCIITekst & Asc(mid(tekst,i,1)) & \", \"
Next
ASCIITekst = left(ASCIITekst, len(ASCIITekst) -2)
If len(tekst) > feltbredde Then ASCIITekst = ASCIITekst & \"...\"
End If
END FUNCTION
antal = 0
%>
<table border =<%If request(\"streger\") = \"on\" then response.write(\"1\") Else response.write(\"0\")%>>
<%
feltliste = \"\"
For i = 0 To Poster.Fields.Count - 1
Response.Write(\"<th bgcolor=\'silver\'><font color=white>\" & Poster.Fields(i).Name & \"</font></th>\")
feltliste = feltliste & Poster.Fields(i).Name & \",\"
If request(\"mellemrum\") = \"on\" then response.write(\" <td> </td>\" & vbcrlf) End If
Next
feltliste = left(feltliste, len(feltliste) -1) \' for at fjerne det sidste komma
Do While NOT Poster.EOF
response.write(vbcrlf & \" <tr>\")
For i = 0 To Poster.Fields.Count - 1
Response.Write(\" <td>\")
If request(\"ASCII\") = \"on\" Then
Response.Write(AsciiTekst(Poster.Fields(i).value)) \' skriv selve felt/celle-indholdet som adskilte ASCII koder
Else
Response.Write(KlipTekst(Poster.Fields(i).value)) \' skriv selve felt/celle-indholdet
End If
Response.Write(\"</td>\" & vbcrlf)
If request(\"mellemrum\") = \"on\" then response.write(\" <td> </td>\" & vbcrlf) End If
Next
response.write(\" </tr>\")
antal = antal + 1
Poster.movenext
Loop
%>
</table>
<%
response.write(\"<br>Der blev fundet \" & antal & \" poster.<br><br>\")
%>
<%Else%>
<big>Ingen poster blev fundet.</big>
<%end If%>
<%Else%>
Her kan du indtaste en SQL SELECT sætning.<br>
SYNTAX : <br>
SELECT feltnavn1 [, feltnavn2] [, feltnavn3] FROM tabelnavn [, tabelnavn2] WHERE betingelse<br><br>
Der vil så blive dannet en liste over de poster der opfylder sætningen.<br>
<%End If%>
<%If len(fejl) > 0 Then%>
<br><br><h3><%=fejl%></h3><br><br>
<%End If%>
<form method=\"POST\" action=\"SQL.asp\">
<textarea name=SQLstr rows=5 cols=72><%=SQLStr%></textarea><br>
<small>
Max feltbredde i tabel <INPUT TYPE=\"text\" NAME=\"feltbredde\" size=3 value=\'<%=feltbredde%>\'>
<INPUT TYPE=\"checkbox\" NAME=\"streger\" VALUE=\"on\" <%If request(\"streger\") = \"on\" then response.write(\" CHECKED \")%>> Streger i tabel
<INPUT TYPE=\"checkbox\" NAME=\"mellemrum\" VALUE=\"on\" <%If request(\"mellemrum\") = \"on\" then response.write(\" CHECKED \")%>> Mellemrum mellem celler
<INPUT TYPE=\"checkbox\" NAME=\"ascii\" VALUE=\"on\" <%If request(\"ascii\") = \"on\" then response.write(\" CHECKED \")%>> Som <a href=ascii.asp>ASCII</a>
</small>
<br><br>
<input type=\"submit\" value=\"Lad os se hvad vi kan finde....\" name=\"B1\">
<br> <small>HUSK at sætte notefelter til sidst i SQL sætningen!!</small>
</form>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
