《第15章 ADO与数据绑定控件.ppt》由会员分享，可在线阅读，更多相关《第15章 ADO与数据绑定控件.ppt（69页珍藏版）》请在三一办公上搜索。
1、第15章 ADO与数据绑定控件,15.1 ADO数据控件 15.2 数据绑定控件15.3 ADO对象,15.1 ADO数据控件,使用ADO数据访问控件，可以访问大型关系型数据库管理系统和小型个人数据库管理系统。ADO数据控件是ActiveX控件，需要手工将其添加到工具箱中。选择“工程”菜单下的“部件”。,Adodc控件在窗体上的形式,ADO数据控件的主要属性,ConnectionString属性 用于建立与数据源的连接 CommandType属性 指明命令的类型，共有四种 RecordSource属性 用于设置ADO结果集的内容 RecordSet属性保存记录集，本身又是一个对象,Connec
2、tionString属性,单击ADO数据控件属性页中的“ConnectionString”属性，然后单击 按钮,CommandType属性,adCmdUnknown：默认值。表示RecordSource中的命令类型未知。adCmdTable：RecordSource属性的内容是一个表名。adCmdText：RecordSource属性的内容是一个查询语句文本串。adCmdStoredProc：RecordSource属性的内容是一个存储过程名。,RecordSource属性,用于设置ADO结果集的内容.这个内容可以来自于一张表，也可以来自一个查询语句，也可以来自一个存储过程的执行结果。Reco
3、rdSource属性的值与CommandType属性的值有关，两者协同使用。,设置RecordSource属性,在已经设置好ConnectionString属性的ADO数据控件上右击鼠标，在弹出的菜单中选择“ADODC属性”命令，在弹出此对话框上选择“记录源”标签页。,Recordset属性,是ADO数据控件中实现数据记录操作的最重要的属性，而且这个属性本身又是一个对象，也有自己的属性和方法，它直接指向ADO对象模型中的Recordset对象。Recordset属性也称为记录集或结果集，用于存放从数据提供者那里获得的查询结果，这个结果一般存放在客户端内存中。,ADO数据控件的主要方法,Refr
4、esh用于更新ADO数据控件属性，使修改后的ADO数据控件属性生效。当修改了ADO数据控件的ConnectionString属性的值时，使用Refresh方法会重新连接一次数据库；当修改了ADO数据控件的RecordSource属性的值时，使用Refresh方法会重新执行RecordSource属性的内容，重新产生结果集。使用Refresh方法的格式为：ADO数据控件名.Refresh,ADO数据控件的主要事件,EndOfRecordset事件 当在结果集中移动记录指针时，当记录指针超出了结果集的最后一条记录时，触发此事件。Error事件 只有在没有执行任何VB代码而发生了一个数据访问错误时，
5、才会触发此事件。WillChangeField和FieldChangeComplete事件 当对结果集中的一个或多个字段值进行修改前，触发WillChangeField事件；当对结果集中的一个或多个字段值修改之后，触发FieldChangeComplete事件。,ADO数据控件的主要事件（续）,WillChangeRecord和RecordChangeComplete事件 当对结果集中的一个或多个记录进行修改前，触发WillChangeRecord事件；当对结果集中的一个或多个记录修改之后，触发RecordChangeComplete事件。WillMove事件和MoveComplete事件 在
6、结果集的当前行记录指针移动之前，触发WillMove事件；在结果集的当前行记录指针移动完成后，触发MoveComplete事件。,RecordSet对象的主要属性,BOF：布尔值，如果结果集中记录的当前行指针移到了第一条记录的前边，则此值为真，否则为假。EOF：布尔值，如果结果集中记录的当前行指针移到了最后一条记录的后边，则此值为真，否则为假。RecordCount：存放结果集中的记录个数。Sort：将结果集中的记录按某个字段排序。,RecordSet对象的主要属性（续）,AbsolutePosition：记录当前行记录在结果集中的顺序号，结果集记录序号从1开始。ActiveCommand：结
7、果集中创建的命令。ActiveConnection：结果集中创建的连接。Fields：结果集中的字段集合，本身也是对象。,Fields对象的主要属性,Fields.Name：字段名称。Fields.Value：字段的值。Fields.OrdinalPosition：字段在Fields集合中的顺序。Fields.Type：字段的数据类型。Fields.Size：字段的最大字节数。Fields.SourceTable：字段来自的表Fields.SourceField：字段来自的表中的列,示例,例：利用Fields对象，得到当前行记录的某字段的值，用法如下：Fields（“字段名”）.Value或：
8、Fields（数字）.Value,RecordSet对象的主要方法,1.Move方法组 MoveFirst方法：将当前行记录指针移到结果集中的第一行。MovePrevious方法：将当前行记录指针向前移动一行。MoveNext方法：将当前行记录指针向后移动一行。MoveLast方法：将当前行记录指针移到结果集中的最后一行。,RecordSet对象的主要方法（续）,2AddNew方法用于在结果集中添加一个新记录。3Update方法将新记录缓冲区中的记录或者对当前记录的修改真正写到数据库中。4Delete方法删除结果集中当前行记录指针所指的记录，并且这个删除是直接对数据库数据操作的，删除后的数据不
9、可恢复。,RecordSet对象的主要方法（续）,5CancelUpdate方法用于取消新添加的记录或对当前记录所做的修改。6.Find方法用于在当前结果集中查找满足条件的记录。Find方法的格式为：ADO数据控件名.Recordset.Find（“查找条件表达式”）例:查找年龄在20到25之间的学生：Find（“Sage=20 AND Sage=25”）,15.2 数据绑定控件,数据绑定实际上就是将结果集中的数据同应用程序界面上的控件联系起来，通过这些界面上的控件将结果集中的数据显示给用户。能够实现将结果集中的数据显示出来的功能的控件就称为数据绑定控件。标准绑定控件：TextBox、Chec
10、kBox、ListBox、ComboBox等 外部绑定控件：DataCombo、DataList、DataGrid、MSHFGrid、Microsoft Chart等,DataGrid控件,正式名称是：Microsoft DataGrid Control 6（OLE DB），以表格的形式显示结果集中的全部数据，并允许用户在此控件中浏览、添加、删除和修改记录。需手工添加到工具箱中。,DataGrid控件的特殊属性,用DataGrid事件确认更新,Private Sub DtgStudent_HeadClick(ByVal ColIndex As Integer)With Adodc1.Recor
11、dset.Sort=.Fields(ColIndex).Name&DESC End With DtgStudent.RefreshEnd Sub,DataGrid排序示例,DataGrid隐藏列示例,Private Sub CmdSomeColumns_Click()隐藏Ssex和Sage列 With DtgStudent.Columns(2).Visible=False Ssex列.Columns(3).Visible=False Sage列 End With CmdSomeColumns.Enabled=False 显示部分列按钮 CmdAllColumns.Enabled=True 显示
12、全部列按钮 End Sub,15.3 ADO对象,由一组相互独立的对象组成，对象模型中的每个对象都具有各自的属性、方法和事件，通过设置和使用这些对象的属性、方法和事件可以实现对数据库的全部操作。,ADO对象模型,15.3.1 Connection对象,表示一个OLE DB数据源的开放式连接。是ADO对象模型的基础。在使用ADO对象模型编程之前，必须先引用ADO对象模型。方法为：在VB的“工程”菜单下选择“引用”命令，然后在打开的窗口中选择“Microsoft ActiveX Data Objects 2.Library”选项（其中“”代表机器上所安装的版本号）。,Connection对象的主要
13、属性,ConnectionString 用于指定连接到的数据源名称，使用方法及含义同ADO数据控件。ConnectionTimeout 执行Open方法之后等待建立连接的秒数，默认为15秒。0表示无限期等待。State 表示Connection对象是打开还是关闭的常量。,Connection对象的主要方法,Open：打开带有数据源的连接，即真正的建立起到数据源的物理连接。Close：关闭一个打开的与数据源的连接，即终止与数据源的连接。Execute：在没有创建Command对象的情况下执行连接中的一个命令。,使用Connection对象,（1）设置ConnectionString连接属性Dim
14、 adoCn As New ADODB.ConnectionadoCn.ConnectionString=Provider=SQLOLEDB.1;User ID=LoginID;Initial Catalog=Pubs;Data Source=DB_Server_Name,使用Connection对象（续）,（2）使用Open方法建立连接Open方法用于打开连接：adoCn.Open（3）使用Close方法断开连接 用于关闭一个打开的Connection对象，即断开与数据源的连接。adoCn.Close,15.3.2 Command对象,Command对象代表对数据源执行的命令。使用Comma
15、nd命令可以查询数据，并将查询结果返回给RecordSet对象。,Command对象的主要属性,ActiveConnection：指定当前使用的连接。CommandText：命令的文本表达（SQL语句、存储过程名和表名）。CommandType：指定要执行的命令的类型，与CommandText属性的内容对应。取值如下：CmdText：指定CommandText的内容是一个SQL语句。adCmdTable：指定CommandText的内容是一个表名。adCmdStoredProc：指定CommandText的内容是一个存储过程名。adCmdUnknown：默认值，表示命令类型未知。,Comman
16、d对象的主要方法,Excute执行CommandText属性中指定的命令并返回由此生成的记录集。,使用Command对象,声明对象Dim adoCn As New ADODB.ConnectionDim adoCm As New ADODB.Command建立连接adoCn.ConnectionString=“*adoCn.Open执行命令adoCm.ActiveConnection=adoCnadoCm.CommandText=select*from authorsadoCm.Execute关闭连接adoCn.Close,15.3.3 Recordset对象,代表从数据提供者那里获取的数据记
17、录集。Recordset对象的主要功能包括：建立记录集；确定要操作的记录集中的记录；通过移动指针浏览记录；对记录集中的数据执行更改操作；对记录集中的数据进行过滤。,Recordset对象的主要属性,AbsolutePosition：记录集中当前记录的顺序位置。ActiveCommand：记录集中创建的命令。ActiveConnection：记录集中创建的连接。BOF：如果当前行移动到记录集的第一条记录的前边，则为真。EOF：如果当前行移动到记录集的最后一行记录的后边，则为真。DataSource：指定要绑定的数据源。,Recordset对象的主要属性（续）,RecordCount：记录集中记录
18、的个数。如果ADO不能判断记录集有多少条记录，可以返回adUnknown(-1)。Sort：将记录集按指定字段排序。Source：记录集来源的命令和SQL查询。CursorLocation：描述记录集中使用的游标的位置的常量。CursorType：描述记录集中使用的游标类型的常量。LockType：控制编辑过程中设置的加锁类型。,Recordset对象的主要方法,AddNew：向记录集中添加一条新记录。CancelUpdate：取消对数据的修改。Close：关闭记录集。Delete：删除当前记录。Find：查找符合某些规则的记录。Move：将当前记录的位置移动一定的间隔。,Recordset对
19、象的主要方法（续）,MoveFirst：移动到第一条记录。MoveLast：移动到最后一条记录MoveNext：移动到下一条记录。MovePrevious：移动到上一条记录Open：打开一个记录集。Update：当Edit和AddNew方法完成后要执行的方法。,Recordset对象的集合,Recordset对象包含的集合是Fields，它是记录集中的字段集合。,CursorLocation属性,用于设置游标的位置，该属性的取值为：adUseClient：使用本地客户端游标。其特点是服务器将整个结果集传回给客户端，网络流量较大，但下载后对数据的浏览速度快。adUseServer：默认值。使用数
20、据源提供的服务器端游标。其特点是仅传送客户端需要的记录，网络流量小，但服务器资源消耗大。不支持Bookmark和AbsolutePosition等属性。,CursorType属性,用于指定Recordset对象希望执行的动作。ADO Recordset对象支持四种游标类型：动态游标（adOpenDynamic）静态游标（adOpenStatic）键集游标（adOpenKeyset）仅向前游标（adOpenForwardonly）,LockType属性,用于设置多用户情况下记录集中的记录的锁定方式，用于保证各用户间的操作互不干扰。其取值有：adLockReadOnly：默认值，不能编辑记录集中的
21、数据。adLockPessimistic：悲观锁。adLockOptimistic：乐观锁。adLockBatchOptimistic：适用于使用UpdateBatch方法更新批量多条记录的记录集。,使用Recordset对象的步骤,（1）打开记录集使用Command对象的Execute方法创建Recordset对象：Set adoRecordset=adoCommand.Execute使用Connection对象的Execute方法创建Recordset对象：Set adoRecordset=adoConnection.Execute(select*from authors)直接使用Reco
22、rdset对象的Open方法创建Recordset对象：adoRecordset.Open,Recordset对象的Open方法,语法格式为：Recordset.Open Source,ActiveConnection,CursorType,LockType,Options所有这些选项都是可选的，可以在调用Open方法之前，通过设置这些选项对应的属性来设置其值。Source选项指定了要从哪里获取数据，其有：一个返回记录的Command对象。SQL语句。表名。存储过程名。,Open方法的一些选项,ActiveConnection选项指定了要使用的ADO连接，这个选项可以是一个已打开的Connec
23、tion对象，也可以是一个连接字符串。Options选项为提供者提供了附加信息。这些选项包括：adCmdUnknown：默认值。不向提供者提供附加信息。adCmdText：告诉提供者CommandText属性是文本命令。adCmdTable：是表的名字。adCmdStoredProc：是存储过程名。adCmdFile：是一个文件名。,示例,Dim adoRs As New ADODB.RecordsetadoRs.ActiveConnection=adoCnadoRs.CursorType=adOpenForwardOnlyadoRs.CursorLocation=adUseClientado
24、Rs.Source=authorsadoRs.Open,adCmdTable,15.3.4 Field对象,Field对象表示记录集中数据的某个单独的列。一旦获得了记录集，通常接下来就是使用Fields集合来读取记录集中的数据。由于Fields集合是Recordset对象的默认属性，因此，在使用时可以省略此名称。例如：Recordset.Fields(0).ValueRecordset(0),Field对象的主要属性,ActualSize字段中实际存储的数据尺寸。DefinedSize字段能存储的最大数据量。Name字段的名称。NumericScale十进制小数点右边的位数。,Field对象的
25、主要属性（续）,OriginalValue在其他用户改变字段之前字段的值。Precision十进制小数的精度。Type描述字段的数据类型的常量。Value字段中存储的数据。,使用Field对象,Private Sub cmdGo_Click()演示引用Fields字段值的不同方法Dim adoCn As New ADODB.ConnectionDim adoRs As New ADODB.RecordsetDim adoFld As New ADODB.Field打开一个recordset，访问SQL Server自带的Northwind数据库中的Customers表adoCn.Open pr
26、ovider=SQLOLEDB.1;Data Source=(local);User ID=sa;Initial Catalog=Northwind adoRs.Open Customers,adoCn,使用Field对象（续）,下述几种对字段的访问方法效果是一样的使用字段的索引，明确写出集合的名字lboResults.AddItem adoRs.Fields(0).ValuelboResults.AddItem adoRs.Fields(0)使用字段的索引，使用默认属性lboResults.AddItem adoRs(0).ValuelboResults.AddItem adoRs(0),使
27、用Field对象（续）,使用字段的名字，明确写出集合的名字lboResults.AddItem adoRs.Fields(CustomerID).ValuelboResults.AddItem adoRs.Fields(CustomerID)使用字段的名字，使用默认属性lboResults.AddItem adoRs(CustomerID).ValuelboResults.AddItem adoRs(CustomerID)End Sub,15.3.5 Parameter对象,Parameter对象表示Commad对象的一个独立参数。这个对象是SQL查询时的一个运行参数，或者是存储过程中的输入或
28、输出参数。大多数情况下，参数用于各种类型的参数化命令中。,Parameter对象的主要属性,Direction：表示一个参数是输入参数还是输出参数。Name：参数的名称。NumericScale：十进制小数点右边的位数。Precision：十进制小数的精度。Properties：描述这个参数的Property对象的集合。Type：参数的数据类型。Value：参数的当前值。,使用Parameter对象,Private Sub cmdGetParameters_Click()获得指定的存储过程的参数Dim adoCm As ADODB.CommandDim adoPrm As ADODB.Para
29、meterDim adoRs As ADODB.RecordsetSet adoCm=New ADODB.CommandSet adoCm.ActiveConnection=adoCnadoCm.CommandText=reptq3 pubs数据库中的存储过程名adoCm.CommandType=adCmdStoredProcadoCm.Parameters.Refresh 获得存储过程参数,使用Parameter对象（续）,填充Parameters中的每个参数For Each adoPrm In adoCm.Parameters If adoPrm.Direction=adParamInpu
30、t Then adoPrm.Value=InputBox(adoPrm.Name,enter parameter value)End IfNext adoPrm从存储过程得到记录集Set adoRs=adoCm.Execute.End Sub,15.3.7 Property对象,ADO 对象有两种类型的属性：内置属性和动态属性。内置属性是在ADO中实现并立即可用于任何新对象的属性，并使用“对象名.Property”语法来得到和设置属性值。动态属性由基本的数据提供者定义，并出现在相应的ADO对象的Properties集合中。,Property对象,动态属性只能通过集合使用“对象名.Propert
31、ies(0)”或“对象名.Properties(Name)”语法来引用。Property对象有四个属性：Name：标识属性的字符串。Type：用于指定属性数据类型的整数。Value：包含设置属性的值。Attributes：指示特定于提供者的属性特征的长整型值。,Error对象,Error对象记录数据操作过程中所发生的错误信息。由于数据访问可能会引起多个错误，因此，Error对象是包含在一个Errors集合中的。如果最后一次的操作成功了，则这个集合为空，否则，可以使用For Each来依次检查每个错误。,Error对象的主要属性,Description：错误信息的文字描述。HelpContext
32、：错误信息的帮助主题。HelpFile：错误信息的帮助文件。Number：错误信息编码。Source：引起错误的对象。SQLState：原始ODBC SQLState常量。,使用Error对象,Private Sub cmdConnect_Click()试图要连接到数据源，但捕获到错误 Dim Cnn As Connection Dim Err As Error On Error GoTo HandlerErr Set Cnn=New Connection Cnn.Open txtConnectionString 假设要连接的服务器不存在,使用Error对象（续）,ExitHere:Exit
33、Sub HandlerErr:For Each Err In Cnn.errrors MsgBox Error&Err.Number&Err.Description Next Err Resume ExitHere End Sub,15.3.9 使用ADO对象模型访问数据库,一般步骤：创建Connection对象与数据源建立连接。创建Command对象，设置该对象的活动连接是上一步的Connection对象，设置命令文本属性为访问数据源所需的命令。使用Command对象的Execute方法执行命令，如果是查询命令，该方法会返回一个Recordset对象。使用Recordset对象操作记录。,查
34、询authors表示例,Dim adoConnection As New ADODB.ConnectionDim adoCommand As New ADODB.CommandDim adoRecordset As New ADODB.RecordsetadoConnection.ConnectionString=Provider=SQLOLEDB.1;User ID=sa;Initial Catalog=Pubs;Data Source=(local)adoConnection.OpenadoCommand.ActiveConnection=adoConnectionadoCommand.C
35、ommandType=adCmdTableadoCommand.CommandText=”authors“set adoRecordset=adoCommand.Execute,使用ADO对象访问数据库的简化步骤,创建Connection对象与数据源建立连接。创建Recordset对象，并设置好活动连接和其它重要属性。使用Recordset对象的Open方法，直接打开一个记录集。使用Recordset对象操作记录。,示例,Dim adoConnection As New ADODB.ConnectionDim adoRecordset As New ADODB.Recordset建立连接adoConnection.ConnectionString=Provider=SQLOLEDB.1;User ID=sa;Initial Catalog=Pubs;Data Source=(local)adoConnection.Open建立记录集adoRecordset.ActiveConnection=adoConnectionadoRecordset.CursorLocation=adUseClientadoRecordset.CursorType=adOpenDynamicadoRecordset.Source=select*from authorsadoRecordset.Open,
