重点难点和错误分析-项目一学生信息管理-萧山电大.ppt

重点难点和错误分析 项目六 学生信息管理系统,主 讲：浙江广播电视大学 虞江锋,一、数据库概述,数据库是结构化的相关数据的集合按一定的结构和组织方式存储在外存储器数据结构模型 层次模型网状模型关系模型：二维表来描述数据之间的关系数据库管理系统：Access、SQL Sever等,二、结构化查询语言SQL,Insert语句将数据值添加到表中Update语句修改表中的记录Delete语句从表中删除记录Select语句从表中查询记录,三、使用ADO访问数据库,ADO控件通过可视化数据访问控件的形式建立数据库的记录集 ADO对象模型以代码编程的方式建立数据库的记录集 通过数据绑定控件（如DataDrid控件）实现数据信息的访问,三、使用ADO访问数据库,使用ADO控件访问数据库的步骤首先将ADO控件添加到工具箱中，设置ConnectionString属性建立与数据库的连接设置RecordSource属性指定具体可访问的数据表设置数据绑定控件（如DataDrid控件）的DataSource属性实现数据信息的访问,三、使用ADO访问数据库,使用ADO对象模型访问数据库的步骤创建一Connection对象，建立和数据库的连接利用Recordset对象或Command对象为需要操作的数据建立记录集 利用Recordset对象的属性、方法和事件来操作数据,三、使用ADO访问数据库,Public Sub Main()Dim Adocn As New Connection 声明并创建新对象Dim strAccess As String 定义数据库连接字符串strAccess=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xs.mdbAdocn.Open strAccess 建立数据库连接End SubPrivate Sub Form_Load()Dim Adors As New Recordset 声明一个新的Recordset对象Adors.ActiveConnection=Adocn 与ADO链接对象建立关联strSQL=select*from 学生表 拼写SQL语句Adors.Open strSQL 执行SQL语句Text1.Text=Adors.Fields(学号)在TextBox控件显示Adors.Close 关闭记录集对象End Sub,四、常见错误分析,数据库文件找不到SQL语句出错 RecordSource属性重新设置后记录集无变化实时错误3021,1、数据库文件找不到,原因含有数据库的应用程序拷贝到其他地方，出现找不到文件的错误，可能是数据库文件没有拷下来，或程序中数据库的连接采用的是绝对路径,1、数据库文件找不到,应用程序文件与数据库文件放在同一文件夹中用ADO控件连接数据库时一定采用相对路径。,改为XS.mdb,2、SQL语句出错,原因由于SQL语句写错，导致程序执行不了。解决方法正确拼写SQL语句将SQL语句用Print方法打印出来调试检查是否漏写“”、或少了空格、或少了“”,3、RecordSource属性重新设置后记录集无变化,数据控件的RecordSource属性重新设置后，数据控件连接的数据源还是原来的记录集。,strSQL=select*from 学生表 where 学号=+txtNo.Text+Adodc1.RecordSource=strSQLAdodc1.Refresh 必须用Refresh方法激活这些变化,4、实时错误3021,运行时报错:实时错误3021,BOF或EOF中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录,4、实时错误3021,原因数据记录指针指向了空记录解决方法：可以使用BOF和EOF属性来解决 如果记录没有到头，那么将记录移到上一条如果是第一条记录，则提示用户记录已经移到第一条如果记录没有到尾，那么将记录移到下一条如果记录到尾，则提示用户记录已经移到最后一条,If ADOrs.BOF=False ADOrs.MovePrevious Else MsgBox 已经是最前面一条了!,vbOKOnly,提示“End ifIf ADOrs.EOF=False ADOrs.MoveNext Else MsgBox 已经是最后一条了!,vbOKOnly,提示End if,谢 谢！,