QTP访问oracle10g数据库的方法

/m'~;l QKkM_0通过在网上学习各位高手的资料，自己也依葫芦画瓢的写了一个。51Testing软件测试网.i(k:Hd7Y&a's

6F6X4]x+H0set conn=CreateObject("ADODB.Connection")

conn.ConnectionString="provider=OraOLEDB.Oracle.1;Data Source=sitdb2;User ID=dms_adm;Password=oracleabcd;Persist Security Info=True"   '恩 连接字符串,真是麻烦的东东
2E:vGJT3k'bB_0conn.open  
kRc;w%b;`,h%m0if conn.State = 0 Then51Testing软件测试网6?Sc[ZND?0g
     Reporter.ReportEvent micFail, "testing", "连接数据库失败"51Testing软件测试网"U ApMA"qc]
else51Testing软件测试网I)U6Fnn(E
     Reporter.ReportEvent micPass, "testing",   "连接数据库成功"51Testing软件测试网\9R*l,E0rM
end if
N!i4a5k7E"fb0set rs=CreateObject("ADODB.recordset")51Testing软件测试网;bt%t"@P2Y
rs.Open "select begdocno from ids_card", conn
4G9L^\H1Fs k B0Do until    rs.EOF   '查询所有记录
$k:_R5K!l0for each x in rs.fields
$ezNiz-g,w3i*d0print  (x.name&"="&x.value)
7v ]!{.kaj H s@?r0next51Testing软件测试网bb d4aSQ
rs.MoveNext  '指向下一条记录51Testing软件测试网o:h~ R3]!y3_YB/I
b
loop51Testing软件测试网n"@&d.a]k'\u