030104.htm
来自「提供一个VB学习教程,入门级。来源于网上」· HTM 代码 · 共 262 行 · 第 1/2 页
HTM
262 行
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>vb study</title><style>
<!--
td {font-size: 9pt}
A:link {text-decoration: none; color: #0033cc;font-size: 9pt}
A:visited {text-decoration: none; color: #0066CC;font-size: 9pt}
A:active {text-decoration: none; color: #ff0000; font-size: 9pt}
A:hover {text-decoration: underline; color: #000000;font-size: 9pt}
-->
</style>
</head>
<body>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="98%">
<tr>
<td width="100%"><a href="#">你的位置</a>：<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="#">VB学习</a>--<a href="#">数据库</a></td>
</tr>
<tr>
<td width="100%">
<p align="center"><font size="2">ADO对象</font></td>
</tr>
<tr>
<td width="100%"><br>
<font size="2">ADO的对象模型，包括以下七个对象。<br>
Connection.Command,Parameter,Recordset,Field,Property,Error.此外，还包括四个集合，Fields,Properties,Parameters,Errors.<br>
这几个对象的功能如下：Connection对象提供与包含路径，口令和连接选项的数据源的链接；Command对象保存一个针对数据源的将被执行的命令，最常见的是SQL命令或存储过程；Recordset对象保存在记录集中执行查询参数的记录以及漫游记录的光标；Error对象包含关于数据访问期间可能发生错误的错误信息；Parameter对象存储由Command对象使用的单个参数；Field对象为记录集中包含的所有字段集合；Property对象是由Data Provider驱动程序返回的数据源的属性。<br>
ADO的核心是Connection,Recordset,Command对象。这三个对象可独立使用，也可互相连接使用。而其他对象，如Error集合存储在Connection对象中，在使用这些对象前都必须先声明对象变量，然后用Set进行赋值，才可使用，在声明时还可以用WithEvents将事件也声明进来，使得ADO对象变得象控件那样易于使用。有两个对象中包含了事件，即Recordset对象和Connection对象。只要如Dim WithEvents rst As ADODB.Recordset这样声明后，就能在代码窗口的下拉表中找到该对象，真的和ADO控件一样易于使用，连事件也大致相同。<br>
----------------------------------<br>
Connection对象<br>
用于建立与数据源的连接（包括客户机/服务器结构的连接）。在大多数应用程序中最好把一个Connection对象保存为全局级或模块级，这样就不用每次执行一个操作时都去创建这个对象。<br>
属性：<br>
★ ConnectionString属性：连接数据源的字符串，包含了各种所需信息。如指定与1个ODBC数据源（DSN）为mine的连接，连接字符串可写为：<br>
Dim cn as ADODB.connection<br>
Set cn=New ADODB.connection<br>
cn.ConnectionString="DSN=mine;UID=an;PWD=pwd"<br>
如果不使用ODBC数据源，则连接字符串需要按以下方式设置：<br>
cn.ConnectionString="driver={SQL Server};server=mm;uid=sa;pwd=pwd;" & "Database=mine"<br>
上面这个是连接到远程SQL Server的连接串，即依次说明OLE DB驱动，服务器名，用户名和密码及数据库名称。如：cn.ConnectionString=”driver={SQL Server};server=www.ndlxn.com;uid=ndlxn;pwd=848484;Database=pubs”<br>
ConnectionString用多项“设置项=值”的方式来设定与数据源的连接，每个项之间用分号隔开。对于连接字符串的写法，精确固定的语法是没有的。因为不同类型数据库，有各自的设置项。一个技巧是先在窗体上放一个Adodc控件，然后利用其ConnectionString设置时的对话框来建立好字串，再粘贴到代码中，最后将Adodc控件删除。不要以为这是很笨的方法哦，许多高手也采用它哩。<br>
★ ConnectionTimeout属性：设置连接时的最长等待时间，缺省为15秒，超时还未连接成功的话，中止连接，并返回出错信息。<br>
★Mode属性：指定了该connection对象的读写权限，该属性值为枚举变量ConnectionModeEnum中的一个，有adModeRead、adModeReadWrite等。到对象浏览器中去找。<br>
★CursorLocation属性：选择不同的游标位置，只能在建立连接之前设置该属性，并建立连接才有效，对于1已经建立的连接，设置该属性对连接不会产生影响。该属性有以下常量：adUseNone——不使用游标服务；adUseClient——使用客户端游标；adUseServer——使用服务端游标。<br>
★ DefaultDatabase属性：该属性为connection对象指定1个缺省的数据库。<br>
★ State属性：查看一个connection对象当前状态是已经建立还是关闭。只读。<br>
★ Version属性：返回ADO的版本号。<br>
★ Attributes属性：设置事务的处理方式，可选值AdXactCommitRetaining通过自动调用 CommitTrans 启动新事务。或AdXactAbortRetaining通过自动调用 RollbackTrans 启动新事务 。<br>
★ CommandTimrout属性：终止操作数据源的命令并返回一个错误的等待时间。<br>
★ Provider属性：返回连接的数据源（即数据提供者）的名字。<br>
★ Errors属性：Error对象实际是一个与Connection平行的对象，也有一些如Description和Number等属性，但它的集合包含在Connection对象下，其中包含了全部错误对象，需要先声明一个ADODB.Error对象，然后用Set进行赋值，如Dim cnerr As ADODB.Error Set cnerr = DataEnvironment1.Connection1.Errors.Item(0)。<br>
<br>
方法：<br>
★ Open方法：建立与数据源的物理连接。格式：<br>
connection.Open ConnectionString,UserID,Password,Options<br>
注意：该方法是使Connection获得初始化的方法，只有使用了该方法，Connection对象才真正在内存中存在。 <br>
后面的参数都是可选参数，最简单如：cn.Open（cn是1个connection对象），但如果这样则需要预先设置好ConnectionString等参数。其中，connectionstring是前面提到的连接字符串，UserID是建立连接的用户的代号，Password是建立连接的用户的密码。该参数会覆盖掉在连接字符串中设置的密码；options提供了连接选择，可选值只有adAsyncConnect异步连接，缺省为-1同步连接。 <br>
★Close方法：关闭1个数据连接对象，使该连接对象只留在本机内存中，可对其属性更改后再重新建立连接。（注：如果不是关闭对象，而是将对象从内存中清除，应使用 Set connection对象变量=Nothing.）.<br>
★ 获取数据源上的有关信息：OpenSchema方法，该方法获取与数据源有关的信息，如获取数据源中所有表的名称等。格式：Set Recordset对象=cn.OpenSchema(查询类别，[明细条目])。两个参数都是常数值，其中，每个查询类别中包含多个明细条目，每个明细条目作为返回的Recordset的一个字段，可以省略第二个参数，这时返回指定类别下的所有明细条目的信息生成一个Recordset。例如类别为“表”adSchemaTables常数中包含了TABLE_NAME（表名称）和TABLE_TYPE（表类型）等多个明细项目常数，而主要应了解类别常数adSchema…以得到数据源某方面信息，可以查对象浏览器。举例如下（得到所有表名）：<br>
Dim rstSchema As ADODB.Recordset<br>
Private Sub Form_Load()<br>
DataEnvironment1.Command1 '初始化数据环境<br>
Set rstSchema = DataEnvironment1.Connection1.OpenSchema(adSchemaTables)<br>
Do While Not rstSchema.EOF '获取所有表名<br>
List1.AddItem rstSchema.Fields("TABLE_NAME")<br>
rstSchema.MoveNext<br>
Loop<br>
Set MSHFlexGrid1.DataSource = rstSchema '可看到更多信息。<br>
End Sub<br>
★ Execute方法：执行1个SQL查询，既可是选择查询，也可是动作查询。如：<br>
cn.Execute "Delete From BB where 姓名 like '嫖客店'"<br>
但要注意：使用Connection对象的Execute方法返回的游标类型是最基本的只能读和只能向前移动的游标adOpenForwardOnly，因此，如果该方法执行一个选择查询返回一个记录集时特别要明白。<br>
举一个完整的例子如下：<br>
Dim cn As ADODB.Connection<br>
Dim rst As ADODB.Recordset<br>
Private Sub Command2_Click()<br>
rst.MoveNext<br>
Print rst("姓名")<br>
End Sub<br>
Private Sub Form_Load()<br>
Set cn = New ADODB.Connection<br>
Set rst = New ADODB.Recordset<br>
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\WINDOWS\Desktop\lxn.mdb" 连接字符串<br>
cn.Open 连接<br>
cn.Execute "Delete From BB where 姓名 like '嫖客店'" 动作查询<br>
Set rst = cn.Execute("Select * from BB") 选择查询，生成记录集<br>
Do While Not rst.EOF<br>
List1.AddItem rst("姓名")<br>
rst.MoveNext<br>
Loop<br>
End Sub<br>
★ 事务处理方法：BeginTrans:开始1个事务；<br>
CommitTrans:提交事务，将事务中的操作写入数据源。<br>
RollBackTrans:滚回事务，取消操作。<br>
当同时更新多个表时，为了保证数据一致性而必须使用事务，比如有两个表，一个是支出表，一个是余额表，当支出一项费用时，支出费用增加，余额减少，需要对这两个表同时更新，但如果不用事务，倘若在更新支出表后发生错误，则余额表没有更新，不合要求。这时就要把它们封存装到一个事务里。确保多表操作的完整性。此外，也可以用它对同一个表的多步操作进行封装，使多步操作成为单个单元。<br>
一般地，我们在BeginTrans处加一条On Error Goto ErrNum的出错捕获语句，然后在错误处理程序中使用RollBackTrans取消事务。形如：<br>
cn.BeginTrans<br>
on Error Goto ErrNum<br>
…更新表1<br>
…更新表2<br>
…<br>
cn.CommitTrans<br>
Exit Sub<br>
ErrNum:<br>
cn.RollBackTrans<br>
msgbox 出错提示<br>
事务可以嵌套，由begintrans方法返回1个长整数表示当前事务是第几层，如返回1为当前事务不包含在任何事务中。CommitTrans和RollBackTrans结束最近的BeginTrans打开的那个事务。在程序中用begintrans开始1个事务后，应使用committrans或rollbacktrans方法结束，如果不用，则在程序结束后事务全部滚回，也就是说，系统不会自动去提交任何事务。例：<br>
cn.BeginTrans<br>
rst.MoveNext<br>
cn.Execute "insert into BB values('嫖客店','aaa',0,'0','0',0,'0')"<br>
cn.CommitTrans <br>
有两种情况需要说明一下：在事务中也可能出现问题，导致被迫放弃事务：一种情况是一个关健字段被锁定，不能进行写操作；另一种情况是字段值超出范围，如字段为Integer,但实际值大于32767，字段为Text，但值字串长超过32K等，这样会导致事务强迫放弃。<br>
-----------------------------------------------<br>
Command对象：<br>
命令对象：可完成对数据库的定义，修改，数据的查询。<br>
★ ActiveConnection属性：从属于哪一个connection对象。要用Set赋值，如：Set cmd.ActiveConnection=cn.创建一个command对象时指明该对象从属于哪一个connection对象。如果事先没有建立Connection对象，则将该属性直接指定一个连接串，ADO将为这个Command对象创建新的隐含的Connection对象，并将该字符串作为ConnectionString自动建立起连接。可以为一个connection连接对象创建多个command命令,只需要将每个command命令对象的activeconnection属性都为该connection对象名，如：<br>
Dim cmd as ADODB.command<br>
Set cmd=New ADODB.command<br>
Set cmd.ActiveConnection=cn (说明：cn是前面举例的connection对象)<br>
★ CommandText属性：命令内容，为1条SQL选择或动作查询，或表名等。如：<br>
cmd.CommandText="DELETE FROM students WHERE ID=98001"<br>
★ CommandTimeout属性：等待命令执行完的最长时间，超时将中止该命令。如：<br>
cmd.CommandTimeout=20 （单位为秒。） <br>
★ CommandType属性：command对象的类型，可选值有：adCmdText(SQL语句)，adCmdTable(表)，adCmdStoredProc(存储过程)缺省为adCmdUnknow未知命令类型。例：<br>
cmd.CommandText="BB"<br>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?