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

milo.jiang

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


' 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

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

qicyt1812

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

milo.jiang

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

yuandjing

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

wangrui2218

谢谢楼猪分享

Randall

收藏了

lijunhu

谢谢分享。

今天有雾

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

fwlikexbx

靠 不顶不行啊

happychap

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

mayuping0516

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

chenyb85

把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

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

sunqiang1024

谢谢楼主的共享啊，不错

miranda95

thanks!

heqingbluesky

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

wuzhiyongnihao

光看不顶不是好同志

没有蛀牙

谢谢分享

FLY000

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