最近在学习QTP对ORACLE的表数据操作,虽然数据关联还有一点技术问题,但对QTP的兴趣有增无减,切除一段代码,请大家指正
QTP连接oracle
'====代===码===开===始=============
Dim Cnn
Set Cnn = CreateObject("ADODB.Connection")
Cnn.ConnectionString="Provider=提供者.1;Password=密码;User ID=用户名;Data Source=服务器"
Cnn.Open
If Cnn.State = 0 Then
Reporter.ReportEvent micFail, "testing", "连接数据库失败"
msgbox ("连接数据库失败")
else
Reporter.ReportEvent micPass, "testing", "连接数据库成功"
msgbox ("连接数据库成功")
End if
Dim Rst ,a'定义变量
Dim strCnn'定义变量
Source=ECIF_10.196.40.17;Persist Security Info=True"'将获得的连接字符串赋值到strCnn
Set Rst=CreateObject("ADODB.Recordset")'生成记录集对象
Rst.Open "select party_name from tb1010",Cnn,3,3'书写SQL语句
For j=1 to 10
a=Rst("party_name").value '获取字段party_name 的值赋给了变量a
If datatable("importdata","Action1")=" " Then
datatable.setcurrentrow(1)
datatable.value("importdata","Action1")=a
else
DataTable.SetNextRow
Rst.MoveNext
datatable.value("importdata","Action1")=a
End If
msgbox a,,"oracle输出"
Next
msgbox a,,"oracle输出"
'====代===码===结===束=============