使用ADO操作数据库ppt课件

第10章ADO操作数据库，本章的基本要求：掌握如何利用ADO控件操作数据库内的数据。 使用ADO控件来掌握如何操作数据库中的数据，1，1，10.1数据访问对象模型，数据访问接口是表示访问数据的各个方面的对象模型。 VB的三个数据访问接口分别是数据访问技术的发展阶段数据访问对象(DAO )远程数据对象(RDO)ActiveX数据对象(ADO )，2，ADO接口： mido OLEDB提供对所有数据源的高性能访问，包括关系数据库和非关系数据库、邮件系统和文件系统、文本和图形、自定义业务对象等，以及使用ADO的数据将数据保存在recordset对象中，使用update进行更新，使用command对象执行SQL数据的更新。 要使用ADO访问，首先需要建立数据源连接(创建连接对象)、获取数据(创建recordset对象)和处理数据。 使用4、5、10.2ado数据控件访问数据库的方法，VB无法直接访问数据库，只能使用具有数据库识别功能的数据控件和数据对象编程来实现对数据库的操作使一个或多个表中的数据对象成为记录集(与Recordset-表类似，由矩阵构成)，通过记录集对象来操作和阅览数据库中的数据。 记录集是一种工具，它引用可以使用记录集对象来选择数据的数据库。 记录集对象提供了24个方法和26个属性，可以对数据库中的记录执行各种操作。 六，六， 10.2.1ADO数据控件、ADOData控件属于ActiveX控件，具有图形控件的优点，在最少的代码创建应用程序中ADOData控件：工程-部件-、7、1、 连接属性的参数：9连接属性的设置：10，3，命令属性的值：11， 4、RecordSource属性的值取决于CommandType属性的值：RecordSource属性的设置：12， 5、模式属性的设定值、13文本框控件(TextBox )标签控件(Label )列表框控件(ListBox )组合框控件(CheckBox )图片框控件数据列表组合框控制(DataCombo )数据表控制(DataGrid )、ActiveX控制10.2.2数据绑定控制，1，VB中提供的某些控制是ADO控制ADO控件通过属性连接到数据源，数据绑定控件也通过属性(DataSouce，DataField )绑定到ADO控件，以实现与数据库的连接。 用于显示Recordset数据时，查询条件和更新数据通过结果集(Recordset )传递到数据库。 datas souce :指定ado数据控件DataField :指定此控件所连接的数据控件可以使用的数据库字段名称，15， ADOData控件：移动记录(单击箭头)，修改记录(Locked=False )自动添加新记录(EofActive )，1，选择每个TextBox控件，然后在其“属性”窗口中选择“d 2 .将data field属性设置为要在数据库中显示或修改的字段的名称。16、DataGrid控件(数据网格： ActiveX控件，可以输入大量数据，同时更改或查看多条记录的DataGrid属性RecordSouces的ADOData控件，17、datagr 可以手动设置格式、颜色等，更改显示字段的名称(显示)，用语句设置18 10.2.3控件属性，PrivateSubForm_Load () adodc1. cursor location=aduseclient adodc1. cursortype=adopenstatic adodc1. lock type=mandty ce= s5 sets datagrid1.数据源=adodc 1结束子，19，20，查询数据：私有子命令2 _ click () mandtype=adcmdtext adod UserID=sa； 初始目录=高清“constr= DSN=school； UserID=sa； pwd=123456cn.connectionstring=constr cn.open，36，1 ) recordset对象的open方法Recordset.OpenSouce，活动连接，cur OptionsSource :有效的连接对象变量名称、SQL语句、表名称、存储过程名称或用于存储记录集的文件名ActiveConnection选项。 指定有效的Connection对象变量名称，或包含ConnectionString参数的字符串。 CursorType选项。 确定打开Recordset时使用的光标的类型。 (静态、动态、仅前向和键锁定类型是可选的。 确定提供程序打开Recordset时应使用的锁的类型，(3)打开记录集，37，Options，38，LockType， 39 setas=newa adodb.recordset RS.cursor location=adusesclientrs.cursortype=adopenstatic RS.lock type=addlockbatchoptimisticr CnRs.Open 员工工资，Cn adOpenStatic，adLockBatchOptimistic， 40 mand ado对象publiccnstrasstringpublictrasstringsetcn=newd adodb.connection ado对象： SCOM=newd mand constr=“提供器=SQL oledb.1； 建立持续安全连接的Info=False； UserID=sa； PWd=123456； 初始目录=school； 数据源=HD-ichu1M8 lw h8 y cn .连接=constr cn.openssqlstater= select * from s 5“打开记录集setrs=newd adodb.recordset SRS.active connection=CNRS.cursor location=adusesclientrs.cursortype=ado ptimis ticrs.openssqlstater，41，函数： publicfunctionexesql (byvalsqlasstring ) as adodb.recordset SRS=new DDB.recordset SRS.active connection=CNRS.cursor location=adusesclientrs.cursor ttype=adopenstatic TIC RS.opensqlstrsetesql=rssetrs=nothingend function调用：私有subform _ load () sqlstr= select * from S5 sets rs1=exesql (sqls sets datagrid1.数据源=rs1结束子，422)连接对象的Execute方法set crecordset=connection.execute (commandtype，record options)CommandType :包含要执行的SQL命令、表名、存储过程名或指定的文本记录影响：可选。受操作影响的记录数setrs=cn.execute ( select * from student )，43，setrecorset=connection.execute (records affected，Parameters，options 通常，SQL命令和存储过程名通过使用Command对象查询数据库并返回到Recordset对象中的记录Command对象，提供了更特殊的执行方法和参数传递。 44 mandsetcmd=newcadomandcmd.activececonnection=commcommandtype=adcmdstoredprocommandtext=“avg _ proc”RS=。 mdtextcom mand text=从select * RS=cmd.execute， 45、 创建记录集的方法1 .方法RecordSet对象： setrs.active connection=CNRS.cursor location=adusesclientrs.cursor ttype=adopenstatic r crs.openssqlstatetr2、方法连接对象SetRS=Cn.Execute(SqlStr)3， 方法Command对象com.active connection=mandtype=adcmdtext mandtext=sqlstr setrs=com.execute sqlstr=“select froms5”或SqlStr=“exec存储过程名称”，非网格记录集，46，rs.opensql，conn :如果SQL为delete，update，则insert返回关闭的记录集，插入47:sq 初始目录=HDcn.open constr开启结果集： RS.cursor location=aduseclient RS.cursor ttype=adopenstatic RS.lock type=adlockba 绑定数据： ft () fori=0tors.fields.count-1 text1(I ).text=RS.fields (I ) next， 55 n=indexselectcasease0RS.move first case1RS.moveprevious IFRS.bofthenrs.move first case2RS.movenext IFRS.eof then3RS.movelas 代码定位：移动结果集指针，显示当前记录，56， fori=0tors.record count-1 combo1. additem RS.fields (2) RS.movenext next，将结果集的第三个字段(名称)添加到组合框中， 57 n=combo1. listindex RS.move first fori=0tors.record count-1 IFRS.fields (2)=combo1. list (n ) thenextitforelsers.movenextif 初始目录=HDcn.open constr开启结果集： RS.cursor location=aduseclient RS.cursor ttype=adopenstatic RS.lock type=adlockba cn adCmdTable结合数据： set datagrid1.数据源=RS，Rs.Sort=号，60，Rs.Openselectdistinct (部门) from员工工资， Cn _adCmdTextCombo1.AddItem 整体 RS.move first fori=0tors.record count-1 combo1. additem RS.fields (0) RS.movenext next RS.clo 61tt=combo1. textin ftt= thenrs.filter=adfilternoneelsers.filter=部门=用户id=sa； Password=； 初始目录=bsh； data sources=127