Dall'archivio script > Classic ASP

Un semplice Datagrid con ASP

di Daniele BochicchioDaniele Bochicchio, in Classic ASP, Database, Tips,

Con ASP.NET ci siamo abituati ad avere un oggetto in grado di mostrarci, in una tabella, il contenuto di una query di un database in maniera per noi quai del tutto trasparente.
L'esempio di oggi è qualcosa che si avvicina, come risultato, al datagrid di ASP.NET ma con quello che Classic ASP e ADO ci mettono a disposizione.
Se ne potrebbe fare una classe, ma anche con una Sub non se ne perde certamente l'utilità.
In breve, lo script ricrea il nome dei campi della tabella e poi tramite GetString costruisce la tabella stessa, nel metodo più veloce che esista, emulando per certi versi il concetto di snapshot tipico dei dataset di ASP.NET.
Ecco lo script:

<% 

Sub DataGrid(tabella)

  SQLConn = ""' stringa di conn

  set conn = server.createobject("ADODB.Connection")
  conn.open sqlconn

   Set rs = conn.Execute("SELECT * FROM " & tabella)

  ' ricavo il nome dei campi
   For i = 0 to RS.Fields.Count - 1
    intestazione = intestazione & "<th bgcolor=gray>" & RS(i).Name &"</th>"
    Next
 
  ' prendo i dati dal db
  strResults = rs.GetString(, 10,"</td><td>","</td></tr><tr><td>","-")
  set rs = nothing
  conn.Close
  set conn = Nothing

  ' output
  Response.Write ("<table border=1>")
  Response.Write ("<tr>" & intestazione & "</tr>")
  Response.Write ("<tr><td>" )
  Response.Write (strResults)
  Response.Write ("</td></tr></table>" )
End Sub

Call DataGrid("ordini")

%>

Commenti

Visualizza/aggiungi commenti

| Condividi su: LinkedIn, Facebook
Aggiorna

Per inserire un commento, devi avere un account.

Fai il login e torna a questa pagina, oppure registrati alla nostra community.

Approfondimenti

I più letti di oggi