Formßtovanie ADODB.Recordset do HTML tabu╛ky

Sformßtovanie v²sledkov databßzovej po₧iadavky (query) do podoby HTML tabu╛ky je najΦastejÜφm prφkladom vo vÜetk²ch ASP/ADO prφruΦkßch. My sa pok·sime prφklad trocha rozÜφri¥ a ukßza¥ ako si uÜetri¥ kopec duplicitnej roboty.

Majme Ütandardn· databßzku pubs, dodßvan· ako sampel s MS SQL SQL 6.5. Z nej si vyberieme tabu╛ku authors s nasledovnou Ütrukt·rou:

"ètandard²" sp⌠sob v²pisu vÜetk²ch zßznamov by bol asi nasledovn² (select * from authors):

  
      do while not rs.EOF 'iteracia po riadkoch
      Response.Write rs("au_id")
      Response.Write rs("au_lname")
      Response.Write rs("au_fname")
	.....

	
    next
    rs.moveNext
    Response.Write ""
  loop

Povedzme ₧e ste pou₧ili popφsan² k≤d. Ak by ste teraz chceli zmeni¥ query museli by ste zmeni¥ aj nßzvy a poΦet vypisovan²ch stσpcov v k≤de. Naprφklad ak chcete len au_lname, musφte vyhodi¥ dva riadky :

      Response.Write rs("au_id")
      Response.Write rs("au_fname")

Pok·sme sa vybra¥ z naÜej tabu╛ky vÜetky zßznamy a zobrazi¥ ich ako HTML tabu╛ku, trocha vÜeobecnejÜie:
NepodstatnΘ (formßtovacie) Φasti k≤du s· ÜedΘ.

'priklad1
sqlCommandString="select * from authors" 

' Connection a Recordset objekty
Set dc=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.Recordset")

' vytvorenie spojenia a otvorenie recordset objektu
dc.Open "DSN=pubs;UID=sa;PWD="
rs.Open sqlCommandString,dc,1,3

' ak neexistuje ziaden zaznam v tabulke
if rs.EOF and rs.BOF Then
  ' vypis chybovu hlasku
  Response.Write "" 

' ak existuje nejaky zaznam
else
  Response.Write "

"
end if

   sqlCommandString="select au_lname,phone from authors"

  sqlCommandString="select 'Priezvisko'=au_lname,'Telef≤n'=phone from authors"