I am having a problem with a datagrid I am trying to use. I have an Access
DB with two records I want to display. All that is displayed is the heading
for the datagrid. I can't seem to display the actual data.
Below is the Code Behind Portion:
Imports System.Data.Ole Db
Public Class Units
Inherits System.Web.UI.P age
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnos tics.DebuggerSt epThrough()> Private Sub
InitializeCompo nent()
End Sub
Protected WithEvents UnitList As System.Web.UI.W ebControls.Data Grid
Protected WithEvents UnitLists As System.Web.UI.W ebControls.Data Grid
'NOTE: The following placeholder declaration is required by the Web Form
Designer.
'Do not delete or move it.
Private designerPlaceho lderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeCompo nent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
'Put user code to initialize the page here
BindDataGrid()
End Sub
Sub BindDataGrid()
Dim strSQL As String = "SELECT * FROM Unit_General"
Dim dbconn As New
OleDb.OleDbConn ection(System.C onfiguration.Co nfigurationSett ings.AppSetting s.Get("dsn"))
Dim dt As DataTable
Dim dr As DataRow
Dim dret As OleDb.OleDbData Reader
Dim i As Integer
dbconn.Open()
Dim Command As New OleDb.OleDbComm and(strSQL, dbconn)
dret = Command.Execute Reader(CommandB ehavior.CloseCo nnection)
Try
'create a DataTable
dt = New DataTable
dt.Columns.Add( New DataColumn("Uni t Number", GetType(Integer )))
dt.Columns.Add( New DataColumn("Pri ce", GetType(Double) ))
dt.Columns.Add( New DataColumn("SqF t", GetType(String) ))
dt.Columns.Add( New DataColumn("Flo or Plan", GetType(String) ))
dt.Columns.Add( New DataColumn("Ten ant Status", GetType(String) ))
dt.Columns.Add( New DataColumn("Bed s", GetType(Integer )))
dt.Columns.Add( New DataColumn("Bat hs", GetType(Integer )))
Do While dret.Read()
dr = dt.NewRow()
dr(0) = dret(13)
dr(1) = dret(2)
dr(2) = dret(3)
dr(3) = dret(4)
dr(4) = dret(9)
dr(5) = dret(6)
dr(6) = dret(7)
'add the row to the datatable
dt.Rows.Add(dr)
Loop
Catch
End Try
dbconn.Close()
Command.Connect ion.Close()
'return a DataView to the DataTable
UnitLists.DataS ource = New DataView(dt)
UnitLists.DataB ind()
End Sub
End Class
THE ASPX REFERENCE TO THE DATAGRID IS AS FOLLOWS:
<asp:datagrid id="UnitLists" runat="server" ForeColor="Blac k"
GridLines="Hori zontal" CellPadding="4"
BackColor="Whit e" BorderWidth="1p x" BorderStyle="No ne"
BorderColor="#C CCCCC" Width="696px"
DataKeyField="U nit Number" AutoGenerateCol umns="False"
EditItemStyle-BackColor="yell ow" PageSize="50"
AllowSorting="T rue">
<SelectedItemSt yle Font-Bold="True" ForeColor="Whit e"
BackColor="#CC3 333"></SelectedItemSty le>
<EditItemStyl e BackColor="Yell ow"></EditItemStyle>
<AlternatingIte mStyle BackColor="#E0E 0E0"></AlternatingItem Style>
<HeaderStyle Font-Bold="True" ForeColor="Whit e"
BackColor="#333 333"></HeaderStyle>
<FooterStyle ForeColor="Blac k" BackColor="#CCC C99"></FooterStyle>
<Columns>
<asp:BoundColum n DataField="Unit Number" ReadOnly="True"
HeaderText="Uni t Number"></asp:BoundColumn >
<asp:BoundColum n DataField="Pric e" ReadOnly="True"
HeaderText="Pri ce"></asp:BoundColumn >
<asp:BoundColum n DataField="SqFt " ReadOnly="True"
HeaderText="SqF t"></asp:BoundColumn >
<asp:BoundColum n DataField="Floo r Plan" ReadOnly="True"
HeaderText="Flo or Plan"></asp:BoundColumn >
<asp:BoundColum n DataField="Tena nt Status" ReadOnly="True"
HeaderText="Ten ant Status"></asp:BoundColumn >
<asp:BoundColum n DataField="Beds " ReadOnly="True"
HeaderText="Bed s"></asp:BoundColumn >
<asp:BoundColum n DataField="Bath s" ReadOnly="True"
HeaderText="Bat hs"></asp:BoundColumn >
</Columns>
<PagerStyle HorizontalAlign ="Right" ForeColor="Blac k"
BackColor="Whit e"></PagerStyle>
</asp:datagrid>
Any help is greatly appreciated!
Sincerely,
ryan
