VB操作Oracle数据库

最新推荐文章于 2021-10-10 22:21:06 发布

海之旋律

最新推荐文章于 2021-10-10 22:21:06 发布

阅读量461

点赞数

分类专栏： qtp vb 文章标签： vb qtp

本文链接：https://blog.csdn.net/ktc7000/article/details/84384578

版权

qtp 同时被 2 个专栏收录

17 篇文章 0 订阅

订阅专栏

5 篇文章 0 订阅

订阅专栏

Dim num,ora
ora="ora"
set con=createobject("adodb.connection")
'con.open "DRIVER={Microsoft ODBC for Oracle};Server=10.137.86.120;Uid=JXCS0115;Pwd=JXCS0115"
con.open "DSN=ora120;UID=JXCS0115;PWD=JXCS0115;DBQ=120 ;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=O;"
set record=createobject("adodb.recordset")
sql="select * from service"
record.open sql,con
Do
if(record("list")="0")then'//查找表格list列中有多少0
num=num+1
end if
record.movenext
loop until record.eof=true

record.close
set record=nothing
con.close
set con=nothing
msgbox num