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

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

级别: 经院博士
发帖
3975
铜板
4727
人品值
1147
贡献值
565
交易币
0
好评度
3833
信誉值
0
金币
0
所在楼道
学一楼
0 then ,6t0w|@-k  
Response.Write 错误 : & err.description & #S<>+,Lk  
response.end _9n.ir5YX  
End if u x:,io  
End Sub :Hd?0eZ|  
Sub EndDB() CWBsiL f  
Set objOraDB = Nothing ,}{E+e5jh7  
Set objOraSession = Nothing ?'T>/<(  
End Sub $Fr2oSTT)  
Function getTableList(str) M8juab%y  
Dim strSql,strTmp rcI(6P<*  
Dim objRs ;uoH+`pf  
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 Eq.c;3  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 1Za\T?V  
While Not objRs.Eof I">z#@CT  
strA = objRs(uname) & . & objRs(tname) AO']Kmm  
5yA^n6  
If str=strA then #{h4lte  
strTmp = strTmp & & strA & EiJSLL  
Else !]kn=7  
strTmp = strTmp & & strA & 6bb=;  
End if VKN^gz  
objRs.MoveNext K03a@:  
Wend ~]"}s(J;  
Set objRs = Nothing Q;5\( 0w5  
getTableList = strTmp HwU \[f  
End Function *3 9sh[*}  
% > t4gD*j6J3  
(5yg\3Jvp  
%{}Jr`  
3tr?-l[N\  
$ng\qJ"HF  
All Tables : #h r!7Kc;N  
U Ciq'^,  
1]hMA\x  
'|FM|0~-J  
c7iu[vE'+  
() J=\Y4- "  
E0)v;yRcw  
;OdUH   
'kh%^_FH7  
8|d[45*q  
4yBe(&N-d  
  then Qy6Avw/$  
strSql = Select * from & tblname ,%KB\;1mn'  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) ( j-(fS  
Response.Write >Mvt;'c  
for i=0 to rs.Fields.count-1 tS!~> X  
  Response.Write & rs.fields(i).name & gcv,]v 8  
next N}dJ)<(2~  
Response.Write pg>P]a{  
While Not Rs.Eof "V9!srIC  
  Response.Write RisrU  
  for i=0 to rs.fields.count -1 !o.g2  
        Response.Write & Rs.Fields(i).Value &   Tl=vgs1  
  next 2}}~\C}o+  
  Response.Write       U3za}3  
  Rs.MoveNext RsV<*s  
Wend t8P>s})[4  
Set Rs = Nothing 55!9U:{  
end if ^ MddfBwk  
  % > @8CD@SDv  
;<MaCtDt  
(O<lVz@8  
ikxSWO_Y=  
hG ]jm  
转自: ASP教程采集
评价一下你浏览此帖子的感受

精彩

感动

搞笑

开心

愤怒

无聊

灌水
引用

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

引用
描述
快速回复

您目前还是游客,请 登录注册
如果您在写长篇帖子又不马上发表,建议存为草稿
认证码:
验证问题:
10+5=?,请输入中文答案:十五