VB+ADO介绍的Connection对象的应用方法

VB+ADO:介绍的Connection对象的应用方法什么是connection对象？一个connection对象描述了到数据源的物理连接。你可以使用odbc也可以利用oledb来连接数据源。当你打开一个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方法来建立链接。通过connectionstring提供的信息用OPEN方法可以非常轻松的建立与数据的连接。如果你决定用connection对象进行工作，那么你可以用它的STATE属性。如果connection对象被打开了那么它的返回值为adstateopen,如果不是它的返回值为adstateclosed.下面的例子是利用odbc建立与SQL的连接。SubConnectionExample1()DimcnnAsADODB.ConnectionSetcnn=NewADODB.Connection‘用ODBC打开连接.cnn.OpenPubs,sa,‘检查是否完成连接Ifcnn.State=adStateOpenThenMsgBoxWelcometoPubs!ElseMsgBoxSorry.NoPubstoday.EndIf关闭connection对象cnn.CloseEndSub如果你只需要连接一个数据源。下面的代码要比上面的简单。作为选择，你可以创建一个connection对象，在调用open方法前你可以先设置ConnectionString属性。这种方法容许你连接一个数据源后再重新用这个对象再连接另一个数据源。SubConnectionExample2()DimcnnAsADODB.ConnectionSetcnn=NewADODB.Connection‘用ODBCDSN建立连接cnn.ConnectionString=DSN=Pubs;UID=sa;PWD=;cnn.Open‘检查是否与数据源建立了连接.Ifcnn.State=adStateOpenThenMsgBoxWelcometoPubs!ElseMsgBoxSorry.NoPubstoday.EndIf‘关闭connection对象cnn.CloseEndSub在你对CONNECTION对象建立连接前，你可以设置它的其它属性。例如，你可以设置连接超时。SubConnectionExample3()DimcnnAsADODB.ConnectionSetcnn=NewADODB.Connection‘设置CONNECTION属性cnn.ConnectionString=DSN=Pubs;UID=sa;PWD=;cnn.ConnectionTimeout=30‘打开connection对象cnn.Open‘检查是否已经连接上数据源Ifcnn.State=adStateOpenThenMsgBoxWelcometoPubs!ElseMsgBoxSorry.NoPubstoday.EndIf‘关闭connection对象cnn.CloseEndSubConnectionString属性的语法结构假定数据源已经被建立或利用系统管理员的身份使用ODBC.不依靠存在的odbc数据源变得流行起来。这样就减轻了安装的负担。下面的例子是一个连接SQLSERVER的可选择性的方法，仅依靠本身存在的odbcdriver.SubConnectionExample4()DimcnnAsADODB.ConnectionSetcnn=NewADODB.Connection‘利用引用ODBCDRIVER打开CONNECTION对象cnn.ConnectionString=driver={SQLServer};&_server=rgreennt;uid=sa;pwd=;database=pubscnn.Open‘Findoutiftheattempttoconnectworked.‘检查是否已经建立连接Ifcnn.State=adStateOpenThenMsgBoxWelcometoPubs!ElseMsgBoxSorry.NoPubstoday.EndIf‘关闭CONNECTION对象cnn.CloseEndSub现在ODBCDRIVER有更广的变化，你可以用ADO和数据源对话。不久将会有更的的OLEDB提供者与数据源建立连接。TheMicrosoft®OLEDBProviderforODBC是当前ADO默认的提供者。你能用不同的提供者设置CONNECTION对象的provider属性。SubConnectionExample5()DimcnnAsADODB.ConnectionSetcnn=NewADODB.Connection‘设置PROVIDER属性利用OLEDBProviderforODBCcnn.Provider=MSDASQL‘用ODBCDSN打开CONNECTION对象cnn.ConnectionString=driver={SQLServer};&_server=rgreennt;uid=sa;pwd=;database=pubscnn.Open‘检查是否连接上数据源Ifcnn.State=adStateOpenThenMsgBoxWelcometoPubs!ElseMsgBoxSorry.NoPubstoday.EndIf‘关闭CONNECTION对象cnn.CloseEndSub上面的代码设置PROVIDER属性不是必须因为ADO的默认提供者就是OLEDBPROVIDERFORODBC.这里只是认你知道当你用其它的OLEDBPROVIDERS时如何设置。我如何用CONNECTION对象执行COMMAND?CONNNETION的EXECUTE方法用来发送一个COMMAND(一个SQL指令或其它的文本信息)到数据源。如果在SQL指令中要求返回几行记录集，一个RECORDSET对象将会被自动的建立。SubConnectionExample6()DimcnnAsADODB.ConnectionDimrsAsADODB.RecordsetSetcnn=NewADODB.Connection‘引用ODBCdriver建立连接.cnn.ConnectionString=driver={SQLServer};&_server=rgreennt;uid=sa;pwd=;database=pubscnn.Open‘执行SQL语句创立一个RECORDSET对象.Setrs=cnn.Execute(Select*Fromauthors)‘显示第一个author.MsgBoxrs(au_fname)&&rs(au_lname)‘断开连接rs.CloseEndSub记住用EXECUTE返回的RECORDSET是只读的，并且是仅向前光标。如果你需要用RECORDSET物件的更多函数,你首先要创建RECORDSET物件并设置想要设置的属性然后用OPEN方法打开它来执行查询和返回想要得到的光标类型.在下面的例子中,COMMAND物件执行删除指令,由于没有数据集需要返回,你不需要额外的用RECORDSET物件.删除了多少行数据?你可以通过RECORDSAFFECTED参数知道它.SubConnectionExample7()DimcnnAsADODB.ConnectionDimrsAsADODB.RecordsetSetcnn=NewADODB.Connection‘引用ODBCDRIVER建立连接cnn.ConnectionString=driver={SQLServer};&_server=rgreennt;uid=sa;pwd=;database=pubscnn.Open‘向数据源发送删除指令cnn.Execute(DeleteFromauthorsWhereau_id=‘011-01-0111‘)‘检查有多少行数据被删除Setrs=cnn.Execute(Select@@rowcount)‘显示第一个字段MsgBoxrs(0)&rowsdeleted‘关闭连接rs.CloseEndSub下面的例子,这个COMMAND通过指定的存储过程的名字运行数据源的存储过程.由于需要返回数据，所以你必需建立RECORDSET物件。SubConnectionExample8()DimcnnAsADODB.ConnectionDimrsAsADODB.RecordsetSetcnn=NewADODB.Connection‘引用ODBCDRIVER来建立连接cnn.ConnectionString=driver={SQLServer};&_server=rgreennt;uid=sa;pwd=;database=pubscnn.Open‘建立RECORDSET对象来运行存储过程Setrs=cnn.Execute(Execbyroyalty50)‘通过循环来显示AUTHOR的IDDoWhileNotrs.EOFMsgBoxrs(au_id)rs.MoveNextLoop‘断开连接rs.CloseEndSub小弟第一次译，错误是不可避免的。希望高手给以指正，同时希望初学中能从中有所获。原文：=/library/en-us/dnado/html/msdn_workshp2.asp