'-----------------------------------------------------------------
'function:数据库连接
'call method:在调用文件中先定义Res,Cmd
'For example:DB(connectstr)
'
'连接字符串,你可以新建一个tld文件,然后设置相关参数就可以直接复制这个字符串即可
'
'-----------------------------------------------------------------
function DB(connectstr)
Dim dbcon
Set dbcon=createobject("adodb.connection")
dbcon.Open connectstr
If dbcon.State=0 Then
reportProgress "你的连接对应的数据库失败了,请检查你的连接字符串配置再试",4
else
'reportResult(teststep, expectvalue, actualvalue)
reportResult "连接数据库操作","正确连接数据库成功","正确连接数据库成功"
End If
DB=dbcon
End function
'-----------------------------------------------------------------
'function:执行SQL语句
'Input parameter: StrSql,dbcon
'For example:executeSql(dbcon,strsql)
'---------------------------------------------------------
function executeSql(dbcon,strsql)
Dim rs
Set rs=CreateObject("adodb.recordset")
rs.Open strsql,dbcon
set executeSql=rs
End function
'---------------------------------------------------------
'function:关闭数据库
'For example:DBClose(dbcon,rs)
'---------------------------------------------------------
function DBClose(dbcon,rs)
rs.Close
Set rs=nothing
dbcon.Close
Set dbcon=nothing
End function