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

 

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

vb.net操作DataGridView控件的用法的集合,包括: 1. DataGridView当前的单元格属性取得、变更 2. DataGridView编辑属性 3. DataGridView最下面一列新追加行非表示 4. DataGridView判断当前选行是否为新追加的行 5. DataGridView删除行可否设定 6. DataGridView行列不表示和删除 DataGridView控件用法合集(二) 7. DataGridView行列宽度高度设置为不能编辑 8. DataGridView行高列幅自动调整 9. DataGridView指定行列冻结 10. DataGridView列顺序变更可否设定 11. DataGridView行复数选择 12. DataGridView选择的行、列、单元格取得 DataGridView控件用法合集(三) 13. DataGridView指定单元格是否表示 14. DataGridView表头部单元格取得 15. DataGridView表头部单元格文字列设定 16. DataGridView选择的部分拷贝至剪贴板 17.DataGridView粘贴 18. DataGridView单元格上ToolTip表示设定(鼠标移动到相应单元格上时,弹出说明信息) DataGridView控件用法合集(四) 19. DataGridView的ContextMenuStrip属性 20. DataGridView指定滚动框位置 21. DataGridView手动追加列 22. DataGridView全体分界线样式设置 23. DataGridView根据单元格属性更改显示内容 24. DataGridView新追加行的行高样式设置る 25. DataGridView新追加行单元格默认值设置 DataGridView输入错误数据的处理(五) 26. DataGridView单元格数据错误标签表示 27. DataGridView单元格内输入值正确性判断 28. DataGridView单元格输入错误值事件的捕获 DataGridView控件用法合集(六) 29. DataGridView行排序(点击列表头自动排序的设置) 30. DataGridView自动行排序(新追加值也会自动排序) 31. DataGridView自动行排序禁止情况下的排序 32. DataGridView指定列指定排序 DataGridView控件用法合集(七) 33. DataGridView单元格样式设置 34. DataGridView文字表示位置的设定 35. DataGridView单元格内文字列换行 36. DataGridView单元格DBNull值表示的设定 37. DataGridView单元格样式格式化 38. DataGridView指定单元格颜色设定 39. DataGridView单元格文字字体设置 40. DataGridView根据单元格值设定单元格样式 DataGridView控件用法合集(八) 41. DataGridView设置单元格背景颜色 42. DataGridView行样式描画 43. DataGridView显示行号 44. DataGridView焦点所在单元格焦点框不显示的设定 DataGridView控件用法合集(九) 45. DataGridView显示选择框CheckBox 46. DataGridView显示下拉框ComboBox 47. DataGridView单击打开下拉框 48. DataGridView显示按钮 49. DataGridView显示链接 50. DataGridView显示图像 DataGridView控件用法合集(十) 51. DataGridView编辑单元格控件取得 52. DataGridView输入自动完成 53. DataGridView单元格编辑时键盘KEY事件取得 54. DataGridView下拉框(ComboBox)单元格编辑时事件取得 55. DataGridView下拉框(ComboBox)单元格允许文字输入设定 DataGridView控件用法合集(十一) 56. DataGridView根据值不同在另一列显示相应图片 57. DataGridView显示进度条(ProgressBar) 58. DataGridView添加MaskedTextBox DataGridView控件用法合集(十二) 59. DataGridViewEnter键按下焦点移至旁边的单元格 60. DataGridView行集合化(Group)
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值