Gani ADO

haruffan da za a fi so don gani data daga recordset, kama yadda a za a gani data a cikin tabular HTML.

kura

kannun jiki
kannun jiki kamar yadda a za a kafa kiyaye tsaro na dabi'bi, kuma kafa recordset, kuma kai gani data a cikin HTML.
kannun jiki a cikin tabular HTML
kannun data daga tabular a cikin tabular HTML.
tsohuwa tabular HTML da aiki
kannun tabular HTML kuma yana cikin wani yanayi na yawa.
tsohuwa tabular HTML kuma yana cikin wani yanayi na yawa.
kannun tabular HTML kuma yana cikin wani yanayi na yawa.

gani sunan kwarin da kwarin nan

annan baramu na a kada gani data "Customers" a cikin tabular "Northwind" da a nuna: (kuma kai tsamman da a yi aikatawa da .asp a matsayin wani lokaci)

<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs = Server.CreateObject("ADODB.recordset")
rs.Open "SELECT * FROM Customers", conn
do until rs.EOF
  for each x in rs.Fields
    Response.Write(x.name)
    Response.Write(" = ")
    Response.Write(x.value & "<br />") 
  next
  Response.Write("<br />")
  rs.MoveNext
loop
rs.close
conn.close
%>

gani sunan kwarin da kwarin nan a cikin tabular HTML

annan baramu na a kada cewa za a gani data "Customers" a cikin tabular HTML:

<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs = Server.CreateObject("ADODB.recordset")
rs.Open "SELECT Companyname, Contactname FROM Customers", conn
%>

<%do until rs.EOF%>
   
   <%for each x in rs.Fields%>
      
   <%next
   rs.MoveNext%>
   
<%loop
rs.close
conn.close
%>

<%Response.Write(x.value)%>

tsohuwa tabular HTML da aiki

annan baramu na a kada HTML tabular, kuma ya kai dace:

<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Companyname, Contactname FROM Customers"
rs.Open sql, conn
%>
<%for each x in rs.Fields
    response.write("")
  next%>
  <%do until rs.EOF%>
    
    <%for each x in rs.Fields%>
      
    <%next
    rs.MoveNext%>
    
  <%loop
  rs.close
  conn.close
  %>


  

  " & x.name & "
  
<%Response.Write(x.value)%>