任务三访问Access数据库.ppt

访问Access数据库——显示创建导航控件访问Access数据库——显示创建导航控件的代码:’首条PrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.ClickMe.BindingContext(DataSet11,职员基本信息表).Position=0EndSub‘最后一条PrivateSubButton7_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton7.ClickMe.BindingContext(DataSet11,职员基本信息表).Position=Me.BindingContext(DataSet11,职员基本信息表).Count-1EndSub’前一条PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickMe.BindingContext(DataSet11,职员基本信息表).Position-=1EndSub‘下一条PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMe.BindingContext(DataSet11,职员基本信息表).Position+=1EndSub关于Command对象Command对象的主要属性：1、Connection属性：设置用于执行命令的Connection对象。2、CommandText属性：设置被执行的SQL语句。下面两段代码的效果相同（声明命令对象有二种方法）：DimsConnStringAsString=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\luo\人力资源管理系统\hrmbook.mdb;PersistSecurityInfo=FalseDimMycnAsNewOleDbConnection(sConnString)DimmyComAsOleDbCommand‘此方法声明可以不用关键字New,当然用也可以DimmySqlAsStringmySql=selectsum(奖励金额)as奖金,职员编号from职员奖励表“Mycom=NewOleDbCommand(mySql,Mycn)DimsConnStringAsString=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\luo\人力资源管理系统\hrmbook.mdb;PersistSecurityInfo=FalseDimMycnAsNewOleDbConnection(sConnString)DimmyComAsNewOleDbCommand‘此方法声明一定要用关键字NewDimmySqlAsStringmySql=selectsum(奖励金额)as奖金,职员编号from职员奖励表“Mycom.Connection=MycnMycom.CommandText=mySql关于Command对象Command对象的方法：ExecuteNonQuery方法：执行一个SQL命令，但不返回结果，只返回一个值说明有多少行数据被处理。ExecuteReader方法：执行一个SQL命令，并生成DataReader对象作为结果返回。使用该方法时要先创建DataReader对象用来获取数据。案例见：DataBase.vb和frmSalary.vb关于DataReader对象DataReader对象是基于连接的数据流，它一次只将一个记录导入内存，而不会将结果集的所有记录同时返回，因此可以避免耗费大量内存资源。1、Read方法：读取DataReader对象的下一行记录。详解：当DataReader对象首次打开时它被置于文件开始位置即第一行之前，当调用