社区应用 最新帖子 精华区 社区服务 会员列表 统计排行 社区论坛任务 迷你宠物
  • 3446阅读
  • 0回复

asp下用OracleInProcServer完成对Oracle的连接和操作

级别: 经院博士
发帖
3975
铜板
4727
人品值
1147
贡献值
565
交易币
0
好评度
3833
信誉值
0
金币
0
所在楼道
学一楼
0 then 1G`5FU  
Response.Write 错误 : & err.description & *tZ3?X[b  
response.end #|769=1  
End if PNLlJlYlP  
End Sub /Tl ybSC1  
Sub EndDB() vQXF$/S  
Set objOraDB = Nothing 4ybOK~z  
Set objOraSession = Nothing Brg0:5H   
End Sub `$ bQ8$+Ci  
Function getTableList(str) i-0AcN./p  
Dim strSql,strTmp T06w`'aL  
Dim objRs ~:!& }e5  
strSql = Select at.table_name as tname,au.username as uname from all_tables at,all_users au Where au.username=at.owner order by au.username Vx0Hq`_14  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) -$s1k~o  
While Not objRs.Eof L}8 }Pns?&  
strA = objRs(uname) & . & objRs(tname) [uie]*^  
j }^?Snq  
If str=strA then rf$[8d  
strTmp = strTmp & & strA & jkuNafp}  
Else )tV]h#4  
strTmp = strTmp & & strA & $a\X(okx  
End if 0~<t :q!  
objRs.MoveNext .*FlB>1jy  
Wend FGwgSrXL7  
Set objRs = Nothing <0`"vPU  
getTableList = strTmp ~U?vB((j!  
End Function ,,9vk\  
% > \hzx?  
Pd  6  
n!b*GXb\  
$[=`*m  
?K}KSJ6_  
All Tables : JLyFk V/  
OK}8BY  
gJOswN;([  
)[sSCt]  
#@5 jOi  
() CA"`7<,  
&E k\  
4P24ySy9F  
WWTJ%Rd|  
Z[j-.,Qu  
;rF:$37^  
  then +fIy eX  
strSql = Select * from & tblname ~b4fk^u`+  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) v#IZSBvuQK  
Response.Write -H_7GVSnl  
for i=0 to rs.Fields.count-1 VxAR,a1+n  
  Response.Write & rs.fields(i).name & J Y> I  
next DNM~/Oo  
Response.Write uoBPi[nK  
While Not Rs.Eof ,%m$_wA$  
  Response.Write eP3 itrH(  
  for i=0 to rs.fields.count -1 :\1&5Pm]  
        Response.Write & Rs.Fields(i).Value &   9Bmgz =8  
  next }S&SL)  
  Response.Write       L/cbq*L  
  Rs.MoveNext %^ E>~  
Wend F{<r IR  
Set Rs = Nothing 2I39fZa  
end if Un[#zh<4  
  % > &jPsdv h  
gzdgnF2  
8|Y^z_C  
~yf5$~Z  
MN)<Tr2f  
转自: ASP教程采集
评价一下你浏览此帖子的感受

精彩

感动

搞笑

开心

愤怒

无聊

灌水
引用

引用
想找我?如果我即不在 石家庄经济学院论坛www.uebbs.net,也不在宿舍,那,我肯定是在去的路上

引用
描述
快速回复

您目前还是游客,请 登录注册
如果您提交过一次失败了,可以用”恢复数据”来恢复帖子内容
认证码:
验证问题:
3+5=?,请输入中文答案:八 正确答案:八