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

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

级别: 经院博士
发帖
3975
铜板
4727
人品值
1147
贡献值
565
交易币
0
好评度
3833
信誉值
0
金币
0
所在楼道
学一楼
0 then @KL&vm(F$  
Response.Write 错误 : & err.description & Bn]=T  
response.end E_=F' sP?  
End if $97O7j@  
End Sub /8e}c`  
Sub EndDB() cRf F!EV  
Set objOraDB = Nothing '{2]:  
Set objOraSession = Nothing S#M8}+ZD,  
End Sub ,)[9RgsE  
Function getTableList(str) b$DiDm  
Dim strSql,strTmp U&#` <R_0  
Dim objRs VP A+/5TW  
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 9\.0v{&v  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) eI:[o  
While Not objRs.Eof ? #rXc%F  
strA = objRs(uname) & . & objRs(tname) ,7j8+p|},  
G~5pMyOR  
If str=strA then |2l-s 1|y  
strTmp = strTmp & & strA & )oCL![^pXe  
Else q2E{o)9  
strTmp = strTmp & & strA & 3cghg._  
End if "6'",  
objRs.MoveNext f8lyH'z0 @  
Wend $Lj ]NtO  
Set objRs = Nothing 1]:,Xa+|S  
getTableList = strTmp {KHI(*r;  
End Function M3-lL;!n  
% > 2%WeB/)9  
&"%Ws{Qn]  
7=Muq]j2  
,}IcQu'O  
7_ix&oVI  
All Tables : u9@B&  
VF2,(f-*  
vSnVq>-q&  
 ~frsgHW  
I4N7wnBp  
() ?IAu,s*u  
|V\{U j  
jz<}9Kze  
dnLjcHFj&  
s-rc0:I  
}oZ8esZU2  
  then AF#: *<Ev  
strSql = Select * from & tblname ysOf=~ 1  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 4N,[Gs<7  
Response.Write gg#9I(pX  
for i=0 to rs.Fields.count-1 6HCg<_j]  
  Response.Write & rs.fields(i).name & q#3T L<  
next %J1'>nI!q  
Response.Write # QwX|x{  
While Not Rs.Eof GG>53} 7{  
  Response.Write ^)9/Wz _x  
  for i=0 to rs.fields.count -1 h/tCve3Z  
        Response.Write & Rs.Fields(i).Value &    G06;x   
  next nqH[ y0  
  Response.Write       [UXVL}t k  
  Rs.MoveNext 2B$dT=G  
Wend }SWfP5D@  
Set Rs = Nothing Sk53Lc  
end if bQ>wyA+G&E  
  % > %EU_OS(u.{  
G@DNV3Cc  
iqR6z\p&  
FBl,Mky  
 {8K  
转自: ASP教程采集
评价一下你浏览此帖子的感受

精彩

感动

搞笑

开心

愤怒

无聊

灌水
引用

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

引用
描述
快速回复

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