VB.net数据库编程中DataGrid控件的使用技巧

VB.net数据库编程中DataGrid控件的使用技巧

 

如何用同一个DataGrid显示不同的数据表；如何用DataGrid显示主表/明细表的内容；如何用DataGrid分页显示或编辑数据表的记录。这些技巧在开发数据库程序中很实用。

DataGrid是VB.NET中重要的数据感知控件，它不仅可以把数据库的记录以表格形式显示出来，而且可以表格形式编辑数据库的记录，所以，它在数据库编程中应用非常广泛。那么,在VB.NET数据库编程中DataGrid控件有哪些使用技巧呢？这就是我今天要谈的内容。

1、用同一个DataGrid分别显示不同的数据表

通过动态指定DataGrid的数据源就可以把一个（或多个）数据库中的多个数据表按需要显示在DataGrid中。

在图1、图2中所显示的就是这种情况。在这个实例中，使用的是student.mdb数据库，该数据库中的三个表分别是T_Stu（学生表）、T_Course(课程表)、T_Mark（成绩表）。由于有三个数据表，所以要在窗体上添加三个数据适配器，我们把这分别命名为daStu、daCourse、daMark，每个数据适配器可以连接到数据库中的一个数据，然后生成一个数据集（这  图1   里命名为 ds），数据集中有上述三个数据表。

接着就要编写代码来实现程序的功能。程序代码如下图

把上面程序中的 daCourse.Fill(ds, "T_Course")和 DataGrid1.DataMember = "T_Course"分别修改为daCourse.Fill(ds, "T_Course")和DataGrid1.SetDataBinding(ds, "T_Course")其功能是一样的。

实际上，我们还可以直接利用DataGrid控件显示多个数据表的功能来达到我们的要求。程序代码如下图

单击“加载”命令程序运行结果如下图2

二、用DataGrid显示主表/明细表的内容

左下图所示为程序运行结果的主从表内容。这二个表中有一个字段是相同的。这种情况下，当你在第一个DataGrid中单击任何一条记录，则在下面的第二个DataGrid中显示其对应的详细情况。

在这里，我们使用的数据表是MSSQL Server 2008中的northwind数据库中的orders和orderdetails。由于有二个数据表，所以使用了二个数据适配器daorders和daorderdetails。当数据集生成之后，请在数据上展开“+”会显示orderdetails表。这里要注意要，一定要建立二表的关系；用代码建，代码如下

   ds.Relations.Add("order_details",ds.Tables("orders").Columns("orderid"), ds.Tables("orderdetails").Columns("orderid"))

ds.relations.add(参数一，参数二，参数三)

参数一为自定义的关系明，参数二为数据集中主表的主键的列，参数三为明细表参照主表的外键列。程序代码如下：

三、分页显示或编辑数据表的记录。

用VB.NET程序还可以控制DataGrid分页浏览或编辑数据库记录。这是一个非常实用的功能。不过我们首先要明白，Windows窗体中的DataGrid控件本身不具有分页显示的功能，但我们可以控制它在一个页面中显示记录的条数，从而实现分页显示或编辑功能。

程序运行界面如下图。

要实现这个功能最关键的是要掌握数据适配器的Fill方法的用法，其基本用法是：

数据适配器.Fill（数据集，开始记录，要显示的记录条数，数据表）。

“开始记录”是从0开始显示数据表customers的前5条记录，则可以用下面的程序实现：

程序功能代码如下：

Imports System.Data.SqlClient

Imports System.Data

Public Class Form1

    Dim con As New SqlConnection("datasource=localhost;initial catalog=northwind;user id=sa;password=123")

    Dim da As New SqlDataAdapter("select* from customers", con)

    Dim ds As New DataSet()

    DimcurrentIndex As Integer'当前页首条记录的序列数，第一页从0开始

    Public Const pageSize As Integer = 5 '每页显示的记录数

    Dim w As Integer '总页数

 

    Private Sub dsFill()

        ds.Clear()

        da.Fill(ds, currentIndex, pageSize, "customers")

        DataGrid1.DataMember = "customers"

    End Sub

    Private Sub Form1_Load(sender AsObject, e AsSystem.EventArgs) HandlesMe.Load

        currentIndex = 0

 

        Dim n As Integer '总记录数

        con.Open()

        ds.Clear()

        DataGrid1.DataSource = ds

        da.Fill(ds, "customers")

        DataGrid1.DataMember = "customers"

        n = ds.Tables(0).Rows.Count

        If(Int((n) / pageSize)) = n / pageSize Then '如果整除

            w = Int(n / pageSize)

        Else

            w = Int(n / pageSize) + 1

        End If

        Label1.Text = "请输入页码，页码数大于1小于" & w

        btnBefor.Enabled = False

        dsFill()

        con.Close()

 

    End Sub

 

 

 

    Private Sub btnNext_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesbtnNext.Click

        btnBefor.Enabled = True

        btnFirst.Enabled = True

        IfcurrentIndex < (w - 1) * pageSize Then

            currentIndex = currentIndex +pageSize

            btnLast.Enabled = True

        Else

            currentIndex = (w - 1) * pageSize

            btnLast.Enabled = False

            btnNext.Enabled = False

        End If

        dsFill()

    End Sub

 

    Private Sub btnBefor_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesbtnBefor.Click

        btnBefor.Enabled = True

        btnLast.Enabled = True

        IfcurrentIndex = 0 Then

            btnBefor.Enabled = False

        Else

            currentIndex = currentIndex -pageSize

        End If

        dsFill()

    End Sub

 

    Private Sub btnShow_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesbtnShow.Click

        Dim x As Integer '定义用户在文本框中输入的页码

        x = Val(TextBox1.Text)

        If x>= 1 And x <= w Then

            currentIndex = (x - 1) * pageSize

            dsFill()

        Else

            MsgBox("你输入的页码必须在1和" & w & "之间")

        End If

    End Sub

 

    Private Sub btnFirst_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesbtnFirst.Click

        currentIndex = 0

        btnBefor.Enabled = False

        btnFirst.Enabled = False

        btnLast.Enabled = True

        btnNext.Enabled = True

        dsFill()

 

    End Sub

 

    Private Sub btnLast_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesbtnLast.Click

        currentIndex = (w - 1) * pageSize

        btnLast.Enabled = False

        btnNext.Enabled = False

        btnFirst.Enabled = True

        btnBefor.Enabled = True

        dsFill()

    End Sub

 

    Private Sub btnQuit_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesbtnQuit.Click

        con.Dispose()

        End

    End Sub

 

    Private Sub btnOk_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesbtnOk.Click

        '''DimsqlComd As New SqlCommand

        'da.Update(ds,"customers")

        'MessageBox.Show("数据更新已完成")

    End Sub

End Class

 

到此处数据更新功能未能实现，待续……