VBS 常用数据库函数
上一篇 / 下一篇 2008-06-21 14:28:41 / 个人分类:QTP
VBS写的常用数据库公用函数
摘自http://bbs.51testing.com/viewthread.php?tid=118028&pid=998989&page=1&extra=page%3D1#pid9989899^%le$\1BJ0N0
以下是我写的常用的数据库公用函数,希望大家能一起探讨和总结,把一些常用的数据库公用函数分享出来。这个是初稿,以后使用中我会继续完善51Testing软件测试网+LXY-v-N:f@p
特别是在做报表自动化测试时,数据库的公用函数使用尤其频繁,包括对存储过程的操作
TIL-w"U+O051Testing软件测试网"C a:|3e @c
a5Z0V/Z|3k0' DATABASE公用函数
^X i:f`YUPa,P0'51Testing软件测试网 x3Hp(S1aY `&|2Tz[
'###########################################################################################################
hr1b sg6Gsh0'###########################################################################################################51Testing软件测试网l)S mQ:he5{
-d#w3H?VF0Dim objConnection 'CONNECTION对象实例
h^9_H A,K9J0Dim objRecordSet 'RECORDSET对象实例 51Testing软件测试网P/nuX UR
Dim objCommand '命令对象实例
&C&WQf\0Dim strConnectionString '连接字符串51Testing软件测试网mU$?7e cW)c DZ
51Testing软件测试网(K#RX8Xv4W2Y?
' ********************************************************************51Testing软件测试网Y/wwkyg)uF
' 函数说明:连接数据库;51Testing软件测试网`s*FcO.Y9GG
' 参数说明:(1)strDBType(数据库类型:如ORACEL;DB2;SQL;ACCESS)
9B7Ugwoc-}c0' (2)strDBAlias(数据库别名)
gm'T#lB JQsm0' (3)strUID(用户名)
i })g{;p;F0' (4)strPWD(密码)51Testing软件测试网W8J]TfP7O |!_
' (5)strIP(数据库IP地址:仅SQL SERVER 使用)51Testing软件测试网KDyC t/D*v%SKX
' (6)strLocalHostName(本地主机名:仅SQL SERVER 使用)51Testing软件测试网.l.q8tiCK^4@Jd
' (7)strDataSource(数据源:仅ACCESS使用;如d:\yysc.mdb)
W'A$O6g\9S0' 返回结果:无51Testing软件测试网/WC%[6V&_k[R
' 调用方法: ConnectDatabase(strDBType, strDBAlias, strUID, strPWD, strIP, strLocalHostName, strDataSource)
'?4jFL*eE-i)g%K0' ********************************************************************
K jZ K z\0Sub ConnectDatabase(strDBType, strDBAlias, strUID, strPWD, strIP, strLocalHostName, strDataSource)
qT4P4WLvc;O0 Set ōbjConnection = CreateObject("ADODB.CONNECTION") '1 - 建立CONNECTION对象的实例51Testing软件测试网fMB#u hgy
,f_KjS}0 Select Case UCase(Trim(strDBType))51Testing软件测试网0\"h9}-KyyU.X.sJm
Case "ORACLE"
R;u5^;_N0 strConnectionString = "Driver={Microsoft ODBC for Oracle};Server=" & strDBAlias & ";Uid="_51Testing软件测试网;E2|B4P{;w1O
& strUID & ";Pwd=" & strPWD & ";" '2 - 建立连接字符串
F9D/Q6d?Wq;n4Y0 objConnection.Open strConnectionString '3 - 用Open 方法建立与数据库连接51Testing软件测试网_0P)m"m}P8[(\
Case "DB2"
otM(|/D0 strConnectionString = "Driver={IBM DB2 ODBC DRIVER};DBALIAS=" & strDBAlias & ";Uid="_
PSFn;DP0 & strUID & ";Pwd=" & strPWD & ";"
I#pk"U S\wB0 objConnection.Open strConnectionString
^f;gR9]%t+}:x0 Case "SQL"51Testing软件测试网z@O3fW)?]d M#O\
strConnectionString = "DRIVER=SQL Server; SERVER=" & strIP & "; UID=" & strUID & "; PWD="_
3A(NxE MzG8DZ0 & strPWD & "; APP=Microsoft Office 2003;WSID=" & strLocalHostName & "; DATABASE=" & strDBAlias & ";"51Testing软件测试网h sXYd
objConnection.Open strConnectionString
特别是在做报表自动化测试时,数据库的公用函数使用尤其频繁,包括对存储过程的操作
TIL-w"U+O051Testing软件测试网"C a:|3e @c
a5Z0V/Z|3k0' DATABASE公用函数
^X i:f`YUPa,P0'51Testing软件测试网 x3Hp(S1aY `&|2Tz[
'###########################################################################################################
hr1b sg6Gsh0'###########################################################################################################51Testing软件测试网l)S mQ:he5{
-d#w3H?VF0Dim objConnection 'CONNECTION对象实例
h^9_H A,K9J0Dim objRecordSet 'RECORDSET对象实例 51Testing软件测试网P/nuX UR
Dim objCommand '命令对象实例
&C&WQf\0Dim strConnectionString '连接字符串51Testing软件测试网mU$?7e cW)c DZ
51Testing软件测试网(K#RX8Xv4W2Y?
' ********************************************************************51Testing软件测试网Y/wwkyg)uF
' 函数说明:连接数据库;51Testing软件测试网`s*FcO.Y9GG
' 参数说明:(1)strDBType(数据库类型:如ORACEL;DB2;SQL;ACCESS)
9B7Ugwoc-}c0' (2)strDBAlias(数据库别名)
gm'T#lB JQsm0' (3)strUID(用户名)
i })g{;p;F0' (4)strPWD(密码)51Testing软件测试网W8J]TfP7O |!_
' (5)strIP(数据库IP地址:仅SQL SERVER 使用)51Testing软件测试网KDyC t/D*v%SKX
' (6)strLocalHostName(本地主机名:仅SQL SERVER 使用)51Testing软件测试网.l.q8tiCK^4@Jd
' (7)strDataSource(数据源:仅ACCESS使用;如d:\yysc.mdb)
W'A$O6g\9S0' 返回结果:无51Testing软件测试网/WC%[6V&_k[R
' 调用方法: ConnectDatabase(strDBType, strDBAlias, strUID, strPWD, strIP, strLocalHostName, strDataSource)
'?4jFL*eE-i)g%K0' ********************************************************************
K jZ K z\0Sub ConnectDatabase(strDBType, strDBAlias, strUID, strPWD, strIP, strLocalHostName, strDataSource)
qT4P4WLvc;O0 Set ōbjConnection = CreateObject("ADODB.CONNECTION") '1 - 建立CONNECTION对象的实例51Testing软件测试网fMB#u hgy
,f_KjS}0 Select Case UCase(Trim(strDBType))51Testing软件测试网0\"h9}-KyyU.X.sJm
Case "ORACLE"
R;u5^;_N0 strConnectionString = "Driver={Microsoft ODBC for Oracle};Server=" & strDBAlias & ";Uid="_51Testing软件测试网;E2|B4P{;w1O
& strUID & ";Pwd=" & strPWD & ";" '2 - 建立连接字符串
F9D/Q6d?Wq;n4Y0 objConnection.Open strConnectionString '3 - 用Open 方法建立与数据库连接51Testing软件测试网_0P)m"m}P8[(\
Case "DB2"
otM(|/D0 strConnectionString = "Driver={IBM DB2 ODBC DRIVER};DBALIAS=" & strDBAlias & ";Uid="_
PSFn;DP0 & strUID & ";Pwd=" & strPWD & ";"
I#pk"U S\wB0 objConnection.Open strConnectionString
^f;gR9]%t+}:x0 Case "SQL"51Testing软件测试网z@O3fW)?]d M#O\
strConnectionString = "DRIVER=SQL Server; SERVER=" & strIP & "; UID=" & strUID & "; PWD="_
3A(NxE MzG8DZ0 & strPWD & "; APP=Microsoft Office 2003;WSID=" & strLocalHostName & "; DATABASE=" & strDBAlias & ";"51Testing软件测试网h sXYd
objConnection.Open strConnectionString