VB操作Oracle数据库

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

评论

3 楼 ktc7000 2013-03-21  

DataSource=DataTable("DataSource",dtGlobalSheet)
OraUser=DataTable("OraUser",dtGlobalSheet)
OraPWD=DataTable("OraPWD",dtGlobalSheet)
TNSName=DataTable("TNSName",dtGlobalSheet)
LOGINACCOUNTID=DataTable("LOGINACCOUNTID",dtGlobalSheet)
LOGINTIME=DataTable("LOGINTIME",dtGlobalSheet)

set con=createobject("adodb.connection")
con.open "DSN="+DataSource+";UID="+OraUser+";PWD="+OraPWD+";DBQ="+TNSName+";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")
'查询Login状态是否存在语句
sql_que="SELECT LS.LOGINACCOUNT LOG_ACC,LS.* FROM LOGINSTAT LS WHERE LS.LOGINACCOUNTID = "+Chr(39)+LOGINACCOUNTID+chr(39)+" AND LS.LOGINTIME LIKE "+Chr(39)+LOGINTIME+"%"+Chr(39)+" ORDER BY ID DESC ;"

'查询Login状态是否存在
record.open sql_que,con
if ( record.eof=true ) then
que_flag=0
end if
do
if (record.eof<>true) then
if  (record("LOG_ACC")<>"") then   '统计库中记录条数
   que_flag=1:num=num+1:record.movenext
end if
end if
loop until record.eof=true
record.close

'关闭连接
con.close
set record=nothing
set con=nothing

2 楼 ktc7000 2013-01-24  

if ( record("data")<>"" ) then
   ......
end if
用来判断不为空时执行语句

运算符
求幂 ^
负号 -
乘 *
除 /
整除 \
求余 Mod
加 +
减 -
字符串连接 &
等于 =
不等于 <>
小于 <
大于 >
小于等于 <=
大于等于 >=
对象引用比较 Is
逻辑非 Not
逻辑与 And
逻辑或 Or
逻辑异或 Xor
逻辑等价 Eqv
逻辑隐含 Imp

算术运算符  
^ 运算符
* 运算符
/ 运算符
\ 运算符
Mod 运算符
+ 运算符
- 运算符

连接运算符
& 运算符
+ 运算符
Asc函数

转换函数
CBool函数
CByte函数
CCur函数
CDate函数
CDec函数
CDbl函数
Chr 函数
CInt 函数
CLng 函数
CSng 函数
CStr 函数
CVar 函数
CVErr 函数
Format 函数
Hex 函数
Oct 函数
Str 函数
Val 函数

数学函数
Abs 函数
Atn 函数
Cos 函数
Exp 函数
Fix 函数
Int 函数
Log 函数
Rnd 函数
Sgn 函数
Sin 函数
Sqr 函数
Tan 函数

逻辑运算符
And 运算符
Eqv 运算符
Imp 运算符
Not 运算符
Or 运算符
Xor 运算符

1 楼 ktc7000 2013-01-24  

record.open sql,con
Do
If ( record.eof=true ) then
msgbox "未在数据库中找到指定数据"+vbcr+vbcr+">>>>>>>>>>>>>>> "+"请点击确定继续"+" >>>>>>>>>>>>>>"
elseif  (record("data")="0") then'//查找入库的数据数量
num=num+1:record.movenext
end if
loop until record.eof=true
record.close
set record=nothing
con.close
set con=nothing