将DataGridView控件绑定到BindingSource 组件的实例

共2则

分类：VB.Net

乐博网lob.cn提示：调试环境为 vs2005 +  windows2003 / windows2008 / xp / vista + .NET Framework 2.0

第1则代码如下：

Option Strict On

Imports System.Data.SqlClient
Public Class LOB

    Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click
        Dim ds As New DataSet()

        Try
            Using cn As New SqlConnection(My.Settings.LocalSQLExpressChtNorthwind)
                cn.Open()

                Dim cmdLiming As New SqlCommand("SELECT 员工号码,姓名,部门 FROM 乐博网", cn)

                Using drLiming As SqlDataReader = cmdLiming.ExecuteReader()

                    ds.Load(drLiming, LoadOption.OverwriteChanges, New String() {"乐博网"})

                    ' 将 BindingSource 组件绑定到 DataSet 当中的“乐博网”数据表。
                    Me.BindingSource1.DataSource = ds.Tables("乐博网")

                    ' 将 DataGridView 控件绑定到 BindingSource 组件。
                    Me.DataGridView1.DataSource = Me.BindingSource1

                End Using
            End Using

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

    End Sub

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

    End Sub
End Class

[1] [2] 下一页