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

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

级别: 经院博士
发帖
3975
铜板
4727
人品值
1147
贡献值
565
交易币
0
好评度
3833
信誉值
0
金币
0
所在楼道
学一楼
0 then T?W`g> yM  
Response.Write 错误 : & err.description & @x">e][B  
response.end m'$]lf;*  
End if c+/SvRx^>  
End Sub ^$aj,*Aj~  
Sub EndDB() q<rB(j-(  
Set objOraDB = Nothing m!s/L,iJJ  
Set objOraSession = Nothing y; Up@.IG  
End Sub 83UIH0(  
Function getTableList(str) Exox&T  
Dim strSql,strTmp }"j7Qy)cs  
Dim objRs RYD V60*O6  
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 <qs>c<Vj  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) Kw}-<y  
While Not objRs.Eof <">tB"="b  
strA = objRs(uname) & . & objRs(tname) k9`Bi`wp  
S,LW/:,  
If str=strA then ,~t{Q*#_h  
strTmp = strTmp & & strA & yZbO{PMr  
Else bZk7)b;1o  
strTmp = strTmp & & strA & Dh0`t@  
End if |s :b9sfA  
objRs.MoveNext [ "}0umt  
Wend Wa%Zt*7  
Set objRs = Nothing "gXz{$q  
getTableList = strTmp zp>q$e40  
End Function zFh JLH*C  
% > 4f<%<Z  
~qm<~T_0  
0"$Ui#r`  
:e:jILQ[  
4A:@+n%3m  
All Tables : QT/TZ:  
|:n4t6  
GcQO&oq|  
+Gi~VW.  
*4Cq,o`o>  
() ?fDF Rms  
Z[ }0K3,5  
LD5n_W  
ZKyK#\v<  
$Ml/=\EHOg  
PA;RUe  
  then '/kSUvd  
strSql = Select * from & tblname /j!?qID  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) ,2vPmff  
Response.Write /u{ 9UR[g  
for i=0 to rs.Fields.count-1 MNOT<(  
  Response.Write & rs.fields(i).name & Rm 1obP  
next vRYQ4B4o  
Response.Write ^Humy DD6  
While Not Rs.Eof a9qB8/Gg[  
  Response.Write uBw1Xud[YI  
  for i=0 to rs.fields.count -1 =]yJvn"  
        Response.Write & Rs.Fields(i).Value &   Q4r)TR,  
  next e!b?SmNN  
  Response.Write       1SeDrzLA  
  Rs.MoveNext &*RJh'o|N(  
Wend -XIjol(  
Set Rs = Nothing a02;Zl  
end if sY!PXD0Q  
  % > ,Khhu%$  
Z3Os9X9p  
%>}6>nT#  
7%L%dyN  
>l{<p(  
转自: ASP教程采集
评价一下你浏览此帖子的感受

精彩

感动

搞笑

开心

愤怒

无聊

灌水
引用

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

引用
描述
快速回复

您目前还是游客,请 登录注册
温馨提示:欢迎交流讨论,请勿纯表情、纯引用!
认证码:
验证问题:
10+5=?,请输入中文答案:十五