vbscript ADO访问oracle 数据库的问题

蓝精灵 · 发表于 2010-9-30 17:50:52

dim DBConn
Set DBConn = CreateObject("ADODB.Connection")
DBConn.open "Provider=MSDAORA.Oracle;Data Source=ora9;user id=system;password=oracle"
dim Rst
Set Rst=DbConn.executesql("select count(TELNO1) from TB_PROJECT_CRC where TELNO1='12345678'")
if rst.fields(0)>0 then
msgbox "找到数据"
else
msgbox "没有数据"
end if

以上代码用VBS测试出现参数不正确,或不在范围之内,或与其他参数想冲突!
大虾!为什么?

炸酱面 · 发表于 2010-9-30 17:51:31

Set conn=Server.CreateObject("ADODB.CONNECTION")
HJSTRCONN="Provider=MSDAORA;Data Source=ora9;User ID=system;Password=oracle"
conn.Open DbConn
Set Rst=DbConn.executesql("select count(TELNO1) as tj from TB_PROJECT_CRC where TELNO1='12345678'")
Response.Write(Rst("tj"))

如果你是否有数据就要修改为这样
Set conn=Server.CreateObject("ADODB.CONNECTION")
HJSTRCONN="Provider=MSDAORA;Data Source=ora9;User ID=system;Password=oracle"
conn.Open DbConn
Set Rst=DbConn.executesql("select * from TB_PROJECT_CRC where TELNO1='12345678'")
If Not Rst.Eof Then
Response.Write("有数据")
Else
Response.Write("无数据")
End If