Morpheusweb.it - Risorse per webmaster: script, ASP.NET, C#, Visual Basic .Net, tutorial, asp, javascript, css, php, html, java, ADO, VBScript, forms, frames, Active Server Pages, Dynamic HTML, database, gratis per webmaster e webdesigner

Reader Datagrid - << C# VERSION >>

Pupulate a Datagrid using a Reader

<%@ Page language="VB" Debug="false" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<HTML>
<script language="vbscript" runat="server">
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Dim myConn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0; Data Source=" &     Server.MapPath("database/utenti.mdb"))
  Dim myCmd As OleDbCommand = New OleDbCommand("select nome, cognome, email from utenti", myConn)
  If Not Page.IsPostBack Then
    Try
      Dim dt As DataTable = New DataTable
      dt.Columns.Add(New DataColumn("nome"))
      dt.Columns("nome").DataType = System.Type.GetType("System.String")
      dt.Columns.Add(New DataColumn("cognome"))
      dt.Columns("cognome").DataType = System.Type.GetType("System.String")
      dt.Columns.Add(New DataColumn("email"))
      dt.Columns("email").DataType = System.Type.GetType("System.String")
      myConn.Open()
      Dim aReader As OleDbDataReader = myCmd.ExecuteReader()
      Try
        Do While aReader.Read()
          Dim myDataRow As DataRow = dt.NewRow()
          myDataRow(0) = aReader("nome")
          myDataRow(1) = aReader("cognome")
          myDataRow(2) = aReader("email")
          dt.Rows.Add(myDataRow)
        Loop
      Finally
        aReader.Close()
      End Try
      Dim myDataView As DataView = new DataView(dt)
      DataGrid1.DataSource = myDataView
      DataGrid1.DataBind()
    Finally
      myConn.Close()
    End Try
  End If
End Sub
</script>
<body>
<form id="Form1" name="Form1" Runat="server">
<asp:DataGrid id="DataGrid1" runat="server" AutoGenerateColumns="False" BorderColor="#CC9966"
BorderStyle="None" BorderWidth="1px" BackColor="White" CellPadding="4">
<FooterStyle ForeColor="#330099" BackColor="#FFFFCC"></FooterStyle>
<SelectedItemStyle Font-Bold="True" ForeColor="#663399" BackColor="#FFCC66"></SelectedItemStyle>
<ItemStyle ForeColor="#330099" BackColor="White"></ItemStyle>
<HeaderStyle Font-Bold="True" ForeColor="#FFFFCC" BackColor="#990000"></HeaderStyle>
<Columns>
<asp:BoundColumn DataField="nome" HeaderText="nome"></asp:BoundColumn>
<asp:BoundColumn DataField="cognome" HeaderText="cognome"></asp:BoundColumn>
<asp:BoundColumn DataField="email" HeaderText="email"></asp:BoundColumn>
</Columns>
<PagerStyle HorizontalAlign="Center" ForeColor="#330099" BackColor="#FFFFCC"></PagerStyle>
</asp:DataGrid></form>
</body>
</HTML>

Download Code...

Page top