Imports APNSoft.WebControls
Imports System.Data.OleDb

Public Class WebForm1
    Inherits System.Web.UI.Page


    'DataGrid declaration
    Protected dg1 As APNSoftDataGrid


    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Set the DataGrid properties
        dg1.ID = "dg1"
        dg1.BasePage = Me.Page
        dg1.SkinFolder = "~/Skins/APNSoft/"
        dg1.KeyFieldName = "CustomerID"

        'Define SQL query
        Dim SQL As String = "SELECT CustomerID, CompanyName, ContactName, " & _
            "Address, PostalCode FROM Customers ORDER BY CustomerID"

        'Set the data source
        dg1.DataSource = GetDataSource(SQL)
        dg1.DataBind()

        'Set CSS class for columns
        dg1.Rows("ANATR").CssClass = "SpecialRowRed"
        dg1.Rows("BERGS").CssClass = "SpecialRowGreen"
        dg1.Rows("BLONP").CssClass = "SpecialRowBlue"


    End Sub



    'Returns a DataTable from MS Access database
    Private Function GetDataSource(ByVal query As String) As DataTable

        Dim conn As OleDbConnection = New OleDbConnection
        Dim myOleDbDataAdapter As OleDbDataAdapter = New OleDbDataAdapter
        Dim myDataTable As DataTable = New DataTable

        conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
            System.Web.HttpContext.Current.Server.MapPath("~/DataBase/Nwind.mdb")

        myOleDbDataAdapter.SelectCommand = New OleDbCommand(query, conn)
        conn.Open()

        Try
            myOleDbDataAdapter.Fill(myDataTable)
        Finally
            conn.Close()
        End Try

        Return myDataTable

    End Function



#Region " Web Form Designer Generated Code "

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    End Sub

    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        InitializeComponent()
    End Sub

#End Region


End Class