- 1、本文档共17页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 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)