| 标题 | 在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 %> |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。