必威注册电子书籍教程中心网文荟萃客户留言繁體中文
设为首页
加入收藏
联系必威注册
您当前的位置:92动力网 -> 教程中心 -> 编程经验 -> Visual Basic -> 教程内容 退出登录 用户管理
栏目导航
· Visual Basic· Delphi
· Visual C++· C++ Builder
· JAVA DotNet· 其他相关
热门教程
· 如何在Visual Basic...
· 使用Visual Basic操...
· 使用VB6.0设计Activ...
· VB动态调用外部函数...
· 建立一个程序员自己...
· 如何编写高质量的VB...
· [图文] 为更新到Visual Bas...
· 再谈在VB中调用VC++...
· 用VB语言编程实现JP...
· 用DTS实现SQL数据库...
相关教程
· [图文] 如何在ASP.Net 中把...
· 利用 Web 对象通道使...
· 第二节 对象模型 [2...
· NewMail 对象(CDON...
· 如何在ASP中连接MyS...
· 用 DataSet 对象更新...

如何在ado中使用connection 对象?
作者:佚名聽聽来源:本站整理聽聽发布时间:2005-12-28 23:35:07聽聽发布人:admin

减小字体 增大字体

如何在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?

CONNNETIONEXECUTE方法用来发送一个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")
聽聽 '  []
[返回上一页]
[打 印]
[收 藏]
上一篇教程:ado
下一篇教程:数据在窗体中的翻页
∷相关教程评论∷    (评论内容只代表网友观点,与本站立场无关!) [更多评论...]
关于本站 - 网站帮助 - 广告合作 - 下载声明 - 网站地图 - 管理登录
Copyright 2019 必威注册. All Rights Reserved .
浙ICP备05047688号