VBS写的常用数据库公用函数
上一篇 / 下一篇 2008-06-21 01:25:26 / 个人分类:Automation
以下是我写的常用的数据库公用函数,希望大家能一起探讨和总结,把一些常用的数据库公用函数分享出来。这个是初稿,以后使用中我会继续完善51Testing软件测试网1JYK"Y9H r Y2G
特别是在做报表自动化测试时,数据库的公用函数使用尤其频繁,包括对存储过程的操作51Testing软件测试网 M*N Q[;gZ/e
Qx[ `[ raIv051Testing软件测试网rXTg;v3g1u)Q D
' DATABASE公用函数
+wZi$T~9XgdK0'
aRA-V8DgM'}'n0'###########################################################################################################51Testing软件测试网Po&kmjC%yQ
'###########################################################################################################
!Q0rX6z0Li\6g;L051Testing软件测试网8MPq u)Ad
Dim objConnection 'CONNECTION对象实例51Testing软件测试网t1`#@tyIJ'S"b
Dim objRecordSet 'RECORDSET对象实例 51Testing软件测试网ub7Z{'W:L
Dim objCommand '命令对象实例51Testing软件测试网2hP4A{P)K5IFZr
Dim strConnectionString '连接字符串
4] Y5m.R-p*_U0
lS)a3[| PqWM.L)n/m|'w0' ********************************************************************51Testing软件测试网p`7@v{
' 函数说明:连接数据库;
S${*} [et0' 参数说明:(1)strDBType(数据库类型:如ORACEL;DB2;SQL;ACCESS)51Testing软件测试网xUnE4N4^8\}
' (2)strDBAlias(数据库别名)
@ WqzNQZs0' (3)strUID(用户名)51Testing软件测试网)O m$Ul'x|?&jq
' (4)strPWD(密码)51Testing软件测试网$i'M8}(KX'Qs?
' (5)strIP(数据库IP地址:仅SQL SERVER 使用)51Testing软件测试网N t[VH:VH
' (6)strLocalHostName(本地主机名:仅SQL SERVER 使用)
vQEL:[M0' (7)strDataSource(数据源:仅ACCESS使用;如d:\yysc.mdb)51Testing软件测试网LjI%{#aPg8~
' 返回结果:无51Testing软件测试网"XIp4aA$y,E
' 调用方法: ConnectDatabase(strDBType, strDBAlias, strUID, strPWD, strIP, strLocalHostName, strDataSource)51Testing软件测试网!l5`w#bV
' ********************************************************************
_w.}Ic"OPGW[.Aw0Sub ConnectDatabase(strDBType, strDBAlias, strUID, strPWD, strIP, strLocalHostName, strDataSource)51Testing软件测试网0K2{.B%D}
Set ōbjConnection = CreateObject("ADODB.CONNECTION") '1 - 建立CONNECTION对象的实例51Testing软件测试网S~O6Lq,z
u0Q2H5t6R$IU+t7d?C0 Select Case UCase(Trim(strDBType))51Testing软件测试网"Q%L+t jE8R;t
Case "ORACLE"51Testing软件测试网?Z/~LY&_]
strConnectionString = "Driver={Microsoft ODBC for Oracle};Server=" & strDBAlias & ";Uid="_51Testing软件测试网O['K2s:wG.o)H
& strUID & ";Pwd=" & strPWD & ";" '2 - 建立连接字符串51Testing软件测试网RAx7[j*L SO
objConnection.Open strConnectionString '3 - 用Open 方法建立与数据库连接51Testing软件测试网vdbDNA3W2J![.H
Case "DB2"
"K@S;A_*W nH0 strConnectionString = "Driver={IBM DB2 ODBC DRIVER};DBALIAS=" & strDBAlias & ";Uid="_
'[ Rw)l7O$|J^0 & strUID & ";Pwd=" & strPWD & ";"
`R/Q&hcE0 objConnection.Open strConnectionString
)f1Olm sS6C4C(z6P2Q0 Case "SQL"51Testing软件测试网,S"sl5ix(gI0g(x0U
strConnectionString = "DRIVER=SQL Server; SERVER=" & strIP & "; UID=" & strUID & "; PWD="_51Testing软件测试网5M3kkg$w;yT6_
& strPWD & "; APP=Microsoft Office 2003;WSID=" & strLocalHostName & "; DATABASE=" & strDBAlias & ";"
特别是在做报表自动化测试时,数据库的公用函数使用尤其频繁,包括对存储过程的操作51Testing软件测试网 M*N Q[;gZ/e
Qx[ `[ raIv051Testing软件测试网rXTg;v3g1u)Q D
' DATABASE公用函数
+wZi$T~9XgdK0'
aRA-V8DgM'}'n0'###########################################################################################################51Testing软件测试网Po&kmjC%yQ
'###########################################################################################################
!Q0rX6z0Li\6g;L051Testing软件测试网8MPq u)Ad
Dim objConnection 'CONNECTION对象实例51Testing软件测试网t1`#@tyIJ'S"b
Dim objRecordSet 'RECORDSET对象实例 51Testing软件测试网ub7Z{'W:L
Dim objCommand '命令对象实例51Testing软件测试网2hP4A{P)K5IFZr
Dim strConnectionString '连接字符串
4] Y5m.R-p*_U0
lS)a3[| PqWM.L)n/m|'w0' ********************************************************************51Testing软件测试网p`7@v{
' 函数说明:连接数据库;
S${*} [et0' 参数说明:(1)strDBType(数据库类型:如ORACEL;DB2;SQL;ACCESS)51Testing软件测试网xUnE4N4^8\}
' (2)strDBAlias(数据库别名)
@ WqzNQZs0' (3)strUID(用户名)51Testing软件测试网)O m$Ul'x|?&jq
' (4)strPWD(密码)51Testing软件测试网$i'M8}(KX'Qs?
' (5)strIP(数据库IP地址:仅SQL SERVER 使用)51Testing软件测试网N t[VH:VH
' (6)strLocalHostName(本地主机名:仅SQL SERVER 使用)
vQEL:[M0' (7)strDataSource(数据源:仅ACCESS使用;如d:\yysc.mdb)51Testing软件测试网LjI%{#aPg8~
' 返回结果:无51Testing软件测试网"XIp4aA$y,E
' 调用方法: ConnectDatabase(strDBType, strDBAlias, strUID, strPWD, strIP, strLocalHostName, strDataSource)51Testing软件测试网!l5`w#bV
' ********************************************************************
_w.}Ic"OPGW[.Aw0Sub ConnectDatabase(strDBType, strDBAlias, strUID, strPWD, strIP, strLocalHostName, strDataSource)51Testing软件测试网0K2{.B%D}
Set ōbjConnection = CreateObject("ADODB.CONNECTION") '1 - 建立CONNECTION对象的实例51Testing软件测试网S~O6Lq,z
u0Q2H5t6R$IU+t7d?C0 Select Case UCase(Trim(strDBType))51Testing软件测试网"Q%L+t jE8R;t
Case "ORACLE"51Testing软件测试网?Z/~LY&_]
strConnectionString = "Driver={Microsoft ODBC for Oracle};Server=" & strDBAlias & ";Uid="_51Testing软件测试网O['K2s:wG.o)H
& strUID & ";Pwd=" & strPWD & ";" '2 - 建立连接字符串51Testing软件测试网RAx7[j*L SO
objConnection.Open strConnectionString '3 - 用Open 方法建立与数据库连接51Testing软件测试网vdbDNA3W2J![.H
Case "DB2"
"K@S;A_*W nH0 strConnectionString = "Driver={IBM DB2 ODBC DRIVER};DBALIAS=" & strDBAlias & ";Uid="_
'[ Rw)l7O$|J^0 & strUID & ";Pwd=" & strPWD & ";"
`R/Q&hcE0 objConnection.Open strConnectionString
)f1Olm sS6C4C(z6P2Q0 Case "SQL"51Testing软件测试网,S"sl5ix(gI0g(x0U
strConnectionString = "DRIVER=SQL Server; SERVER=" & strIP & "; UID=" & strUID & "; PWD="_51Testing软件测试网5M3kkg$w;yT6_
& strPWD & "; APP=Microsoft Office 2003;WSID=" & strLocalHostName & "; DATABASE=" & strDBAlias & ";"