ado

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

 

如何在ado中使用connection 对象？

什么是connection对象？

一个connection对象描述了到数据源的物理连接。你可以使用odbc也可以利用ole db来连接数据源。当你打开一个connectiont对象时你就会试图连接数据库。Connection对象的state属性会告诉我们连接是否成功。通过connection对象的execute方法向数据源发送SQL语句或运行存存储过程。如果你向数据源发送的命令要求数据源返回记录集，那么记录集对象会自动的被创建。当你连接上数据库后你可以关闭connection对象。

Connection 对象的方法和属性有哪些呢？

下表列出了connection一些常用的方法。

方法

描述

Open

打开一个数据源连接

Close

关闭与数据源的连接以及相关的对象

Execute

执行一个相关的查询（SQL语名或存储过程，或数据提供者特定文本）

BeginTrans

开始一个新事务

CommitTrans

.

保存一些改变或当前的事务目的是为开始一个新事务

RollbackTrans

取消一些改变在当前事务和结束事务时，目的是开始一个新事务

下表列出了一些常用的CONNECTION对象的属性。

属性

描述

ConnectionString

包含建立与数据源的连接的相关信息

ConnectionTimeout

显示尝试建立与数据源的连接和产生错误所花去的时间

CommandTimeout

显示在中断一个尝试和返回一个错误前执行该项指令所花去的时间

State

表明是否与数据源连接上或已关闭或正在连接中

Provider

显示连接提供者的名称

Version

显示ado版本号

CursorLocation

设定或返回一个提供者光标函数的定值

 

如何利用connection对象连接数据源？

用一个connnection 对象，只要指定一个connection字符串，目的是用来指定你想要联结的数据源，然后调用open方法来建立链接。

通过connection string提供的信息用OPEN方法可以非常轻松的建立与数据的连接。如果你决定用connection对象进行工作，那么你可以用它的STATE属性。如果connection对象被打开了那么它的返回值为adstateopen,如果不是它的返回值为adstateclosed.下面的例子是利用odbc建立与SQL的连接。

Sub ConnectionExample1()
  
  

   Dim cnn As adoDB.Connection
   
   

   Set cnn = New adoDB.Connection
   
   

   ' 用ODBC打开连接. 
       

   cnn.Open "Pubs", "sa", ""
   
   

   ' 检查是否完成连接
     
     

   If cnn.State = adStateOpen Then
   
   

      MsgBox "Welcome to Pubs!"
   
   

   Else
   
   

      MsgBox "Sorry. No Pubs today."
   
   

   End If
   
   

  关闭connection对象 
       

   cnn.Close
   
   

End Sub
  
  

如果你只需要连接一个数据源。下面的代码要比上面的简单。作为选择，你可以创建一个connection对象，在调用open方法前你可以先设置ConnectionString属性。这种方法容许你连接一个数据源后再重新用这个对象再连接另一个数据源。 
         

Sub ConnectionExample2()
  
  

   Dim cnn As adoDB.Connection
   
   

   Set cnn = New adoDB.Connection
   
   

   ' 用ODBC DSN 建立连接 
       

   cnn.ConnectionString = "DSN=Pubs;UID=sa;PWD=;"
   
   

   cnn.Open
   
   

   ' 检查是否与数据源建立了连接.
     
     

   If cnn.State = adStateOpen Then
   
   

      MsgBox "Welcome to Pubs!"
   
   

   Else
   
   

      MsgBox "Sorry. No Pubs today."
   
   

   End If
   
   

   '关闭connection对象 
       

   cnn.Close
   
   

End Sub
  
  

在你对CONNECTION对象建立连接前，你可以设置它的其它属性。例如，你可以设置连接超时。

Sub ConnectionExample3()
  
  

   Dim cnn As adoDB.Connection
   
   

   Set cnn = New adoDB.Connection
   
   

   ' 设置CONNECTION属性 
       

   cnn.ConnectionString = "DSN=Pubs;UID=sa;PWD=;"
   
   

   cnn.ConnectionTimeout = 30
   
   

   ' 打开connection 对象 
       

   cnn.Open
   
   

   ' 检查是否已经连接上数据源
     
     

   If cnn.State = adStateOpen Then
   
   

      MsgBox "Welcome to Pubs!"
   
   

   Else
   
   

      MsgBox "Sorry. No Pubs today."
   
   

   End If
   
   

   ' 关闭connection对象 
       

   cnn.Close
   
   

End Sub
  
  

ConnectionString属性的语法结构假定数据源已经被建立或利用系统管理员的身份使用ODBC.不依靠存在的odbc数据源变得流行起来。这样就减轻了安装的负担。下面的例子是一个连接SQL SERVER的可选择性的方法，仅依靠本身存在的odbc driver

. Sub ConnectionExample4()
   
   

   Dim cnn As adoDB.Connection
   
   

   Set cnn = New adoDB.Connection
   
   

  '利用引用ODBC DRIVER打开CONNECTION对象 
         

   cnn.ConnectionString = "driver={SQL Server};" & _
   
   

      "server=rgreennt;uid=sa;pwd=;database=pubs"
   
   

   cnn.Open
   
   

   ' Find out if the attempt to connect worked.
   
   

'检查是否已经建立连接
    
    

   If cnn.State = adStateOpen Then
   
   

      MsgBox "Welcome to Pubs!"
   
   

   Else
   
   

      MsgBox "Sorry. No Pubs today."
   
   

   End If
   
   

   ' 关闭CONNECTION对象 
       

   cnn.Close
   
   

End Sub
  
  

现在ODBC DRIVER 有更广的变化，你可以用ado和数据源对话。不久将会有更的的OLE DB提供者与数据源建立连接。The Microsoft® OLE DB Provider for ODBC是当前ado默认的提供者。你能用不同的提供者设置CONNECTION对象的provider属性。

Sub ConnectionExample5()
  
  

   Dim cnn As adoDB.Connection
   
   

   Set cnn = New adoDB.Connection
   
   

   '设置PROVIDER属性利用OLE DB Provider for ODBC 
       

   cnn.Provider = "MSDASQL"
   
   

    '用ODBC DSN打开CONNECTION对象 
         

   cnn.ConnectionString = "driver={SQL Server};" & _
   
   

      "server=rgreennt;uid=sa;pwd=;database=pubs"
   
   

   cnn.Open
   
   

   '检查是否连接上数据源
     
     

   If cnn.State = adStateOpen Then
   
   

      MsgBox "Welcome to Pubs!"
   
   

   Else
   
   

      MsgBox "Sorry. No Pubs today."
   
   

   End If
   
   

   '关闭CONNECTION对象 
       

   cnn.Close
   
   

End Sub
  
  

上面的代码设置PROVIDER属性不是必须因为ado的默认提供者就是OLE DB PROVIDER FOR ODBC.这里只是认你知道当你用其它的OLE DB PROVIDERS时如何设置。

我如何用CONNECTION对象执行COMMAND?

CONNNETION的EXECUTE方法用来发送一个COMMAND(一个SQL指令或其它的文本信息)到数据源。如果在SQL指令中要求返回几行记录集，一个RECORDSET对象将会被自动的建立。

Sub ConnectionExample6()
  
  

   Dim cnn As adoDB.Connection
   
   

   Dim rs As adoDB.Recordset
   
   

   Set cnn = New adoDB.Connection
   
   

   ' 引用 ODBC driver 建立连接. 
       

   cnn.ConnectionString = "driver={SQL Server};" & _
   
   

      "server=rgreennt;uid=sa;pwd=;database=pubs"
   
   

   cnn.Open
   
   

   ' 执行SQL 语句创立一个RECORDSET对象. 
         

   Set rs = cnn.Execute("Select * From authors")
   
   

   ' 
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
    
    

     
     <script type="text/javascript">
     
     
</script><script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>