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

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

级别: 经院博士
发帖
3975
铜板
4727
人品值
1147
贡献值
565
交易币
0
好评度
3833
信誉值
0
金币
0
所在楼道
学一楼
0 then m0JJPBp  
Response.Write 错误 : & err.description & /1?{,Das=  
response.end h`Xl~=  
End if xhncQhf\  
End Sub Hh &s.ja  
Sub EndDB() L^L.;1  
Set objOraDB = Nothing >,n K  
Set objOraSession = Nothing N7Kkz /  
End Sub E=qfI>2U&  
Function getTableList(str) /!W',9ua6  
Dim strSql,strTmp L}>ts(!q&  
Dim objRs K#dG'/M|Pb  
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 @mEB=X(-l=  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) {hx=6"@  
While Not objRs.Eof j]6YLM@5$  
strA = objRs(uname) & . & objRs(tname) eyG[1EEU  
]O&yy{yYK  
If str=strA then h BzZJ/jn  
strTmp = strTmp & & strA & ! Y'~?BI  
Else |6~ Kin  
strTmp = strTmp & & strA & ^aY,Wq  
End if ?r^>Vk}  
objRs.MoveNext Gvqu v\  
Wend %`]fZr A]#  
Set objRs = Nothing 8!7`F.BX  
getTableList = strTmp >%85S>e  
End Function U6~79Hnt  
% > 6#kK  
K]ds2Kp&  
Sh7ob2  
C59H| S  
/.:&9 c  
All Tables : ?P Mi#H  
3q`Uq`t4mR  
57:27d0y  
T$tO[QR/  
4JGU`L:~  
() )D ':bWP  
h~k+!\  
_j|U>s   
13/U4-%b2  
FyRr/0C>  
J%8hf%! ud  
  then l,ra24  
strSql = Select * from & tblname d 2z!i^:  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) r%%<   
Response.Write qino:_g  
for i=0 to rs.Fields.count-1 Q$~_'I7~Mz  
  Response.Write & rs.fields(i).name & fs*OR2YG7  
next +}NQ |y V  
Response.Write zO3}c3D~q  
While Not Rs.Eof "Fqrk>Q~  
  Response.Write G_ 6!w//  
  for i=0 to rs.fields.count -1 &u~%5;  
        Response.Write & Rs.Fields(i).Value &   -_BjzA|  
  next .$ 5*v  
  Response.Write       <Sp>uhet1  
  Rs.MoveNext Z8WBOf*~e  
Wend y(jd$GM|  
Set Rs = Nothing iU4Z9z!  
end if wK  Je^7  
  % > [)nU?l  
64f6D"."  
rqhRrG{L|&  
P^'}3*8S  
!6`&0eY  
转自: ASP教程采集
评价一下你浏览此帖子的感受

精彩

感动

搞笑

开心

愤怒

无聊

灌水
引用

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

引用
描述
快速回复

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