业精于勤荒于嬉,行成于思毁于随。

QTP 中链接 Oracle

上一篇 / 下一篇  2008-12-01 16:51:23 / 个人分类:开发相关

源码如下:

 

Dim Cnn
Dim Rst
Dim strCnn
strCnn="Provider=OraOLEDB.Oracle.1;Data Source=QA.EasyTms;Password=easycargo;User ID=easycargo;Persist Security Info=True;"

Set Cnn = CreateObject("ADODB.Connection")
Cnn.Open strCnn
Set Rst =CreateObject("ADODB.Recordset")
Rst.open "delete  from client_base_complex where G_NAME = '999999999'", Cnn

msgbox Rst("G_ID").value

Rst.close

Cnn.close

 


TAG: 开发相关

相信自己! 引用 删除 shiker2003   /   2008-12-01 16:58:27
close处运行有问题,不知怎么回事,请指教
 

评分:0

我来说两句

Open Toolbar