Jak si vytvo°it vlastnφ SQL konzoli(II.)?
PokraΦovßnφ vΦerejÜφho Φlßnku na toto tΘma. Dozvφte se zde podrobn∞, jak lze vypisovat data z tabulky bez znalosti nßzvu sloupc∙. V Φlßnku naleznete formulß°e a k≤dy, kterΘ lze rovnou pou₧φt pro VßÜ web. Nev∞°φte ? ╚t∞te !

VΦera jsme si v Φlßnku Jak si vytvo°it SQL konzoly? ukßzali, jak to lze. Samoz°ejm∞ myslφm, jak lze vypsat data z tabulky ani₧ by jsme v∞d∞li nßzvy sloupk∙.

Dnes zde naleznete formulß°e hotovΘ p°φmo k pou₧φvßnφ. Na jednΘ stran∞ do nich vlo₧φte nßzev databßze a SQL dotaz. Na druhΘ stran∞ dostanete p°ehledn² v²stup, kter² jste si pomocφ SQL dotazu vy₧ßdali.

Zde je k≤d pro formulß°:

<Form action="dotazrun.asp" method="POST">
<table>
<tr>
<td>
Databaze(Vcetne cesty): </td><td><Input type="text" name="db"><br></td>
<td>SQL Dotaz:  </td><td> <Input type="text" name="SQL"><br></td>
<td><Input type="submit" name="OK" value="OK"></td>
</tr>
</table>
</Form>
Jako testovacφ data lze vy₧φt soubor <b>knihovna.mdb</b>, kter² obsahujΘ nßsledujφcφ tabulky: <b>knihy</b>, <b>auto°i</b>, <b>₧ßnry</b> a <b>citßty</b>. Pro vypsßnφ tabulky <b>knihy</b> lze tedy vyu₧φt nßsledujφcφ kombinace:
<br><br>
<b>Databßze</b>: knihovna.mdb <b>SQL dotaz</b>: Select * from knihy
<br><br>
P°φpadnΘ dotazy sm∞°ujte na <a href="mailto:ceskywap@ceskywap.cz">ceskywap@ceskywap.cz</a>

Tento HTML k≤d si vlo₧te do strßnky dotaz.asp

Dßle je nutnΘ do strßnky dotazrun.asp vlo₧φt nßsledujφcφ °ßdky:

<%
db = Request.Form("db")
SQL = Request.Form("SQL")

dale = 0

If DB = "" then
Response.Write("Nebyla zadßna cesta k databßzovΘmu souboru.<br>")
dale = 1
end if

if SQL = "" then
Response.Write("Nebyl zadßn SQL dotaz.<br>")
dale = 1
end if

if dale = 0 then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & _
" DBQ=" & Server.MapPath(DB)

Dim polozky(50)

Query = SQL

Set Rs = Conn.Execute(Query)

Response.Write("<table><tr>")
For Each F In Rs.Fields
Pocet = Pocet + 1
Polozky(Pocet) = F.Name
Response.Write "<td bgcolor=""#000000""><font color=""#FFFFFF"">" & Polozky(Pocet) & "</font></td>" & vbCrLf

Next

Response.Write " </tr>" & vbCrLf
If Rs.EOF then
Response.Write " <tr>" & vbCrLf & " <td colspan=""" & pocet & """> </td>" & vbCrLf & " </tr>" & vbCrLf & " <tr>" & vbCrLf & " <td colspan=""" & pocet & """>Prßzdn² v²sledek.</td>" & vbCrLf & " </tr>" & vbCrLf

Else

Do While Not Rs.EOF

Response.Write " <tr>" & vbCrLf
For Cyklus = 1 to Pocet
Response.Write " <td><tt>" & Rs(Polozky(Cyklus)) & "</tt></td>" & vbCrLf
Next
Response.Write " </tr>" & vbCrLf
Rs.MoveNext
Loop
End if
End if
%>

</table>
<center>[<a href="dotaz.asp">Zp∞t</a>]</center>

Tyto °ßdky Vßm zajistφ ono vypsßnφ z databßze. Ptßte se jak ? Nejd°φve p°evezmou data z p°edchozφ strßnky(formulß°e). Otestujφ zda-li jsou zadanΘ(ty data). Pokud ano, pokraΦujφ ve spojenφ s databßzφ a provedenφm SQL dotazu. Ten se vypφÜe do tabulky a spojenφ se uzav°e. Jak jednoduchΘ :)

VÜe si lze nßzornΘ otestovat na t∞chto strßnkßch, kde naleznete vzorovou databßzi.

VeÜkerΘ zdrojovΘ k≤dy jsou ke sta₧enφ zde.

Zden∞k Cendra
ceskywap@ceskywap.cz