vb adodb Connection对象简介

Connection对象的方法

　　Connection对象的方法用来管理事务、执行命令、打开和关闭连接。需注意的是，ADO对象所支持的方法是独立于当前所使用的数据源的。例如一个OLE DB数据源不必支持OLE DB规范的全部功能。

　　1.BeginTrans方法

　　BeginTrans方法开始一个连接到数据源的新事务，即启动一个新的事务。与之相应的还有CommitTrans和RollbackTrans方法。CommitTrans保存所有的更改并结束当前事务，它也可以用来启动一个新的事务。RollbackTrans取消当前事务中所做的任何更改并结束事务，同CommitTrans类似，它也可以用来启动一个新的事务。它们的语法为：

　　Object.BeginTrans
Object.CommitTrans
Object.RollbackTrans

　　需注意，并非所有提供者都支持事务。需验证提供者定义的属性Transaction DDL是否出现在Connection对象的Properties集合中，如果在则表示提供者支持事务。如果提供者不支持事务，调用其中的某个方法将返回错误。一旦调用了BeginTrans方法，在调用CommitTrans或RollbackTrans结束事务之前提供者将不再立即提交所做的任何更改。

　　例：使用Connection对象的BeginTrans、CommitTrans和RollbackTrans方法的示例代码。

　　Public Sub BegiTrans_Example()

　　Dim cnn1 As ADODB.Connection
Dim rstTitles As ADODB.Recordset
Dim strCnn As String
Dim strTitle As String
Dim strMessage As String
'打开连接。
strCnn="Provider=sqloledb;Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=;"

Set cnn1=New ADODB.Connection
cnn1.Open strCnn

'打开Titles表
Set rstTitles=New ADODB.Recordset
rstTitles.CursorType=adOpenDynamic
rstTitles.LockType=adLockPessimistic
rstTitles.Open "titles",cnn1,,,adCmdTable
rstTitles.MoveFirst
cnn1.BeginTrans
'在记录集中循环并询问是否想要更改指定标题的类型.
Do Until rstTitles.EOF
   If Trim(rstTitles!Type)="psychology" Then
      strTitle=rstTitles!Title
      strMessage="Title:"&strTitle&vbCr&"Change type to self help?"
      '更改指定雇员的标题
      If MsgBox(strMessage,vbYesNo)=vbYes Then
         rsttitles!Type="self_help"
         rstTitles.Update
      End If
   Enf If
     rstTitles.MoveNext
Loop

'询问用户是否想提交以上所做的全部更改

If MsgBox("Save all changes?",vbYesNo)=vbYes Then
   cnn1.CommitTrans
Else
   cnn1.RollbackTrans
End If
'打印记录集中的当前数据。
rstTitiles.Requery
rstTitles.MoveFirst
Do While Not rstTitles.EOF
   Debug.Print rstTitles!Title&"-"&rstTitles!Type
   rstTitles.MoveNext
Loop
'恢复原始数据，因为这是一个演示

rstTitles.MoveFirst
Do Until rstTitles.EOF
   If Trim(rstTitles!Type)="self_help" Then
      rstTitles!Type="paychology"
      rstTitles.Update
   End If
   rstTitles.MoveNext
Loop
rstTitles.Close
cnn1.Close

End Sub　　此例更改了数据库中Titles表中所有心理学书籍的类型。在BeginTrans方法启动事务将所有对Titles表的更改隔离后，CommitTrans方法将保存更改。可使用Rollback方法撤消用Update方法保存的更改。

　　2.Open方法

　　Open方法打开一个数据源的连接，语法如下：

　　connection.Open ConnectionString,UserID,Password,OpenOptions

　　参数说明：

　　▲ConnectionString:这是一个可选的字符串，它包含了连接信息。

　　▲UserID:可选的字符串，它包含了建立连接时所使用的用户名称。

　　▲Password:可选的字符串，它包含了建立连接时所使用的密码。

　　▲OpenOptions:可选的字符串，它包含了建立连接时所使用的连接方式。

　　3.Close方法

　　Close方法关闭一个到数据源的连接。在关闭的同时，此连接所使用的任何资源都会被释放。它的语法如下：

　　Object.Close

　　例：使用Connection对象的Open和Close方法的示例代码。

Public Sub OpenClose_Example()
    Dim conn As ADODB.Connection
    'Open the Connection object,omit the password
    conn.Open "Data Source=MyDatabase","john"
    'Use the Connection object here...
    'Close the Connection
    conn.Close
End Sub　　4.Execute方法

　　Execute方法用来执行查询或由数据源支持的其他命令，并且返回一个RecordSet对象，语法如下：

　　Set recordset=connection.Execute(CommandText,Recordsaffected,Options)

　　参数说明：

　　▲CommandText:这是一个包含要执行的SQL语句、表名、存储过程或特定提供者的文本的字符串。

　　▲RecordsAffected:这是一个可选的长整型变量，提供者向其返回操作所影响的记录数目。

　　▲Options:可选的长整型变量，指示提供者应如何为CommandText参数赋值。

　　例：使用Connection对象的Execute方法的示例代码。

Public Sub Execute_Example()
  Dim cnn As ADODB.Connection
  Dim MyRecordset As ADODB.Recordset
  Dim Mysql As String
  Set cnn=New ADODB.Connection
  Set MyRecordset=New ADODB.Recordset
  cnn.Open "Data Source=MyDatabase","john"
  Mysql="Select * From Books"
  MyRecordset=cnn.Execute Mysql
  cnn.Close
  MyRecordset.Close
End Sub　　5.OpenSchema方法

　　OpenSchema方法从提供者中获取数据为纲要信息，语法如下：

　　Set recordset=connection.OpenSchema(QueryType,Criterisa,SchemaID)

　　参数说明：

　　▲QueryType:QueryType参数指出所要运行的纲要查询类型。

　　▲Criteria:可选参数，指出每个QueryType选项的查询限制条件数组。

　　▲SchemaID:OLE DB规范没有定义提供者纲要查询的GUID。如果QueryType设置为adSchemaProviderSpecific，则需要该参数，否则不使用它。

　　例：使用Connection对象的OpenSchema方法的示例代码。

Public Sub OpenSchemaX()
  Dim cnn1 As ADODB.Recordset
  Dim rstSchema As ADODB.Recordset
  Dim strCnn As String
  Set cnn1=New ADODB.Connection
  strCnn="Provider=sqloedb;Data Source=srv;Initial catalog=pubs;User ID=sa;Password=:"
  cnn1.Open strCnn
  Set rstSchema=cnn1.OpenSchema(adSchemaTables)
  Do Until rstSchema.EOF
    Debug.Print "Table name:"&rstSchema!TABLE_NAME&vbCr&"Table type:"&_
          rstSchema!TABLE_TYPE&VbCr
    rstSchema.MoveNext
  Loop
  rstSchema.Close
  cnn1.Close
End Sub

上例使用了OpenSchema方法显示Pubs数据库内每个表的名称和类型。