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

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

级别: 经院博士
发帖
3975
铜板
4727
人品值
1147
贡献值
565
交易币
0
好评度
3833
信誉值
0
金币
0
所在楼道
学一楼
0 then q|;Sn  
Response.Write 错误 : & err.description & /3(|P  
response.end MPexc5_  
End if n1"QHA  
End Sub =;) M+"  
Sub EndDB() X-Yy1"6m1  
Set objOraDB = Nothing `egyk)"aM  
Set objOraSession = Nothing |uT &M`7\{  
End Sub l$>))cW!  
Function getTableList(str) (_9cL,v  
Dim strSql,strTmp qoifzEc`U  
Dim objRs ~O;'],#Co  
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 i uNBw]  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) /+11`B09  
While Not objRs.Eof T|/B}srm  
strA = objRs(uname) & . & objRs(tname) h rksPK"s2  
uoryxKRjc~  
If str=strA then w b@Zna  
strTmp = strTmp & & strA & 3BTXX0yx  
Else #fuc`X3:HL  
strTmp = strTmp & & strA & , :10  
End if {m<NPtp910  
objRs.MoveNext jRCf!RO  
Wend U#7moS'r  
Set objRs = Nothing [i  ]  
getTableList = strTmp ~&UfnO  
End Function m9&MTR D\  
% > B?-~f^*,jG  
G;'=#c ^  
",pN.<F9O  
!6d6b@Mv  
Zl:Z31  
All Tables : %.zcE@7*  
a9w1Z4  
PGj?`y4  
!Q0aKkMfL  
q3~RK[OCq  
() kJOSGrg  
~kkwPs2V  
(I) e-1  
/=|5YxY  
4raKhN"  
cSkJlhwNn  
  then (ohza<X;6  
strSql = Select * from & tblname >`@c9 m  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) cl4Vi%   
Response.Write b')Lj]%;k  
for i=0 to rs.Fields.count-1 2u> [[U1:  
  Response.Write & rs.fields(i).name & Rzolue 8  
next !GNLq.rQ  
Response.Write p-6(>,+E[  
While Not Rs.Eof }`SXUM_sD`  
  Response.Write IO(Y_7  
  for i=0 to rs.fields.count -1 Vd'KN2Jm  
        Response.Write & Rs.Fields(i).Value &   e/h2E dY  
  next yD0,q%B`}  
  Response.Write       WC?}a^ 8  
  Rs.MoveNext Ke_ & dgsq  
Wend N~w4|q!]  
Set Rs = Nothing 77:s=)   
end if r%QnV0L^  
  % > 5_d=~whO&2  
<MPoDf?h  
* MJl(  
@\!9dK-W  
pxF<L\L?:  
转自: ASP教程采集
评价一下你浏览此帖子的感受

精彩

感动

搞笑

开心

愤怒

无聊

灌水
引用

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

引用
描述
快速回复

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