创建Connection连接(gf_CreateConnect函数)

<< Click to Display Table of Contents >>

创建Connection连接(gf_CreateConnect函数)

上一页返回章节总览下一页

函数说明

       该函数可以根据Connect语句,打开并获取ADODB.Connection长连接。

      注意:该函数无需引用ADO相关的组件,直接使用即可。实现ADO后期绑定。而且使用方法基本和原ADODB.Connection一样。

                   如果在 ConnectionString 参数和可选的 strUserID 及 strPWD 参数中传送用户和密码信息,那么 strUserID 和 strPWD 参数将覆盖 ConnectionString 中指定的值。

 

函数原型

 

    Public Function gf_CreateConnect(strConn As String, _

                                                       Optional strUserID As String, _

                                                       Optional strPWD As String, _

                                                       Optional lngOption As AdoConnectOption = -1) As Object

 

语法

      gf_CreateConnect(strConn [,strUserID] [,strPWD] [,lngOption])

       参考:gf_CreateConnect("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Data.mdb")   '连接到D盘下的Data.mdb数据库

 

参数

参数名

必需/可选

数据类型

参数说明

strConn

必需

String

 字符串表达式,ConnectString连接数据库语句。

strUserID

可选

String

 字符串表达式,包含建立连接时所使用用户名。默认为空。

strPWD

可选

String

 字符串表达式,包含建立连接时所使用密码。默认为空。

lngOption

可选

AdoConnectOption

 决定该对象是在连接建立之后(异步)还是连接建立之前(同步)返回。默认intConnectUnspecified ( = 1) ,同步返回。

 

返回值

       返回记录集对象(ADODB.Connection)。若打开错误,则返回Nothing

 

示例

 

       ’一般使用前面1个参数即可满足需求,后面三个参数比较少用,默认即可。特殊情况下才会使用。

 

      ’示例:打开D:\Data.mdb 并对表tblTest 新增记录

       Sub subTest()

              Dim strConnectString As String                '定义一个字符串型变量,保存连接语句

              Dim cn As Object                                    '定义一个对象,用于接收返回的连接Connection

              Dim strSql As String                               ’定义一个字符串型变量,SQL语句

              Dim rs As Object                                    '定义一个对象,用于接收返回的记录集Recordset

 

               strConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Data.mdb"  '设置连接语句

              Set cn = gf_CreateConnect(strConnectString)   '打开连接

 

               strSql = "select * from tblTest"                        ‘设置SQL语句

                '打开tblTest表并返回对应的记录集对象。后面参数1和3表示可修改。gf_OpenRecordset是打开记录集函数

              Set rs = gf_OpenRecordset(strSql, cn, 1, 3)  

                       rs.AddNew                                            ‘新增记录

                       rs("FName")="张三"                              ’FName字段值为"张三"

                       rs.Update                                              '提交数据

               rs.Close                                                        '关闭记录集

               cn.Close                                                        '关闭连接

 

              Set rs = Nothing                                             ‘使用完毕,清空对象,节省资源

              Set cn = Nothing

      End Sub