defaultvb.aspx.vb

来自「Telerik是很大的第三方软件制造商」· VB 代码 · 共 46 行

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Telerik.QuickStart
Imports Telerik.WebControls

Namespace Telerik.GridExamplesVBNET.GroupBy.OutlookStyle

    Public Class DefaultVB
        Inherits XhtmlPage
        Protected WithEvents RadGrid1 As RadGrid
        Protected btnPostBack As System.Web.UI.WebControls.Button


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

#Region "Web Form Designer generated code"

        Protected Overrides Sub OnInit(ByVal e As EventArgs)
            InitializeComponent()
            MyBase.OnInit(e)
        End Sub


        Private Sub InitializeComponent()
        End Sub

#End Region


        Private Sub RadGrid1_NeedDataSource(ByVal [source] As Object, ByVal e As GridNeedDataSourceEventArgs) Handles RadGrid1.NeedDataSource
            Dim MyOleDbConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Server.MapPath("~/Grid/Data/Access/Nwind.mdb"))
            Dim MyOleDbDataAdapter As New OleDbDataAdapter
            MyOleDbDataAdapter.SelectCommand = New OleDbCommand("SELECT CustomerID, Country, City, CompanyName, ContactName, ContactTitle, PostalCode FROM Customers", MyOleDbConnection)

            Dim MyDataSet As New DataSet

            MyOleDbConnection.Open()
            MyOleDbDataAdapter.Fill(MyDataSet)
            MyOleDbConnection.Close()

            RadGrid1.DataSource = MyDataSet.Tables(0)
        End Sub
    End Class
End Namespace