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

[raymond19840709]

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

[zhongwanli]

MARK

[fanghaifei]

做一个页面的基类

connaction 放在里面

[shrinerain]

楼上

[raymond19840709]

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

[raymond19840709]

具体应该怎样做？麻烦拉

[xwqjamky]

在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 sqlreader

err:
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 Class

End Namespace


在每个页面中加入
Imports 项目名.Flow_Foun

[xyzhuxiaobo]

可以自已做一个自定义控件
加入每个页面也就完了

[wangzk0206]

可以在web.config中设置

[yangfanchuhai]

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

[conan19771130]

Session就好了