Jak si vytvo°it vlastnφ SQL konzoli(I.)?
V Φlßnku se dozvφte, jak vytvo°it strßnku, kterΘ staΦφ zadat SQL dotaz a na druhΘ stran∞ dostanete po₧adovan² v²sledek. Nemusφte znßt nßzvy sloupk∙ ! Nev∞°φte ? ╚t∞te !

Mßte-li rozsßhlejÜφ web, kter² obsahuje databßzi, jist∞ jste se setkali s problΘmem(nebo se setkßte), pot°eby vypsanφ dat z databßze, ani₧ by jste p°edem v∞d∞li SQL dotaz a sloupce, kterΘ chcete do v²stupu za°adit.

Samoz°ejm∞ existuje °eÜenφ, kterΘ spoΦφvß ve vytvo°enφ konkrΘtnφ strßnky a p°edevÜφm ve vypsßnφ vÜech po₧adovan²ch sloupc∙, kterΘ chcete mφt ve v²stupu.

Na prvnφ pohled to vÜak nenφ to sprßvnΘ a nejlepÜφ °eÜenφ. VÜe lze velice jednoduÜe "obejφt" pomocφ kolekce Fields, kterou mß ka₧dΘ spojenφ s databßzφ.
Nßsledujφcφ p°φklad Vßm dokumentuje, ₧e to opravdu lze:

<%
Response.Buffer = True
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & _
" DBQ=" & Server.MapPath("data/db.mdb")

Dim polozky(50)

Query = "Select * from ref where id = val(40000)"

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
%>
</table>

V²sledek tohoto p°φkladu naleznete zde.

Tento jednoduch² p°φklad si zjistφ pomocφ kolekce Fields u objektu RS jeho sloupky a potΘ je vypφÜe na strßnku.

Kolekci Fields lze vyu₧φt nap°φklad pro "SQL konzole", kterß Vßm zajistφ libovoln² pohled na libovolnou databßzi.

NedoΦkavci(na zφt°ek) si mohou zm∞nit °etezec Query a vlo₧it do n∞j sv∙j SQL dotaz. Uvidφte, ₧e to opravdu funguje :) Samoz₧ejm∞ nesmφte zapomenout na sprßvnΘ nadefinovßnφ spojenφ s databßzφ.

Zφtra si ukß₧eme, jak vytvo°it konkrΘtnφ formulß°e do kter²ch pouze zadßte nßzev databßze a SQL dotaz a na nßsledujφcφ strßnce dostanete po₧adovan² v²stup.

Je se tedy jist∞ na co t∞Üit :-)

PokraΦovßnφ tohoto Φlßnku naleznete zde.

Zden∞k Cendra
ceskywap@ceskywap.cz