我在Web.config设置了
<add key="OracleConnection.ConnectionString" value="Provider=OraOLEDB.Oracle;Persist Security Info=true;User ID=bmpj;password=bmpj;Data Source=hnfs9"/>Global.asax类:
Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
' 在应用程序启动时激发
getOracleConnString() '得到Oracle数据库连接字符串
Application("strConnection") = StrDBConn
End Sub
Public Sub getOracleConnString()
StrDBConn = System.Configuration.ConfigurationSettings.AppSettings.GetValues("OracleConnection.ConnectionString").GetValue(0)
End Subvb类:
Imports System.Data
Imports System.Data.OleDb
Imports System.ExceptionPublic Class dbFun
Inherits System.Web.UI.Page Public StrDBConn As String
Private objDBConnect As OleDb.OleDbConnection
'得到连接oracle数据字符串过程
Public Sub getDBConnStr()
StrDBConn = System.Web.HttpContext.Current.Application("strConnection").ToString()
End Sub '判断登陆用户是否有效
Public Function getLoginInfo(ByVal userName As String, ByVal userPSW As String) As String
Dim strCommandText = "select * from bmpj_yhb"
objDBConnect = New OleDbConnection(StrDBConn)
Try
objDBConnect.Open()
Catch objError As Exception Return objError.Message + "| " + objError.Source().ToString() End Try
End FunctionEnd Class执行显示:拒绝访问。| Microsoft OLE DB Service Components 有高手能告诉我这是什么错误引起的吗?我该怎么修改?
<add key="OracleConnection.ConnectionString" value="Provider=OraOLEDB.Oracle;Persist Security Info=true;User ID=bmpj;password=bmpj;Data Source=hnfs9"/>Global.asax类:
Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
' 在应用程序启动时激发
getOracleConnString() '得到Oracle数据库连接字符串
Application("strConnection") = StrDBConn
End Sub
Public Sub getOracleConnString()
StrDBConn = System.Configuration.ConfigurationSettings.AppSettings.GetValues("OracleConnection.ConnectionString").GetValue(0)
End Subvb类:
Imports System.Data
Imports System.Data.OleDb
Imports System.ExceptionPublic Class dbFun
Inherits System.Web.UI.Page Public StrDBConn As String
Private objDBConnect As OleDb.OleDbConnection
'得到连接oracle数据字符串过程
Public Sub getDBConnStr()
StrDBConn = System.Web.HttpContext.Current.Application("strConnection").ToString()
End Sub '判断登陆用户是否有效
Public Function getLoginInfo(ByVal userName As String, ByVal userPSW As String) As String
Dim strCommandText = "select * from bmpj_yhb"
objDBConnect = New OleDbConnection(StrDBConn)
Try
objDBConnect.Open()
Catch objError As Exception Return objError.Message + "| " + objError.Source().ToString() End Try
End FunctionEnd Class执行显示:拒绝访问。| Microsoft OLE DB Service Components 有高手能告诉我这是什么错误引起的吗?我该怎么修改?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货