qtp查询mysql_QTP连接数据库的一个实例

'定义一个变量

Dim Cnn

'创建一个ADODB对象，赋值给这个变量

Set Cnn =CreateObject("ADODB.Connection")

'连接指定的数据库，用户名密码和数据源名称(Data Source就是步骤一创建的数据源名称)根据实际环境填写

'Cnn.ConnectionString="Provider=OraOLEDB.Oracle.1;Persist Security Info=False;UserID=mibs;Password=mibs;Data Source=mibs71" ' oracle

Cnn.ConnectionString="Provider=MSDASQL.1;Password=db2inst1;Persist Security Info=True;User ID=db2inst1;Data Source=39_xbankred" ' db2

'创建打开数据库的函数

Function dbOpen()

Cnn.Open '打开数据库连接

If Cnn.State = 0 Then '判断数据库连接是否成功

Reporter.ReportEvent micFail,"testing", "连接数据库失败"

else

Reporter.ReportEvent micPass,"testing", "连接数据库成功"

End If

End Function

'创建关闭数据库的函数

Function dbClose()

Cnn.close

Set Cnn = nothing

End Function

'创建你要操作数据库的sql语句

Function dbDel()

If Cnn.State<>0 Then

del_quickcounter_approval = "deletefrom quickcounter_approval"

del_quicktrans_term = "delete fromquicktrans_term"

del_cashdrawer = "delete fromcashdrawer"

Cnn.execute del_quickcounter_approval

Cnn.execute del_quicktrans_term

Cnn.execute del_cashdrawer

End If

End Function