keyword:QTPQuickTestProfessionaloracle10g数据库连接
以下VBS代码
Dim conn'定义数据库连接对象
Dim str'定义数据库连接字符串
Set conn=CreateObject("ADODB.Connection")
str="Provider=MSDAORA.1;Data Source=ORCL;Password=123456;User ID=zxf;Persist Security Info=True"
conn.Open str
'以上为连接数据库
If conn.State=0 Then
reporter.ReportEvent micFail,"oracle数据库连接测试","失败"
else
reporter.ReportEvent micPass,"oracle数据库连接测试","通过"
End If
conn.Close
详解：本例以windows操作系统为例
1.首先安装oracle10g
2.安装完成后，建立一个普通oracle用户
3.配置本地数据源ODBC,注意TNS的配置
4.str连接字符串解释：Provider数据提供者，QTP中只能使用 MSDAORA.1，其他都将报错“程序未安装”。Data Sourse要求设置为TNS名。
-------------------------------------------------我是不同内容的分割线-------------------------------------------
对oracle进行数据操作，取出一个字段值与预期字段值比较以达到测试目的
Dim conn'定义数据库连接对象
Dim str'定义数据库连接字符串
Dimsql'定义数据查询字符串
Dim rt'定义数据库查询结果集对象
Dim result'定义数据库字段实际值
Set conn=CreateObject("ADODB.Connection")
str="Provider=MSDAORA.1;Data Source=ORCL;Password=123456;User ID=zxf;Persist Security Info=True"
conn.open str
'以上为连接数据库
Set rt=CreateObject("ADODB.Recordset")
sql="select id fromTest"
rt.open sql,str,1,3
result=rt("id")
'以上为获取结果集中id字段的值，说明：Test表中只有一条记录
If result!=“01” Then
reporter.ReportEvent micFail,"oracle数据库检查点测试","失败"
else
reporter.ReportEvent micPass,"oracle数据库检查点测试","通过"
End If
'以上为将数据库中实际字段的值与预期值“01”比较
conn.Close
---------------------------------------------其他数据库连接字符串------------------------------------------------
mysql：server为服务器地址，database是数据库名
"DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=test;USER=tester;password=3652359;Option=3"
sqlserver:Data Source是服务器地址，Database是数据库名
"Provider=SQLOLEDB.1;User ID=sa;password=sa;Data Source=localhost;DATABASE=Student"
