<< 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 |
可选 |
决定该对象是在连接建立之后(异步)还是连接建立之前(同步)返回。默认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 |