Beholde databaseforbindelse ved server.transfer kommando
Jeg har en login side hvor jeg tester om brugeren kan logge på en given database:Sub LoginBtn_Click(Sender As Object, E As EventArgs)
If Page.IsValid Then
Dim strConnection as String = "user id= '" & txtbrugernavn.Text & "';"
strConnection += "password= '" & txtpassword.Text & "';"
strConnection += "database= '" & drpdatabasevalg.SelectedItem.Value & "';"
strConnection += "server=FF07;"
Dim myConn as New SqlConnection(strConnection)
Session("Databasevalg")= drpdatabasevalg.SelectedItem.Value
Try
'Database forbindelse
myConn.Open()
Server.Transfer("Default.aspx")
Catch
Msg.Text = "Brugernavn eller password er ugyldigt, eller du har ikke de krævede rettigheder - prøv igen!"
End Try
End If
End Sub
Herefter kommer brugeren til default siden, og her vil jeg gerne kunne køre en stored procedure uden først at skulle åbne databaseforbindelsen igen, hvordan gør jeg lige det, jeg vil gerne at forbindelsen er åben under hele sessionen.
Private Sub Page_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
lbldatabasevalg.text = Session("Databasevalg").ToString()
If Not Page.IsPostBack Then
'Her skal databseforbindelsen myConn være åben
Dim strSQL As String = "SP_databaseoversigt"
Dim objCommand As New SqlCommand(strSQL, myConn)
dgDatabaseoversigt.DataSource = objCommand.ExecuteReader()
dgDatabaseoversigt.DataBind()
myConn.Close()
End if
End Sub
