VBS写的常用数据库公用函数

milo.jiang 发表于 2008-6-20 10:32:33

以下是我写的常用的数据库公用函数，希望大家能一起探讨和总结，把一些常用的数据库公用函数分享出来。这个是初稿，以后使用中我会继续完善
特别是在做报表自动化测试时，数据库的公用函数使用尤其频繁，包括对存储过程的操作

' DATABASE公用函数
'
'###########################################################################################################
'###########################################################################################################

Dim objConnection 'CONNECTION对象实例
Dim objRecordSet    'RECORDSET对象实例
Dim objCommand '命令对象实例
Dim strConnectionString '连接字符串

' ********************************************************************
' 函数说明：连接数据库;
' 参数说明：(1)strDBType（数据库类型：如ORACEL；DB2；SQL；ACCESS）
'       (2)strDBAlias（数据库别名）
'       (3)strUID（用户名）
'       (4)strPWD（密码）
'       (5)strIP（数据库IP地址：仅SQL SERVER 使用）
'       (6)strLocalHostName（本地主机名：仅SQL SERVER 使用）
'       (7)strDataSource（数据源：仅ACCESS使用；如d:\yysc.mdb）
' 返回结果：无
' 调用方法: ConnectDatabase(strDBType, strDBAlias, strUID, strPWD, strIP, strLocalHostName, strDataSource)
' ********************************************************************
Sub ConnectDatabase(strDBType, strDBAlias, strUID, strPWD, strIP, strLocalHostName, strDataSource)
Set objConnection = CreateObject("ADODB.CONNECTION") '1 - 建立CONNECTION对象的实例

Select Case UCase(Trim(strDBType))
   Case "ORACLE"
         strConnectionString = "Driver={Microsoft ODBC for Oracle};Server=" & strDBAlias & ";Uid="_
            & strUID & ";Pwd=" & strPWD & ";" '2 - 建立连接字符串
         objConnection.Open strConnectionString '3 - 用Open 方法建立与数据库连接
   Case "DB2"
         strConnectionString = "Driver={IBM DB2 ODBC DRIVER};DBALIAS=" & strDBAlias & ";Uid="_
            & strUID & ";Pwd=" & strPWD & ";"
         objConnection.Open strConnectionString
   Case "SQL"
         strConnectionString = "DRIVER=SQL Server; SERVER=" & strIP & "; UID=" & strUID & "; PWD="_
            & strPWD & "; APP=Microsoft Office 2003;WSID=" & strLocalHostName & "; DATABASE=" & strDBAlias & ";"
         objConnection.Open strConnectionString
   Case "ACCESS"
         strConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & strDataSource &_
            ";Jet OLEDB:Database Password=" & strPWD & ";"
         objConnection.Open strConnectionString
   Case Else
         MsgBox "输入的数据库类型格式有误" & vbCrLf & "支持的数据库类型格式：ORACLE；DB2；SQL；ACCESS；EXCEL"
End Select

If (objConnection.State = 0) Then
   MsgBox "连接数据库失败！"
End If

End Sub

' ********************************************************************
' 函数说明：查询数据库（查询单列）;
' 参数说明：(1)strSql：SQL语句
'       (2)strFieldName：字段名
'       (3)str_Array_QueryResult：数组名（用来返回单列查询结果）
' 返回结果：intArrayLength：查询数据库返回的记录行数
'       str_Array_QueryResult：数组名（用来返回单列查询结果）
' 调用方法: intArrayLength = QueryDatabase(strSql, strFieldName, str_Array_QueryResult)
' ********************************************************************
Function QueryDatabase(strSql, strFieldName, str_Array_QueryResult)
Dim intArrayLength    '数组长度
Dim i

i = 0
str_Array_QueryResult = Array() '重新初始化数组为一个空数组

Set objRecordSet = CreateObject("ADODB.RECORDSET") '4 - 建立RECORDSET对象实例
Set objCommand = CreateObject("ADODB.COMMAND")          '5 - 建立COMMAND对象实例
objCommand.ActiveConnection = objConnection
objCommand.CommandText = strSql
objRecordSet.CursorLocation = 3
objRecordSet.Open objCommand                         '6 - 执行SQL语句,将结果保存在RECORDSET对象实例中

intArrayLength = objRecordSet.RecordCount '将查询结果的行数作为数组的长度

If intArrayLength > 0 Then
ReDim str_Array_QueryResult(intArrayLength-1)

Do While NOT objRecordSet.EOF       '将数据库查询的列值赋值给数组
   str_Array_QueryResult(i) = objRecordSet(strFieldName)
'Debug.WriteLine str_Array_QueryResult(i)
objRecordSet.MoveNext
i = i + 1
Loop
' Else
'ReDim str_Array_QueryResult(0)
'str_Array_QueryResult(0) = ""
End If

QueryDatabase = intArrayLength
End Function

' ********************************************************************
' 函数说明：更新数据库;包括INSERT、DELETE 和 UPDATE操作
' 参数说明：(1)strSql：SQL语句
' 返回结果：无
' 调用方法: UpdateDatabase(strSql)
' ********************************************************************
Sub UpdateDatabase(strSql)
Dim objCommand
Dim objField

Set objCommand = CreateObject("ADODB.COMMAND")
Set objRecordSet = CreateObject("ADODB.RECORDSET")
objCommand.CommandText = strSql
objCommand.ActiveConnection = objConnection
Set objRecordSet = objCommand.Execute

' Do Until objRecordSet.EOF

' For Each objField In objRecordSet.Fields
' Debug.Write objField.Name & ": " & objField.Value & " "
' Next

' objRecordSet.MoveNext
' Debug.WriteLine
' Loop

Set objCommand = Nothing
Set objRecordSet = Nothing

End Sub

' ********************************************************************
' 函数说明：返回符合查询结果的列的长度
' 参数说明：(1)strSql：SQL语句
' 返回结果：返回符合查询结果的列的长度
' 调用方法: MaxLength = GetLenOfField(strSql)
' ********************************************************************
Function GetLenOfField(strSql)
'如果SQL语句为空，则默认返回的列长度为0，结束函数;否则返回列的实际长度
If strSql = "" Then
   GetLenOfField= 0
Exit Function
Else
   Set objRecordSet = CreateObject("ADODB.RECORDSET") '4 - 建立RECORDSET对象实例
   Set objCommand = CreateObject("ADODB.COMMAND")          '5 - 建立COMMAND对象实例
   objCommand.ActiveConnection = objConnection
   objCommand.CommandText = strSql
objRecordSet.CursorLocation = 3
objRecordSet.Open objCommand                            '6 - 执行SQL语句,将结果保存在RECORDSET对象实例中

   GetLenOfField = objRecordSet.RecordCount    '返回符合查询结果的列的长度

Set objCommand = Nothing
Set objRecordSet = Nothing
End If
End Function

' ********************************************************************
' 函数说明：关闭数据库连接;
' 参数说明：无
' 返回结果：无
' 调用方法: CloseDatabase()
' ********************************************************************
Sub CloseDatabase()
objRecordSet.Close
objConnection.Close

Set objCommand = Nothing
Set objRecordSet = Nothing
Set objConnection = Nothing
End Sub

[ 本帖最后由 milo.jiang 于 2008-6-20 11:54 编辑 ]

zitong 发表于 2008-6-20 11:45:27

非常感谢分享，正在学习这个

qicyt1812 发表于 2008-6-20 13:05:07

感谢楼主的无私奉献，请问楼主有没有连接数据库方面的参考资料啊？能否提供一份给偶呢:lol

milo.jiang 发表于 2008-6-20 13:13:20

附件是关于ADO的基础知识，可以看看
另外附几个网址，很不错的
http://www.connectionstrings.com/ 所有数据库连接字符串的介绍
http://doc.51windows.net/ado/ Microsoft ADO 程序员参考

yuandjing 发表于 2008-6-20 13:22:49

很不错，感谢楼主，我把你的这个链接放到我的帖子里面去
http://bbs.51testing.com/thread-105302-1-1.html

wangrui2218 发表于 2008-6-20 21:15:19

谢谢楼猪分享

Randall 发表于 2008-6-21 14:23:52

收藏了

lijunhu 发表于 2008-9-3 15:02:18

谢谢分享。

今天有雾 发表于 2008-9-3 17:21:13

写的相当的全呢，LZ写的相当的好

fwlikexbx 发表于 2008-9-5 18:32:50

靠不顶不行啊

happychap 发表于 2008-9-10 10:32:38

这确实是一个好贴，后面要建议俺自己的常用库的时候，再来仔细拜访。

mayuping0516 发表于 2008-9-11 08:52:54

收藏了学习中
谢谢楼主共享这么好的学习资料
顶起来

chenyb85 发表于 2008-9-11 09:33:30

把sybase也补充上。呵呵。建议可以用class来封装。

'sybase12（或12.5）Enterprise，针对的是ASE版本，其他版本要用不同的连接串
conStr = "Provider=Sybase.ASEOLEDBProvider;" _
+ "Server Name=172.16.1.1,6000;" _
+ "User Id=sa;Password=;Initial Catalog=Test"

也可以用DotNetFactory引用ADO.NET来连接数据库，但QTP必须是QTP9.0以上版本。
不过使用ADO.net连接sybase时，如果使用ADO.net所带的dll，则在运行SqlDataAdapter.Fill DataSet时，将一直处于运行状态，程序过不去，可以用D:\sybase\ADO.NET\dll\Sybase.Data.AseClient.dll中提供的驱动能解决此问题。
:)

[ 本帖最后由 walker1020 于 2008-9-11 12:39 编辑 ]

chenyb85 发表于 2008-9-11 13:38:47

对了，楼主的方法需要改进一下。
因为使用的如果是动态游标，则objRecordSet.RecordCount 返回行数，否则objRecordSet.RecordCount 返回值都是-1哦。

sunqiang1024 发表于 2008-9-11 13:43:44

谢谢楼主的共享啊，不错

miranda95 发表于 2008-9-16 16:12:03

thanks!

heqingbluesky 发表于 2008-9-17 11:36:53

虽然目前用不到，但是还是收藏以备以后用。

wuzhiyongnihao 发表于 2008-11-4 16:05:00

光看不顶不是好同志

没有蛀牙 发表于 2008-11-4 16:57:21

谢谢分享:)

FLY000 发表于 2008-11-4 19:06:27

楼主是测试报表软件的吗？
“做报表自动化测试时，数据库的公用函数使用尤其频繁，包括对存储过程的操作”
--请问在什么样的情况下要用到连数据库的操作？？？

页: [1] 2 3

51Testing软件测试论坛 's Archiver

VBS写的常用数据库公用函数