QTP操作Oracle操作

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输出"

'====代===码===结===束=============