程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> ASP技巧 >> 在ASP中通過oo4o連接Oracle數據庫的例子

在ASP中通過oo4o連接Oracle數據庫的例子

編輯:ASP技巧

下面這段代碼能夠顯示,當前用戶所能夠看到的所有的用戶和表,有興趣的, 可以把每個表的內容加上

<%
Dim objOrasession,objOraDb
Dim strDbUser,strDbPwd,strDbConn
Call ConnectDB()
Sub ConnectDB()
 '連接數據庫
 On Error Resume Next
 strDbUser  = "tmpUser"     '連接用戶名
 strDbPwd  = "rt45ps1w"    '用戶密碼
 strDbConn = "sun450"       '連接字符串
 Set objOraSession  = Server.CreateObject("OracleInPRocServer.XOraSession")
 Set objOraDB        = objOraSession.OpenDatabase(strDbConn,strDbUser & "/" & strDbPwd,0)
 If Err.Number>0 then
  Response.Write "<font color=red>錯誤 :" & err.description & "</font>"
  response.end
 End if
End Sub
Sub EndDB()
 Set objOraDB       = Nothing
 Set objOraSession = Nothing
End Sub
Function getTableList(str)
 Dim strSql,strTmp
 Dim objRs
  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"
  Set objRs = objOraDb.DbCreateDynaset(strSql,0)
  While  Not objRs.Eof
   strA = objRs("uname") & "." & objRs("tname")
   If str=strA then
    strTmp = strTmp & "<option selected>" & strA & "</option>"
   Else
    strTmp = strTmp & "<option>" & strA & "</option>"
   End if
   objRs.MoveNext
  Wend
 Set objRs = Nothing
 getTableList = strTmp
End Function
%>
<form name=form1 action="index.ASP" method=POST target="main">
<table width="100%" border=0 align="center">
<tr><td>
All Tables : <select name="tb">
<%=getTableList(tblName)%>
</select>
<input type=hidden name="submitc" value="vIEw">
<input type=submit name="submit" value="VIEw Data">  <font color=red>(<%=strDbUser & "/" & strDbPwd & "@" & strDbConn%>)</font>
</td></tr>
</table>
</form>

 

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved