网站大量收购独家精品文档,联系QQ:2885784924

可视化程序设计基础教程-ch07数据库应用.ppt

  1. 1、本文档共17页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
可视化程序设计基础教程-ch07数据库应用

第7章 数据库应用 ;第7章 数据库应用;7.1.1 VB数据库系统的体系结构;OLE DB 提供程序 ~是一种驱动程序或数据处理低层接口,它由一组ActiveX的DLL动态链接库文件组成。 通过ADO对象访问OLE DB的方法是最有效的。 用户应用程序 ~包括用户界面和应用程序代码。 应用程序代码对数据库操作的请求,经OLE DB的链接,分解成一系列对物理数据库的操作指令,执行结果再经OLE DB回传给应用程序的用户界面。 ;ADO控件的链接与访问方式(方便) ADO控件通过OLE DB驱动链接数据库,关联数据源;绑定数据控件反映数据信息。 DAO对象模型的链接与访问方式(自由) 以DBEngine对象为顶层的嵌套式“对象含集合”结构,WorkSpace,DataBase,TableDef,Field,Index。 数据环境设计器的链接与访问方式(交互) 提供可视化数据库链接的方法。 ADODB对象的链接与访问方式(高效) 对Connection,Command,Recordset的程序设计。;ADO data控件 ADO控件的添加:“工程/部件”中勾选Microsoft ADO Data Control 6.0(OlE DB) Adodc1属性: ConnectionString: “通用”页“使用连接字符串”,“提供者”页,选择“Jet 3.51 OLE DB Provider” CommandType: “记录源”页的命令类型 1-adCmdText 2-adCmdTable RecordSource: 命令文本(SQL): Select * from StudentBase 表或存储过程名称:StudentBase;数据控件绑定 绑定的普通控件:TextBox,Label,CheckBox,ComboBox,ListBox,PictureBox等 OLE DB控件:DataGrid,DataCombo,DataList,Microsoft Chart等ActiveX控件 绑定主要属性: DataSource:数据源控件,一般为Adodc控件名 DataField:数据源字段 DataFormat:显示格式;ADO控件的对象关系及引用 Adodc1-Recordset-Fields-Field Adodc1.Recordset.MoveFirst Adodc1.Recordset.EOF Adodc1.Recordset.Fields(0).Name 字段名“StudentID” Adodc1.Recordset.Fields(0).Value 字段StudentID的值“021003” Adodc1.Recordset.Fields(“Age”) Adodc1.Recordset.AddNew;DAO对象模型的结构 DBEgine,WorkSpace,DataBase,TableDef,Field,Index 变量定义 Dim dbWS as Workspace Dim dbDB as DataBase Dim dbTB as TableDef Dim dbRS as Recordset Dim dbFDName as Field,dbFDAge as Field;创建数据库、数据表、字段 Set dbWS=DBEgine.Workspace(0) Set dbDB=dbWS.CreateDataBase (“C:\Student.mdb”,dbLangGeneral) Set dbTB=dbDB.CreateTableDef(“StudentBase”) Set dbFDName=dbTB.CreateField(“Name”,dbText) Set dbFDAge=dbTB.CreateField(“Age”,dbInterge) dbFDName.size=8 dbTB.Fields.Append dbFDName dbTB.Fields.Append dbTBAge;打开数据库、记录集、引用字段 Set dbWS=DBEgine.Workspace(0) Set dbDB=dbWS.OpenDataBase(“C:\Student.mdb”) Set dbRS=dbDB.OpenRecordset(“StudentBase”) dbRS.Fields(0).value “021003” dbRS.Fields(“Age”) 19 dbDB.Close;设计时的3个对象 DataEnvironment 菜单栏:工程/更多A

文档评论(0)

laolingdao1a + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档