dotNetHell.it - Forum - Codice Sorgente

  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim con As New System.Data.OleDb.OleDbConnection("Provider=SQLOLEDB;Data Source=GOMMOSA\SQLEXPRESS;Initial Catalog=MIO_SITO2;User ID=sa;Password=saweb")
        con.Open()
        Dim com As New System.Data.OleDb.OleDbCommand()
        com.Connection = con
        com.CommandText = "select * from M_CATEGORIE"
        Dim com2 As New System.Data.OleDb.OleDbCommand()
        com2.Connection = con
        com2.CommandText = "select * from CATEGORIE"
        Dim dr As System.Data.OleDb.OleDbDataReader
        dr = com.ExecuteReader()
        Dim dr2 As System.Data.OleDb.OleDbDataReader
        dr2 = com2.ExecuteReader()
        Response.Write("<html><body>")
        Response.Write("<table>")
        While (dr.Read())
            Response.Write("<tr><th>" & dr("DENOMINAZIONE") & "</th></tr>")
            While (dr2.Read())
                Response.Write("<tr>")
                Response.Write("<tr>" & dr2("DENOMINAZIONE") & "</tr>")
                Response.Write("</tr>")
            End While
        End While
        Response.Write("</table></body></html>")
    End Sub