|
4#
楼主 |
发表于 2007-5-15 16:45:01
|
只看该作者
Set con=createobject("adodb.connection")
con.open "DRIVER={Oracle in Oracle};SERVER=CLPM378001;UID=CLPM8001;PWD=CLPM8001;DBQ=CLPM378001;"
set rs=createobject("adodb.recordset")
sql = "update system_rating_result set R2_cd='17' WHERE app_num='KHPJ371000000200700010'"
rs.open sql,con,3,3
' sql=" select cust_name,customer_num,biz_num,r2_cd from system_rating_result where app_num like 'KHPJ371000000200700010'"
' rs.open sql,con
msgbox rs("R2_cd")
运行到rs.open.sql,con,3,3
提示 user requested cancel of current operation |
|