| |
[ 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. |
|