利用AxDatagrid和AxAdodc控件实现对数据库的直接操作

利用AxDatagrid和AxAdodc控件实现对数据库的直接操作

谢XX

（陇东学院，庆阳，745000）

摘要：AxDatagrid和AxAdodc控件的完美结合能实现对数据库数据所见即所得的可视化操，是其它控件无法比拟的，本文的旨在利用AxDatagrid和AxAdodc控件实现对数据库的直接操作。实质是利用了AxAdodc控件的四大属性。其为AllowAddNew 、AllowArrows、AllowDelete、AllowUpdate属性。

关键字：Visual Basic 2008；Access2003；AllowAddNew；AllowArrows； AllowDelete；AllowUpdate；

Using controls of AxDataGrid and AxAdodc visually change database

Xie Hao Feng

(LongDong University 745000)

【Abstract】Combination of AxDatagrid and AxAdodc visually change database . It is best of all . This paper is in order to use AxDatagrid and AxAdodc to operate database,directly. The key is the four attribute of AxAdodc.They are AllowAddNew 、AllowArrows、AllowDelete、AllowUpdate.

【Keyword】Visual Basic 2008；Access2003； AllowAddNew；AllowArrows； AllowDelete；AllowUpdate；

1. 前言

Access数据库并不像Excel那样直观，但是在软件中其是Excel不可替代的。 电脑时代就是软件时代，用电脑就是用软件，而用软件就是用信息，信息集中体现于数据，而数据则存于数据库。因此，在软件编程中对数据库的操作尤为重要，对数据库的编程也就理所当然得不可或缺了。AxAdodc和AxDataGrid控件都不是visual Basic2008控件箱中的标准控件，需要通过 “选择项”来添加。工程用到的AxDataGrid的四大属性是操作的关键。他们分别是AllowAddNew 、AllowArrows、AllowDelete、AllowUpdate.。其值都为布尔值，true为可操作，false为不可操作。AllowAddNew属性表示是否允许添加，最大的特点是在运行后，数据下面会多出一行空行供添加记录；AllowArrows表示网格箭头是否可用；AllowDelete表示键盘上“Delete”删除键能否删除整行记录；AllowUpdate表示在显示的记录中是否可以更改记录。

Button AxAdodc AxDataGrid 将AxAdodc和AxDataGrid控件加入到了控件工具箱中。然后在窗体form1属性面板将name属性改为formScoreAdd。 在窗体上添加三个ComboBox控件、一个AxDataGrid、一个AxAdodc控件和五个button按钮控件。控件值如下所示图1—1。 控件名 Form Combobox Combobox Combobox 属性 Name Name Name Name AllowArrows AllowDelete AllowUpdate. Name Name Text Name Text Name Text Name Text Name Text 属性值 formScoreAdd ComboBox1 ComboBox2 ComboBox3 False False False AxAdodc1 Button1 显示数据 Button2 允许录入修改 Button3 停止录入修改 Button4 允许整行删除 Button5 允许数据添加 AllowAddNew False 2. 实例

2.1创建工程文件

创建一个“标准的EXE”工程，命名为“利用Axadodc和AxDataGrid控件实现对数据库的直接操作”。通过在控件箱中单击“右键”，选择“选择项”，然后通过页面中的com组件，选中“Microsoft DataGrid Control，version 6.0（OLEDB）”和“Microsoft ADO Data control 6.0（sp6）(OLEDB)”，点击“确定”后，

Button Button Button Button 图 1—1 控件属性值

2.2创建数据库文件

创建一个Access 2003数据库文件“学生成绩信息.mdb”,在库中创建表 “学生成绩表”来记录学生信息，不设主键，其数据结构如图1—2。 字段名称 数据类型 长度 自动编号 自动编号 长整型 姓名 文本 10 性别 文本 2 年级 文本 12 语文 文本 8 数学 文本 8 图1—2 temp 表的数据结构

在表中创建记录，其值如图1—3。

自 姓名 性别 年级 语文 数学 1 张三 男 一年级 50 70 2 李四 女 一年级 80 76 3 王五 女 二年级 68 67 4 顺六 男 二年级 90 85 图1—3 temp表中创建记录值

将创建好的数据库文件放在工程文件目录下： 利用Axadodc和AxDataGrid控件实现对数据库的直接操作/bin/Debug中，这样就可以将连接路径应用为：

3.编写代码

（1）窗体代码

Public Class formScoreAdd

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

'**************初始化数据连接************

AxAdodc1.CommandType =

MSAdodcLib.CommandTypeEnum.adCmdText AxAdodc1.ConnectionString = \=Microsoft.Jet.OLEDB.4.0;Data Source=\My.Application.Info.DirectoryPath & \学生成绩信息.mdb;Persist Security Info=False\

AxAdodc1.RecordSource = \distinct 性别 from 学生成绩表\ AxAdodc1.Refresh()

'******给ComboBox1添加年级信息**********

ComboBox1.Items.Clear()

While Not AxAdodc1.Recordset.EOF ComboBox1.Items.Add(AxAdodc1.Recordset.Fields(0).Value)

AxAdodc1.Recordset.MoveNext() End While End Sub

Private Sub

ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

'**********给ComboBox2添加班级信息******

AxAdodc1.RecordSource = \年级 from 学生成绩表 where 性别 ='\ComboBox1.Text & \ AxAdodc1.Refresh() ComboBox2.Items.Clear()

While Not AxAdodc1.Recordset.EOF

ComboBox2.Items.Add(AxAdodc1.Recordset.Fields(0).Value)

AxAdodc1.Recordset.MoveNext() End While End Sub

Private Sub

ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

'******给ComboBox3添加学期信息****** AxAdodc1.RecordSource = \语文 from 学生成绩表 where 性别 ='\ComboBox1.Text & \年级 = '\ComboBox2.Text & \ AxAdodc1.Refresh() ComboBox3.Items.Clear()

While Not AxAdodc1.Recordset.EOF

ComboBox3.Items.Add(AxAdodc1.Recordset.Fields(0).Value)

AxAdodc1.Recordset.MoveNext() End While End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'********给显示学生信息************** If ComboBox3.Text = \ MsgBox(\请输入完整信息！\ Exit Sub Else

AxAdodc1.RecordSource = \自动编号,姓名,性别,年级,语文,数学 from 学生成绩表 where 性别 ='\年级 = '\语文 ='\ComboBox3.Text & \

AxAdodc1.Refresh() AxDataGrid1.DataSource =

AxAdodc1.Recordset

AxDataGrid1.Refresh() End If End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'************成绩录入/修改********* MsgBox(\允许进行成绩录入/修改！\ AxDataGrid1.AllowUpdate = True End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

'******'停止成绩录入/修改************** AxDataGrid1.AllowUpdate = False MsgBox(\已经停止成绩录入/修改！\ End Sub

Private Sub AxDataGrid1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles AxDataGrid1.Enter

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

'************允许整行删除**************** AxDataGrid1.AllowDelete = True End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

'************允许添加记录**************** AxDataGrid1.AllowAddNew = True End Sub End Class

4 运行结果

运行程序后，单击窗体上的“显示数据”按钮，其运行结果如图1—4所示。

5 结语

通过一种演示，可以举一反三应运其它的属性参数，对数据进行操作，从允许和不允许两个方面来操作，如若作为后台操作，可以使用某些控件的透明属性隐藏空间的外观，为自己操作提供便利，也可以使用Ctrl和Shift配合使用，提高软件的质量。

本文来源：https://www.bwwdw.com/article/keh7.html