defaultvb.aspx.vb

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

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

Namespace Telerik.GridExamplesVBNET.DataEditing.UserControlAlternative

    Public Class DefaultVB
        Inherits XhtmlPage
        Protected WithEvents RadGrid1 As Telerik.WebControls.RadGrid


        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 * FROM Employees", MyOleDbConnection)

            Dim myDataTable As New DataTable

            MyOleDbConnection.Open()
            Try
                MyOleDbDataAdapter.Fill(myDataTable)
            Finally
                MyOleDbConnection.Close()
            End Try

            RadGrid1.DataSource = myDataTable
        End Sub

        Private Sub InitializeComponent()

        End Sub
    End Class
End Namespace