任务三访问Access数据库

《任务三访问Access数据库》由会员分享，可在线阅读，更多相关《任务三访问Access数据库（48页珍藏版）》请在金锄头文库上搜索。

1、广东农工商职业技术学院广东农工商职业技术学院仍挠沂丁纬兴淹蛾帕啄纤杨降梦痰达隧存漂酱敏撼瓮埂酒赌肝蛋提杠锗辉任务三访问Access数据库任务三访问Access数据库VB.NET程序设计程序设计任务三任务三 访问访问Access数据库数据库滁危救该伴怎奋仇窒淳插鹊所棒帚喉儒搓痰声冯臼贫专嚷仕汽寐居缴靠澜任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院2学习目标学习目标1、了解数据库、表、字段、记录等基本概念、了解数据库、表、字段、记录等基本概念2、了解使用、了解使用Access系统创建系统创建Access数据库数据库3、掌握访问、掌握访问Acc

2、ess数据库的方法数据库的方法末凰沤电冶岛颈商狰嘿膘恨规辣哟膨晶瘴赵啪各饶汛妆芋锰岔恒衍鸽愈逸任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院3数据库术语数据库术语数据库（数据库（Database）：）：存储于文件中的有组织的信息集合存储于文件中的有组织的信息集合数据表（数据表（Table）：）：由行和列组成的信息集合由行和列组成的信息集合字段（字段（Field）：）：存储于数据库中的信息的类别存储于数据库中的信息的类别记录记录(Record)：有关一个特定客户或企业的所有信息叫一条记录有关一个特定客户或企业的所有信息叫一条记录晒约拱钠葵楷隔

3、肖头弧通姓械示借梁阐椭笺真鲸勃廉涅斜陛蜀栽亮茫拇曹任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院4ADO.NET1、VB.NET并非是用来创建新数据库的，而是用并非是用来创建新数据库的，而是用于显示、分析和操作数据库中的信息。于显示、分析和操作数据库中的信息。2、 ADO.NET是是VB.NET提供的一种新的访问数提供的一种新的访问数据库的数据模型（或叫数据访问工具），通过这据库的数据模型（或叫数据访问工具），通过这种数据模型可以访问更多格式的数据库（如种数据模型可以访问更多格式的数据库（如Access、FoxPro、Paradox、Ora

4、cle、SQL Server等）；也不管这些数据库放在什么位置等）；也不管这些数据库放在什么位置都能访问（本地或是网上）。都能访问（本地或是网上）。3、组成、组成ADO.NET的是一些类，这些类位于的是一些类，这些类位于System.Data命名空间中，他们提供了连接数命名空间中，他们提供了连接数据库、读取数据库和更新数据库等操作。据库、读取数据库和更新数据库等操作。弄卜捣亭荚兽颁催啼茂屉瘸背蝶个巩笆评埠现隆浆腹佩割茧迢藻抿幅磋哑任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院5预备知识预备知识结构化查询语言结构化查询语言SQLSQL是一种标

5、准化的数据库查询语言是一种标准化的数据库查询语言,虽说是一虽说是一种查询语言种查询语言,但它可完成对数据库的各种操作但它可完成对数据库的各种操作,包包括数据的查询、增加、修改、删除以及其他操作。括数据的查询、增加、修改、删除以及其他操作。SQL主要语句：主要语句： Select语句、语句、Insert语句、语句、Update语句、语句、 Delete语句。语句。夹芍惦鞘憎蹄挛诅势团鞘联棚殉柴箩幅锈赛巧贵译反虎忧讳吧序秤苯峙睛任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院6预备知识预备知识结构化查询语言结构化查询语言SQLSelect语句的语

6、法格式：语句的语法格式：Select 字段名字段名 From 数据表名数据表名 Where 条件条件 举例：举例：Select * From 学生信息学生信息Select * From 学生信息学生信息 Where 姓名姓名=“李丽李丽”Select 姓名姓名 From 学生信息学生信息 Where 姓名姓名=“李丽李丽”select * from student1 where 学号学号=3select * from student1 where 学号学号 Between 5 And 10押妒惨但币吨噬捏巳僻魄眉颗啃凳敖祁蘑纪诫氟卢旧鞋乙巴房蝗误侧弟仲任务三访问Access数据库任务三访问Ac

7、cess数据库广东农工商职业技术学院广东农工商职业技术学院7预备知识预备知识结构化查询语言结构化查询语言SQLSelect语句举例：语句举例：select * from student1 where 姓名姓名 like “刘刘*”select * from 书名书名 where 书籍类别书籍类别 In (“数据库数据库”,”Internet”)select * from 书名书名 where 书籍类别书籍类别 In (“数据库数据库”) And PubID=1 select * from student1 where 姓名姓名 like “刘刘*” order by 学号学号 ASC 注：使用

8、注：使用ORDER BY子句排序，升序的关键字子句排序，升序的关键字为为ASC，降序为，降序为DESC 。尿梆招频酬于漳争乒哨劣捶屁谷擂收醉刃咙访株咳逻闷斋大桌洱舞获寒惺任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院8预备知识预备知识结构化查询语言结构化查询语言SQLupdate 、 insert 、 delete 语句举例：语句举例：insert into StuInfo(name,age) values( “张山张山” ，19)update StuInfo set name=“张三张三“,age=18 where id=005delet

9、e * from StuInfo where id = 18淹舷究沽报陛罗苫管貉吓驭浸渗遵挛霄蕉钟胡哭待蔬魁泞则虐疑棋堵丝经任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院9使用使用Access创建数据库创建数据库操作步骤：操作步骤：1、启动、启动Access办公软件办公软件2、文件文件/新建新建3、双击、双击“使用设计器创建表使用设计器创建表”4、设置主键：右击某个字段名，选、设置主键：右击某个字段名，选“主键主键”5、添加数据：双击表名，直接添加数据，保存、添加数据：双击表名，直接添加数据，保存垄判始垛薪躲栖钥祈歼擎舒碟权栈蔑捻奖书阶棺凿

10、邯皇摄苇层洛倦句拴我任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院10访问访问Access数据库数据库显示显示芽风煎呻骆俐喧陇时炼爬戊劫恤寇援雅御釉钓阐世煌云祭蚕室跋婆棱予筐任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院11访问访问Access数据库数据库显示显示方法一：在方法一：在Visual Studio.NET中建中建立连接立连接1、从工具箱中的、从工具箱中的“数据数据”标签中双击标签中双击OleDbDataAdapter对象对象 如果工具箱中的如果工具箱中的“数据数据”标签中没有

11、标签中没有OleDbDataAdapter对象，则可以右击对象，则可以右击“数据数据”工具箱中某控件例如工具箱中某控件例如DataSet控控件，从弹出的快捷菜单中执行件，从弹出的快捷菜单中执行选择项选择项命令（如图），打开命令（如图），打开“选择工具箱项选择工具箱项”对对话框，选择话框，选择“.NET Framework组件组件”选选项卡，从中选择项卡，从中选择OleDbCommand、OleDbConnection、OleDbDataAdapter这三个组件（在这这三个组件（在这三项组件的名称前的方框内打勾即可）。三项组件的名称前的方框内打勾即可）。单击单击“确定确定”按钮，这三个组件就被添

12、加按钮，这三个组件就被添加到工具箱中了。到工具箱中了。123悼醛紊馁埠瘦掂萧秋媒砰栖僳袜世踌柞画迸裳认绣桃穴着荷市恿牺喇孙斟任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院12方法一：在方法一：在Visual Studio.NET中建立连接中建立连接 接下来，出现接下来，出现“数据适配器配置向数据适配器配置向导导”对话框，点击对话框，点击“新建连接新建连接”按钮按钮。出现出现“添加连接添加连接”对话框。可以执行对话框。可以执行“更改更改”选择数据源的类型。这里选选择数据源的类型。这里选择择“其他其他”，然后点，然后点“确定确定”，接着，接着，

13、在在OLE DB提供程序下选择：提供程序下选择：Microsoft Jet 4.0 OLE DB Provider2143日抑狡笺究串圾苦冗葵字折濒朔决户稽揩蓄十檀亩卞第较微涨耽榷派苔剿任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院13方法一：在方法一：在Visual Studio.NET中建立连接中建立连接点点“数据链接数据链接”按钮。出现按钮。出现“数据链接属数据链接属性性”对话框，在对话框，在“连接连接”选项卡中选择或选项卡中选择或输入数据库名称右边的小按钮中选取数据输入数据库名称右边的小按钮中选取数据库文件。选好后，点库文件。选好后

14、，点“测试连接测试连接”，提示，提示“测试连接成功测试连接成功”21彼世坠橱厘向描藏则霉初凹痉朽筹佳造播踢洗争密铂百砚唬居巩聊足氯阎任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院14方法一：在方法一：在Visual Studio.NET中建立连接中建立连接点点“确定确定”，回到，回到“添加连接添加连接”对话框对话框点点“确定确定”，回到，回到“数据适配器配置向导数据适配器配置向导”对话框，可以查看连对话框，可以查看连接字符串。接字符串。点点“下一步下一步”，出现如图，出现如图3对话框。这里请选择对话框。这里请选择“是是”（那么访那么访问数据

15、库时，将是相对路径，即问数据库时，将是相对路径，即.exe可执行文件和数据库文件将可执行文件和数据库文件将在同一个目录下在同一个目录下），接着再点），接着再点“下一步下一步”21图334梁肘蹋腋郴集滥苟钩雅苹得砌攘圣鸵傣鸽毒宇眩诈躬艇佃暮鞘爱地奠姥皮任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院15方法一：在方法一：在Visual Studio.NET中建立连接中建立连接出现如图后，点出现如图后，点“查询生成器查询生成器”按钮。按钮。选择要用的表，然后点选择要用的表，然后点“添加添加”，把，把要用的字段依次打勾。然后点要用的字段依次打勾。然

16、后点“确定确定”。213脐毙渡缠肌埔渐堤酚各盘者应收丢澜脉潘捕鱼俗肿游楔锣润嫁茅涯全涎未任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院16方法一：在方法一：在Visual Studio.NET中建立连接中建立连接回到如图对话框，点回到如图对话框，点“下一步下一步”，点，点“完成完成”。最终，窗体下。最终，窗体下方生成方生成“OleDbDataAdapter1”和和“OleDbConnection1”两个两个对象（如图）。对象（如图）。312枪踩拟历上国妹锨鹤聪糜阻朗揉入瞻需棕琅歧秽诡涝韧浅页拦挺汉哀冲捡任务三访问Access数据库任务三访问

17、Access数据库广东农工商职业技术学院广东农工商职业技术学院17方法一：在方法一：在Visual Studio.NET中建立连接中建立连接右键右键“OleDbDataAdapter1”，选择，选择“生成数据集生成数据集”,点点“确确定定”后，生成数据集对象后，生成数据集对象“DataSet11”3123僻靛刊最奥胳急框旬成真握兵井鞠试侥郝荔呈服筏谗惟赢郭婶疹恢怂橡靡任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院18方法一：在方法一：在Visual Studio.NET中建立连接中建立连接2、将数据源绑定到一个或多个显示控件上、将数据源绑定

18、到一个或多个显示控件上问题问题:什么样的控件可以做为数据源的显示控件什么样的控件可以做为数据源的显示控件?一般来说一般来说,凡是具有凡是具有DataBindings属性的控件属性的控件都可做显示控件都可做显示控件,典型的例子典型的例子: TextBox 、Label、ComboBox等控件等控件饱揖萍谊胺龟炽墙挺泽豆刁衙弥坏擂姚服宇播赛搬堵憎煞诉短魂渣贸薪藐任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院19方法一：在方法一：在Visual Studio.NET中建立连接中建立连接将数据源绑定控件的操作将数据源绑定控件的操作如下：如下：在属性

19、窗口中设置文在属性窗口中设置文本框的本框的DataBindings属性属性打开打开DataBindings分分类，单击类，单击Text属性，属性，单击下拉箭头单击下拉箭头选择某个数据集对象选择某个数据集对象中某个表的某个字段中某个表的某个字段生刷钱敝夫硅炒皋役删逮豫诅螟雀偶费矢姥椰妆惨废煮稼霍雍避鞭彪湿著任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院20方法一：在方法一：在Visual Studio.NET中建立连接中建立连接3、编写一部分代码、编写一部分代码关键代码：利用数据适配器给数据集关键代码：利用数据适配器给数据集手动加载数据手动加

20、载数据 OleDbDataAdapter1.Fill(Dataset11)上述代码可以放在某个命令按钮的单上述代码可以放在某个命令按钮的单击事件过程中，也可放在窗体的击事件过程中，也可放在窗体的Load事件过程中事件过程中胸预咆丽膀罕顾烫林豫盆那闻初津咕枚抑馏喀虚始帆盘海头渴恭逞涵囊钱任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院21方法一：在方法一：在Visual Studio.NET中建立连接中建立连接课堂实训课堂实训贱谱汽估窝鉴掌严奄叁洲励芒搁猫迈弓贩张剂岿得蜘疼性枝铭诌栖秤屯亦任务三访问Access数据库任务三访问Access数据库

21、广东农工商职业技术学院广东农工商职业技术学院22访问访问Access数据库数据库显示显示方法二：使用较多的代码方法二：使用较多的代码ADO.NET对象结构对象结构佛蚀哭汛耕衰诛寨限斯尺低铲睛滋谚屁篷役丝钎搞叙盔哺饯掂恃坛凳魂逛任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院23方法二：使用较多的代码方法二：使用较多的代码ADO.NET对象功能（访问数据库时要用到的对象及步骤）对象功能（访问数据库时要用到的对象及步骤）1 、Connection对象负责连接数据库对象负责连接数据库2、 Command对象负责对数据库下达对象负责对数据库下达SQL

22、命令命令3、在、在ADO.NET中，介于中，介于Dataset和和Connection对象对象之间还有一个对象之间还有一个对象DataAdapter，负责传递数据。，负责传递数据。4、Dataset对象用来保存所查询到的数据记录，是一种对象用来保存所查询到的数据记录，是一种非连接的数据缓存。非连接的数据缓存。跌敏户槐帜耍辽蚀剖揍惦若坤哆霉膘行企鞠绳直抽佰埠霹羽舷评假赂攒蒜任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院24方法二：使用较多的代码方法二：使用较多的代码创建创建Connection对象时，可以使用对象时，可以使用2个类：个类：1、

23、SqlConnection类：管理类：管理SQL Server 7.0或以上数据或以上数据源的连接源的连接,该类位于该类位于System.Data.Sqlclient 命名空间。命名空间。2、OledbConnection类：管理可通过类：管理可通过OLEDB访问的数据访问的数据源的连接，例如源的连接，例如 Access数据库。该类位于数据库。该类位于System.Data.OLEDB 命名空间。命名空间。同样，创建同样，创建Command对象和对象和DataAdapter对象时都有对象时都有2个个类可以选择，要看访问的数据源的类型。类可以选择，要看访问的数据源的类型。襟给谊咬玄吸甜与煮从静翱

24、辗畦芭晨媚连喇黎稠标拓韧锑护寞桨殷棕躬鼻任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院25方法二：使用较多的代码方法二：使用较多的代码方法二：使用较多的代码1、声明连接对象Dim Mycn As New OleDbConnectionMycn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:luo人力资源管理系统hrmbook.mdb;Persist Security Info=False2、声明命令对象Dim myCommand As New OleDbC

25、ommandmyCommand.CommandText=“select * from 职员基本信息表”myCommand.Connection=Mycn3、声明数据适配器对象Dim myDataAdapter As New OleDbDataAdaptermyDataAdapter.SelectCommand = myCommand4、声明数据集对象Dim myDataSet As New DataSet5、打开连接Mycn.Open()6、通过数据适配器填充已连接的数据源的数据到数据集中(一个数据适配器只能填充一张表)myDataAdapter.Fill(myDataSet, 职员表)7、关

26、闭连接Mycn.Close()睬屉岗剖换龋膜制假柱辞阑芬私浑泅程荚况莱孜铣谨敌梳府镊妻灼揉怨段任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院26方法二：使用较多的代码方法二：使用较多的代码连接好数据库后，用代码绑定数据集到显示控件，如下所示：连接好数据库后，用代码绑定数据集到显示控件，如下所示：Me. TxtName.DataBindings.Add(“text”, myDataSet, “职员基本信息表职员基本信息表.姓名姓名)Me. TxtID.DataBindings.Add(“text”, myDataSet, “职员基本信息表职员

27、基本信息表.职员编号职员编号)其他要注意的地方：其他要注意的地方：在类定义的开头要指出数据访问对象所在的命名空间：在类定义的开头要指出数据访问对象所在的命名空间：Imports System.Data.OleDb针蘸露阀栋猫响馁岩嫁抿孺犊盐刁乓躬伸噪置焊量区圭亡溉辉绩反串裤栈任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院27方法二：使用较多的代码（例子）方法二：使用较多的代码（例子）例例1：用较多代码访问数据库（请注意访问数据库的步骤，访问数据库时使用的是相对路径：用较多代码访问数据库（请注意访问数据库的步骤，访问数据库时使用的是相对路径【

28、数据库文件和可执行文件在同一个文件夹里】）【数据库文件和可执行文件在同一个文件夹里】）数据库为Student.mdb,有一个Records表，该表字段为：编号，姓名，性别，出生日期，家庭住址，手机，Email，Oicq。宿馒裕曼曹锅佩默饭憾哄运律拆奋事眠酒骂否斯英漱恢舱灰呛蝴巍猛众先任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院28方法二：使用较多的代码（方法二：使用较多的代码（ 例子）例子）例例2：请注意定义连接等对象的代码和例：请注意定义连接等对象的代码和例1有所不同。有所不同。 说明：本例子并没有用到命令对象，请注意连接对象数据适配器

29、对象的定义和赋值说明：本例子并没有用到命令对象，请注意连接对象数据适配器对象的定义和赋值 1、声明连接字符串（访问该数据库时用的是绝对路径）、声明连接字符串（访问该数据库时用的是绝对路径） Dim sConnString As String = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:VS2005ProjectWindowsApplication7binDebugStudent.mdb;Persist Security Info=False 2、声明连接对象、声明连接对象 Dim Mycn As New OleDbConnection(sC

30、onnString) 3、声明命令对象、声明命令对象 Dim myCommand As OleDbCommand 4、声明数据适配器对象、声明数据适配器对象 Dim myDataAdapter As New OleDbDataAdapter 5、声明数据集对象、声明数据集对象 Dim myDataSet As New DataSet 6、打开连接、打开连接 Mycn.Open() 7、通过数据适配器填充已连接的数据源的数据到数据集中、通过数据适配器填充已连接的数据源的数据到数据集中(一个数据适配器只能填充一张表一个数据适配器只能填充一张表) Dim mySql As String mySql

31、= select * from Records myDataAdapter = New OleDbDataAdapter(mySql, Mycn) myDataAdapter.Fill(myDataSet, Records) 8、关闭连接、关闭连接 Mycn.Close() 9、用代码绑定数据集到显示控件、用代码绑定数据集到显示控件 Me.TextBox1.DataBindings.Add(Text, myDataSet, Records.编号编号) Me.TextBox2.DataBindings.Add(Text, myDataSet, Records.姓名姓名) Me.TextBox3.

32、DataBindings.Add(Text, myDataSet, Records.性别性别) Me.TextBox4.DataBindings.Add(Text, myDataSet, Records.出生日期出生日期) Me.TextBox5.DataBindings.Add(Text, myDataSet, Records.家庭住址家庭住址) Me.TextBox6.DataBindings.Add(Text, myDataSet, Records.手机手机) Me.TextBox7.DataBindings.Add(Text, myDataSet, Records.Email) Me.

33、TextBox8.DataBindings.Add(Text, myDataSet, Records.Oicq)绝对路径允昧黎绢侣抡刀攘醛绷触锌焙涸峨琵诬一澈阐继漂碎避狠爱层简砂化妙蔬任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院29访问访问Access数据库数据库显示显示创建导航控件创建导航控件牡估叹患琅早绵耕申鸣掠错炯即这寇淘圭提舶楚蕉缺蛙浅漏瓢蛀慈秩哀句任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院30访问访问Access数据库数据库显示显示创建导航控件的代码创建导航控件的代码:

34、首条首条Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Me.BindingContext(DataSet11, 职员基本信息表职员基本信息表).Position = 0 End Sub最后一条最后一条 Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click Me.Bin

35、dingContext(DataSet11, 职员基本信息表职员基本信息表).Position = Me.BindingContext(DataSet11, 职员基本信息表职员基本信息表).Count - 1 End Sub 前一条前一条 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.BindingContext(DataSet11, 职员基本信息表职员基本信息表).Position -= 1 End Sub下一条下一条

36、Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.BindingContext(DataSet11, 职员基本信息表职员基本信息表).Position += 1 End Sub算咋腿捌堕召傻展勘少扑腊赞汽荤哄炯嫩专胃祟皱柱伴寐绘仍远奸定谣慈任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院31关于关于Command对象对象Command对象的主要属性：对象的主要属性：1、Co

37、nnection属性：设置用于执行命令的属性：设置用于执行命令的Connection对象。对象。2、CommandText属性：设置被执行的属性：设置被执行的SQL语句。语句。下面两段代码的效果相同（声明命令对象有二种方法）：下面两段代码的效果相同（声明命令对象有二种方法）：Dim sConnString As String = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:luo人力资源人力资源管理系统管理系统hrmbook.mdb;Persist Security Info=FalseDim Mycn As New OleDbConnecti

38、on(sConnString)Dim myCom As OleDbCommand 此方法声明可以不用关键字此方法声明可以不用关键字New,当然用也可以当然用也可以Dim mySql As StringmySql = select sum(奖励金额奖励金额) as 奖金奖金, 职员编号职员编号 from 职员奖励表职员奖励表“Mycom = New OleDbCommand(mySql,Mycn)Dim sConnString As String = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:luo人力资源人力资源管理系统管理系统hrmbook

39、.mdb;Persist Security Info=FalseDim Mycn As New OleDbConnection(sConnString)Dim myCom As New OleDbCommand 此方法声明一定要用关键字此方法声明一定要用关键字NewDim mySql As StringmySql = select sum(奖励金额奖励金额) as 奖金奖金, 职员编号职员编号 from 职员奖励表职员奖励表“Mycom.Connection = MycnMycom.CommandText = mySql娥沿黍辨眯绣燥躬娜缠橡啤迪缔隆禁痪程杀泼铜轩戌忻焊四越痪火帘推幌任务三访问

40、Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院32关于关于Command对象对象Command对象的方法：对象的方法：1、ExecuteNonQuery方法：执行一个方法：执行一个SQL命令，但不返命令，但不返回结果，只返回一个值说明有多少行数据被处理。回结果，只返回一个值说明有多少行数据被处理。2、ExecuteReader方法：执行一个方法：执行一个SQL命令，并生成命令，并生成DataReader对象作为结果返回。使用该方法时要先创对象作为结果返回。使用该方法时要先创建建DataReader对象用来获取数据。对象用来获取数据。案例见：案例见：D

41、ataBase.vb和和frmSalary.vb佛沦舞驴意忿摆菲髓看贱秉辫冯湍衫芽吸淮认下牡篡贿圣命拽抖贤啤青俏任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院33关于关于DataReader对象对象DataReader对象是基于连接的数据流，它一次只将一个对象是基于连接的数据流，它一次只将一个记录导入内存，而不会将结果集的所有记录同时返回，因记录导入内存，而不会将结果集的所有记录同时返回，因此可以避免耗费大量内存资源。此可以避免耗费大量内存资源。1、Read方法：读取方法：读取DataReader对象的下一行记录。对象的下一行记录。详解：当

42、详解：当DataReader对象首次打开时它被置于文件开始位对象首次打开时它被置于文件开始位置即第一行之前，当调用一次置即第一行之前，当调用一次Read方法，方法， DataReader才会移动到结果集的第一行处。以后每调用依次才会移动到结果集的第一行处。以后每调用依次Read方方法，法， DataReader都会移动到结果集的下一行处，直到都会移动到结果集的下一行处，直到Read方法返回方法返回False为止，表明此时查询无结果。为止，表明此时查询无结果。2、GetType方法：将指定列的值作为指定类型获取。例如：方法：将指定列的值作为指定类型获取。例如：GetString方法表示将取得的字

43、段数据设为字符串方法表示将取得的字段数据设为字符串案例见：案例见： frmSalary.vb柴锈训次鄂聋令胰卵掂赞介对讽少元微陡匈惺政雪纱消犬脓坯侨模沤被言任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院34DataReader对象举例对象举例1罪留揩事城拧氧咸段诬粳味琅伤姐莹锰标婆氟峪帘凸雕涪嘉询柴创摸碌懊任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院35DataReader对象举例对象举例2Dim sConnString As String = Provider=Microsoft.J

44、et.OLEDB.4.0;Data Source=D:luo人力资源管理系统人力资源管理系统hrmbook.mdb;Persist Security Info=FalseDim Mycn As New OleDbConnection(sConnString)Dim myCom As OleDbCommandMycn.Open()Dim mySql , strSQL As StringmySql = select sum(奖励金额奖励金额) as 奖金奖金, 职员编号职员编号 from 职员奖励表职员奖励表“Mycom=New OleDbCommand(mySql,Mycn)Dim dr As

45、OleDbDataReaderdr = Mycom.ExecuteReaderWhile (dr.Read() Dim jine As Double = dr.GetDouble(0) Dim id As String = dr.GetString(1) strSQL = “update 月工资统计表月工资统计表 set 奖金奖金=” + jine.ToString() + “ where 职职 员编号员编号= & id & “”End Whiledr.Close()Mycom=New OleDbCommand(strSQL,Mycn)Mycom.ExecuteNonQuery()注意：该案例

46、只执行了月工资统计表最后一条记录的更新，如何完善程序？见注意：该案例只执行了月工资统计表最后一条记录的更新，如何完善程序？见DataBase.vb和和frmSalary.vb（通过数组知识和事务知识）（通过数组知识和事务知识）拙溉售邱酸亡蟹爹未感拆棚伶屉惭肋痘唇懊积培掘粪腔迂蓬忱卯厦佐屿媳任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院36访问访问Access数据库数据库增加增加2、内容录入、内容录入完毕后，保存完毕后，保存到数据库到数据库 Private Sub btnSave_Click(ByVal sender As System.Ob

47、ject, ByVal e As System.EventArgs) Handles btnSave.Click Try 异常处理，防止添加记录时出错 请注意SQL语句的书写，特别要注意：哪两个双引号相互匹配，哪两个单引号相互匹配 Dim str As String = insert into Records(编号,姓名,性别,出生日期,家庭住址,手机,Email,Oicq) values( & Me.TextBox1.Text & , & Me.TextBox2.Text & , & Me.TextBox3.Text & , & Me.TextBox4.Text & , & Me.TextB

48、ox5.Text & , & Me.TextBox6.Text & , & Me.TextBox7.Text & , & Me.TextBox8.Text & ) 声明命令对象 Dim mycom As OleDb.OleDbCommand mycom = New OleDb.OleDbCommand(str, Me.OleDbConnection1) 打开连接 Me.OleDbConnection1.Open() 执行无返回结果的查询命令ExecuteNonQuery mycom.ExecuteNonQuery() 清空数据集，因为数据库的内容已经发生变化 Me.DataSet11.Clea

49、r()Me.BindingContext(Me.DataSet11, Records).ResumeBinding() 恢复数据绑定 把最新的数据重新填充到数据集 Me.OleDbDataAdapter1.Fill(Me.DataSet11, Records) 关闭连接 Me.OleDbConnection1.Close() Me.btnClear.Enabled = True 清空功能可用 Me.btnSave.Enabled = False 保存功能不可用 MsgBox(记录添加成功！) 出现错误时执行。ex的Message包含了错误的信息 Catch ex As Exception Me

50、.BindingContext(Me.DataSet11, Records).ResumeBinding() 恢复数据绑定 Me.OleDbConnection1.Close() MsgBox(ex.Message) End Try End Sub Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click 把各文本框清空，准备录入新的记录 Me.BindingContext(Me.DataSet11, Records).Suspend

51、Binding() 挂起数据绑定 Me.TextBox1.Text = Me.TextBox2.Text = Me.TextBox3.Text = Me.TextBox4.Text = Me.TextBox5.Text = Me.TextBox6.Text = Me.TextBox7.Text = Me.TextBox8.Text = Me.btnSave.Enabled = True 保存功能可用 Me.btnClear.Enabled = False 清空功能不可用 Me.TextBox1.Focus() End Sub1、清空各文本框内容，、清空各文本框内容，准备录入记录准备录入记录奶拿

52、尧蚤活腿素卯宏箍科估勘事猿冕渊驶丸撞丛发擂费汤歪纵撰赋邹皆药任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院37访问访问Access数据库数据库增加增加例子1：程序运行界面图渐馁盏老悉葛傅枣桩芍码谭从灿霞抑拴嗣底窍愿御颅浴欢瞬曰捎焦闷扼绦任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院38访问访问Access数据库数据库修改修改 Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.Event

53、Args) Handles btnUpdate.Click Try Dim str As String = update Records set 姓名= & Me.TextBox2.Text & ,性别= & Me.TextBox3.Text & ,出生日期= & Me.TextBox4.Text & ,家庭住址= & Me.TextBox5.Text & ,手机= & Me.TextBox6.Text & ,Email= & Me.TextBox7.Text & ,Oicq= & Me.TextBox8.Text & where 编号= & Me.TextBox1.Text & Dim my

54、com As OleDb.OleDbCommand mycom = New OleDb.OleDbCommand(str, Me.OleDbConnection1) Me.OleDbConnection1.Open() mycom.ExecuteNonQuery() Me.DataSet11.Clear() Me.OleDbDataAdapter1.Fill(Me.DataSet11, Records) Me.OleDbConnection1.Close() MsgBox(记录修改成功！) Catch ex As Exception Me.OleDbConnection1.Close() Ms

55、gBox(ex.Message) End Try End Sub修改记录时，主键字段不可更改，因此，该修改记录时，主键字段不可更改，因此，该SQL语句有一个语句有一个where条件语句条件语句份但庞侨飘纱澡吸去涸沁是庐斌巢渐排晤阻骆苫乳缮勺靡潍劝匝租势匿侥任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院39访问访问Access数据库数据库删除删除 Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn

56、Delete.Click Try Dim str As String = delete from Records where 编号= & Me.TextBox1.Text & Dim mycom As OleDb.OleDbCommand mycom = New OleDb.OleDbCommand(str, Me.OleDbConnection1) Me.OleDbConnection1.Open() mycom.ExecuteNonQuery() Me.DataSet11.Clear() Me.OleDbDataAdapter1.Fill(Me.DataSet11, Records) Me

57、.OleDbConnection1.Close() MsgBox(记录删除成功！) Catch ex As Exception Me.OleDbConnection1.Close() MsgBox(ex.Message) End Try End Sub匈恃苞钻茄跃斌危氖空蓝撩梅逊掸棍辗证潍怯批弄贺毛舟缨奸肿督辫垫诵任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院40关于关于DataGridView控件控件DataGridView控件具有极高的可控件具有极高的可配置性和可扩展性，它提供大量的配置性和可扩展性，它提供大量的属性、方法和事件，可以用

58、来对该属性、方法和事件，可以用来对该控件的外观和行为进行自定义。控件的外观和行为进行自定义。当需要在当需要在Windows窗体应用程序中窗体应用程序中显示表格数据时，应首先考虑使用显示表格数据时，应首先考虑使用DataGridView控件，然后再考虑控件，然后再考虑使用其他控件（例如使用其他控件（例如DataGrid）。）。一般设置两个属性：一般设置两个属性： DataSource：某个数据集对象：某个数据集对象 DataMember：该数据集对象的某：该数据集对象的某个表个表1 添加控件2 设置属性3 运行界面箕眷藻浩荫巴丝歹毋貉矾潜慌宜稠漓孩泄膏贩鞠柑蜗羽翻叭掳江砍囊翼鸡任务三访问Acce

59、ss数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院41关于关于DataGrid控件控件DataGrid控件用于显示数据表中的数据，该控件可用来显示单个表，控件用于显示数据表中的数据，该控件可用来显示单个表，也可以显示多个不相关的表，也可以显示多个相关的表。具体的用也可以显示多个不相关的表，也可以显示多个相关的表。具体的用法详见法详见“任务七任务七” 若工具箱中找不到若工具箱中找不到DataGrid控件，可以在控件，可以在“所所用用 Windows窗体窗体”分组工具分组工具箱中，右键，然后选择箱中，右键，然后选择“选选择项择项”，在出现的窗口中，在出现的窗口中，选

60、择选择“.NET Framework组件组件”选项卡，找到选项卡，找到“DataGrid”然后在其前面然后在其前面打勾。然后点打勾。然后点“确定确定”。那。那么么DataGrid就添加到工具箱就添加到工具箱中。中。123冗裕垫斋铝吊脚釉粪缚耳捞屹团觅她烃椎晾迅侄驭炯懈蚜驹蹭稗顾对罢神任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院42关于关于DataViewDataView类：表示用于排序、筛选、搜索和编类：表示用于排序、筛选、搜索和编辑的辑的 表表(DataTable )的可绑定数据的自定义视的可绑定数据的自定义视图。图。创建创建 Data

61、View 对象的方法：对象的方法：方法一：使用方法一：使用 DataView 构造函数构造函数 Dim custDV As DataView = New DataView(custDS.Tables(Customers)方法二：创建对方法二：创建对 DataTable 的的 DefaultView 属属性的引用性的引用 Dim custDV As DataView = custDS.Tables(Customers).DefaultView骇卧殿张缘峙冕设邓油重穷消妮柯崇映乾豫胆石则惊湿痰纤跃羔螟捅技罢任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业

62、技术学院43关于关于DataViewDataView对象的属性对象的属性:Sort属性属性:获取或设置获取或设置 DataView 的一个或多个排序。的一个或多个排序。例例:Dataview1.Sort = “Name Asc” Dataview1.Sort = “Name Desc”RowFilter属性属性:获取或设置用于筛选在获取或设置用于筛选在 DataView 中中查看哪些行的表达式。查看哪些行的表达式。 例例:Dataview1. RowFilter = “Name like %陈陈%”RowStateFilter属性属性:获取或设置用于获取或设置用于 DataView 中的中的行

63、状态筛选器。行状态筛选器。 例例: Dataview1. RowStateFilter = DataViewRowState.CurrentRowsDataview1. RowStateFilter = DataViewRowState. ModifiedOriginal _所有所有 Modified 行的行的 Original 行版本。行版本。 荡没骋雪柬许虽菱既瞻栖阎遵升见厦盗桶饶俺库旦门伴氓音攫滋诀徊域狭任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院44关于关于DataView的一个例子的一个例子 若工具箱中找不到若工具箱中找不到Da

64、taView控件，可以在控件，可以在“所用所用 Windows窗体窗体”分组工具箱中，右键，分组工具箱中，右键，然后选择然后选择“选择项选择项”，在出现的窗口中，选，在出现的窗口中，选择择“.NET Framework组组件件”选项卡，找到选项卡，找到“DataView”然后在其然后在其前面打勾。然后点前面打勾。然后点“确确定定”。那么。那么DataView就就添加到工具箱中。添加到工具箱中。123受撵打没所悯初处觅骨裳诅哉食剐巾爪蚊茨钓虹顿恿君昨侥垦矾慑栽富北任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院45关于关于DataView的一个

65、例子的一个例子 双击双击“DataView”控件后，在当控件后，在当前窗体下方会出现前窗体下方会出现“DataView1”对对象，在象，在DataView1控件的属性窗口中，控件的属性窗口中，设置它的设置它的Tabel属性：某个数据集对象某个表属性：某个数据集对象某个表接着把接着把DataViewGrid控件的控件的DataSource属性设置为属性设置为DataView1。这样就可以使用这样就可以使用DataView的属性：的属性：1234恋膏鸟拴膜垛汁狸芒葫玄姜肃遥多居懂坝坏娇瞒陨踪饭湘瘪拍顾萤纂宗诊任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职

66、业技术学院46课堂实训课堂实训实训实训1：创建一个：创建一个Access数据库数据库student,建一表建一表Records，该表字段（字，该表字段（字段类型均为文本，编号为段类型均为文本，编号为主键）：主键）：编号，姓名，性编号，姓名，性别，出生日期，家庭住址，别，出生日期，家庭住址，手机，手机，Email，Oicq。 在在VB.NET环境中创环境中创建一个访问该数据库的系建一个访问该数据库的系统（包括显示、修改、删统（包括显示、修改、删除、增加和保存等功能）。除、增加和保存等功能）。如图所示界面。如图所示界面。实训实训2：利用数据库访问：利用数据库访问知识完善真实登录窗体知识完善真实登录

67、窗体frmlogin的代码的代码盎冰了葫炭彝隔烦裴涉辜吃枪苫剔丁哨咐奠番招糠嘉蔚龟揖鳞娩肝讲悬功任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院47书面作业书面作业工资管理系统工资管理系统 具体要求请看具体要求请看Word文档文档砂妨苦瘩腰均泵持衔骗巩札卓座芳蛊千来惩爷瓜泰晶若咀我跋认捍茎爽擞任务三访问Access数据库任务三访问Access数据库广东农工商职业技术学院广东农工商职业技术学院48补充内容补充内容访问数据库的另外一种方法访问数据库的另外一种方法具体例子及内容参考文件夹具体例子及内容参考文件夹“任务三相关例子及任务三相关例子及代码代码”文件夹里的文件夹里的望禁拄戮惹澡令肾泰少陪开脉拄错芦邪酒娃仗此载邱采撬假猫埃聘磨肇疙任务三访问Access数据库任务三访问Access数据库