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/Vista/"
        dg1.KeyFieldName = "CustomerID"

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

        'Create the DataTable object
        Dim myDataTable As DataTable = GetDataSource(SQL)

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

        'Column formatting
        dg1.Columns("CustomerID").Template = "~/Templates/Orders.ascx"
        dg1.Columns("CustomerID").HeaderText = "Customer (CustomerID, CompanyName, ContactName):"
        dg1.Columns("CompanyName").Visible = False
        dg1.Columns("ContactName").Visible = False

    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