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 CATEGORIE AS C INNER JOIN M_CATEGORIE AS M ON C.ID_M_CATEGORIA=M.ID_M_CATEGORIA ORDER BY M_CATEGORIA,CATEGORIA"
       
        Dim dr As System.Data.OleDb.OleDbDataReader
        dr = com.ExecuteReader()
       
        Response.Write("<html><body>")
        Response.Write("<table>")
        While (dr.Read())
            Response.Write("<tr><th>" & dr("M.DENOMINAZIONE") & "</th></tr>")
            Response.Write("<tr>" & dr("C.DENOMINAZIONE") & "</tr>")
            
        End While
        Response.Write("</table></body></html>")
    End Sub