| 标题 | 在ASP中通过oo4o连接Oracle数据库的例子 |
| 范文 | 下面这段代码能够显示，当前用户所能够看到的所有的用户和表，有兴趣的， 可以把每个表的内容加上 <% 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 "错误 ：" & err.description & "" 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 & " " Else strTmp = strTmp & "" End if objRs.MoveNext Wend Set objRs = Nothing getTableList = strTmp End Function %> |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。