任务三访问Access数据库.ppt

关于Command对象 Command对象的方法： 1、ExecuteNonQuery方法：执行一个SQL命令，但不返回结果，只返回一个值说明有多少行数据被处理。 2、ExecuteReader方法：执行一个SQL命令，并生成DataReader对象作为结果返回。使用该方法时要先创建DataReader对象用来获取数据。 案例见：DataBase.vb和frmSalary.vb 关于DataReader对象 DataReader对象是基于连接的数据流，它一次只将一个记录导入内存，而不会将结果集的所有记录同时返回，因此可以避免耗费大量内存资源。 1、Read方法：读取DataReader对象的下一行记录。 详解：当DataReader对象首次打开时它被置于文件开始位置即第一行之前，当调用一次Read方法， DataReader才会移动到结果集的第一行处。以后每调用依次Read方法， DataReader都会移动到结果集的下一行处，直到Read方法返回False为止，表明此时查询无结果。 2、GetType方法：将指定列的值作为指定类型获取。例如：GetString方法表示将取得的字段数据设为字符串 案例见： frmSalary.vb DataReader对象举例1 DataReader对象举例2 Dim sConnString As String = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\luo\人力资源管理系统\hrmbook.mdb;Persist Security Info=False Dim Mycn As New OleDbConnection(sConnString) Dim myCom As OleDbCommand Mycn.Open() Dim mySql , strSQL As String mySql = select sum(奖励金额) as 奖金, 职员编号 from 职员奖励表“ Mycom=New OleDbCommand(mySql,Mycn) Dim dr As OleDbDataReader dr = Mycom.ExecuteReader While (dr.Read()) Dim jine As Double = dr.GetDouble(0) Dim id As String = dr.GetString(1) strSQL = “update 月工资统计表 set 奖金=” + jine.ToString() + “ where 职 员编号= id “’” End While dr.Close() Mycom=New OleDbCommand(strSQL,Mycn) Mycom.ExecuteNonQuery() 注意：该案例只执行了月工资统计表最后一条记录的更新，如何完善程序？见DataBase.vb和frmSalary.vb（通过数组知识和事务知识） 访问Access数据库——增加 例子1 2、内容录入完毕后，保存到数据库 Private Sub btnSave_Click(ByVal sender As System.Object, 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.TextBox5.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() 执行无返回