想在不同aspx页面共用一个connection

Question

命名空间相同和不相同的做法分别是怎样？

Answer 1

做一个页面的基类connaction 放在里面

Answer 2

页面的基类是不是也是aspx的文件，继承它阿？

Answer 3

在web.config <configuration>下句加入
  
 <appSettings>
    <add key="SQL_CONNECT" value="server=;uid=;pwd=;database=abc"/>
</appSettings>然后自建一个类Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration.ConfigurationSettings
Namespace Flow_Foun    Public Class Db_Handle        '// Execute Sql Command 
        Public SqlConn As SqlConnection
        Function DbOpen() As Boolean
            Dim chaDbConnStr As String = AppSettings("SQL_CONNECT")
            SqlConn = New SqlConnection(chaDbConnStr)
            Try
                SqlConn.Open()
            Catch ex As Exception
                Return False
            End Try
        End Function        Function DbClose() As Boolean
            Try
                SqlConn.Close()
                SqlConn = Nothing
            Catch ex As Exception
                Return False
            End Try
        End Function        Function DbExecuteCmd(ByVal I_chaSql As String)
            On Error Resume Next
            Dim chaSql As String = I_chaSql
            Dim SqlCmd As New SqlCommand(chaSql, SqlConn)
            SqlCmd.ExecuteNonQuery()
            SqlCmd = Nothing
        End Function        ' // Create Data Reader Object            Function DbCreateDataReader(ByVal I_chaSql As String) As SqlDataReader
            On Error GoTo err
            Dim chaSql As String = I_chaSql
            Dim sqlreader As SqlDataReader
            DbClose()
            DbOpen()
            Dim SqlCmd As New SqlCommand(chaSql, SqlConn)
            'Dim SqlDr As SqlDataReader()
            ' DbCreateDataReader = SqlCmd.ExecuteReader()
            sqlreader = SqlCmd.ExecuteReader(CommandBehavior.CloseConnection)
            SqlCmd = Nothing
            Return sqlreadererr:
        End Function        ' // Create Data Table Object
        Function DbCreateDataTable(ByVal I_chaSql As String, ByVal I_TableName As String) As DataTable
            On Error GoTo err
            Dim chaSql As String = I_chaSql
            Dim chaTableName As String = I_TableName
            Dim SqlDs As DataSet = New DataSet
            Dim SqlAdp As New SqlDataAdapter(chaSql, SqlConn)
            SqlAdp.Fill(SqlDs, chaTableName)
            Return SqlDs.Tables(chaTableName)err:
        End Function        ' // Create Data Set Object
        Function DbCreateDataSet(ByVal I_chaSql As String, ByVal I_DataSetName As String) As DataSet
            On Error GoTo err
            Dim chaSql As String = I_chaSql
            Dim chaTableSet As String = I_DataSetName
            Dim SqlDs As DataSet = New DataSet
            Dim SqlAdp As New SqlDataAdapter(chaSql, SqlConn)            SqlAdp.Fill(SqlDs, chaTableSet)
            Return SqlDs
err:        End Function        '//Create Data Reader Object
        Function DbReturnString(ByVal I_chaSql As String, ByVal colname As String) As String
            On Error GoTo err
            Dim chaSql As String = I_chaSql
            Dim str As String
            Dim sqlreader As SqlDataReader
            DbClose()
            DbOpen()
            Dim SqlCmd As New SqlCommand(chaSql, SqlConn)
            sqlreader = SqlCmd.ExecuteReader(CommandBehavior.CloseConnection)
            If sqlreader.Read Then
                str = sqlreader.Item(colname)
            Else
                str = ""
            End If
            Return str
err:
            str = "ERROR"
        End Function    End ClassEnd Namespace
在每个页面中加入
Imports 项目名.Flow_Foun

Answer 4

建议用session,在一个页面建立连接后用session装箱保存起来，再在要用的页面拆箱取值