| |
[ 06. July 2000]
- Jany_Masaryk
ASP stránka na zobrazenie výsledkov SQL dotazu
Veľká väčšina ASP stránok je zameraná na zobrazenie výsledku SQL dotazu.
Nie som určite prvý, ktorého napadlo spraviť si univerzálnu časť kódu práve
pre túto často sa opakujúcu úlohu. A preto sa dnes zameráme na univerzálny
kód zobrazujúci výsledok SQL dotazu prehľadne do tabuľky.
Takýto univerzálny kód nám môže dobre poslúžit na prvotný nástreľ zobrazovania, resp.
testovacie účely. Na ostrom webe však doporučujem používať už upravenú
stránku, teda bez cyklu For Each Field in.
Tak a tu je náš univerzálny kód :
'Definovanie dotazu
SQL = "SELECT * FROM Country"
'Vytvorenie objektov Connection a RecordSet
Set oConn = Server.CreateObject("ADODB.Connection")
Set oRecordSet = Server.CreateObject("ADODB.Recordset")
'Otvorenie spojenia na databazu a objektu RecordSet
oConn.Open Application("connStr")
oRecordSet.Open SQL, oConn, adOpenDynamic
If oRecordSet.EOF AND oRecordSet.BOF Then
Response.Write("" & SQL & "->")
Else
Response.Write("<TABLE border=1>")
Response.Write("<TR>")
For Each Field in oRecordSet.Fields
Response.Write("<TD>")
Response.Write Field.Name
Response.Write("</TD>")
Next
Do While Not oRecordSet.EOF
Response.Write("<TR>")
For Each Field in oRecordSet.Fields
Response.Write("<TD>")
Response.Write Field.Value
Response.Write("</TD>")
Next
oRecordSet.MoveNext
Response.Write("</TR>")
Loop
Response.Write("</TR>")
Response.Write("</TABLE>")
End If
oRecordSet.Close
oConn.Close
Set oRecordSet = Nothing
Set oConn = Nothing
Ako vidno z kódu našej stránky jediné hodnoty, ktoré budeme meniť sú :
- SQL -> dotaz na SQL databázu
- Application("connStr") -> reťazec zabezpečujúci spojenie na databázu
|
|
| |
|
"ASP stránka na zobrazenie výsledkov SQL dotazu" | Login / vytvor konto | 0 Komentárov |
|
Za obsah komentárov je zodpovedný užívateľ, nie prevádzkovateľ týchto stránok. |
|