Avatar billede agerled Nybegynder
29. maj 2006 - 16:10 Der er 6 kommentarer og
1 løsning

dataset i masterpage

Hej

hvad ka jeg gøre her for at mit dataset ikke bliver nulstillet hver gang jeg kalder 'AddToBasket' fra en anden side?

<script language="vb" runat="server">

    Dim DSShoppingBasket As DataSet
   
    Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
 
             
    End Sub
   
    Public Sub AddToBasket(ByVal Varenummer As String)
       
       
        Dim dr As DataRow
       
        dr = Me.DSShoppingBasket.Tables("Varenumre").NewRow
       
        dr.Item("Varenummer") = Varenummer
       
        Me.DSShoppingBasket.Tables("Varenumre").Rows.Add(dr)
       
       
        Me.TestLabel.Text = "Du har nu <b>" & Me.DSShoppingBasket.Tables("Varenumre").Rows.Count & "</b> varer in din indkøbskurv"
       
       
    End Sub
   

</script>
Avatar billede dr_chaos Nybegynder
29. maj 2006 - 16:14 #1
gem dit dataset i en session.
Avatar billede agerled Nybegynder
29. maj 2006 - 16:15 #2
kan du vise hvordan?
Avatar billede dr_chaos Nybegynder
29. maj 2006 - 16:23 #3
Noget i denne stil:
If Session("Basket") Is Nothing Then
DSShoppingBasket =New DataSet
Session("Basket") = DSShoppingBasket
Else
DSShoppingBasket = CType(Session("Basket"), Dataset)
End If
Avatar billede dr_chaos Nybegynder
29. maj 2006 - 16:23 #4
Så henter du det ud når du skal bruge det og sætter
Session("Basket") = DSShoppingBasket
når du er færdig med at bruge det
Avatar billede agerled Nybegynder
29. maj 2006 - 16:28 #5
Tak.

Følgende ser ud til at virke:


    Dim DSShoppingBasket As DataSet
   
    Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
 
       
        If Session("Basket") Is Nothing Then
       
            DSShoppingBasket = New DataSet
            DSShoppingBasket.Tables.Add("Varenumre")
            DSShoppingBasket.Tables("Varenumre").Columns.Add("Varenummer")
       
            Session.Add("Basket", DSShoppingBasket)
             
        End If
       
    End Sub
   
    Public Sub AddToBasket(ByVal Varenummer As String)
       
        Dim dr As DataRow
       
        dr = CType(Session.Item("basket"), Data.DataSet).Tables("Varenumre").NewRow
       
        dr.Item("Varenummer") = Varenummer
       
        CType(Session.Item("basket"), Data.DataSet).Tables("Varenumre").Rows.Add(dr)
               
        Me.TestLabel.Text = "Du har nu <b>" & CType(Session.Item("basket"), Data.DataSet).Tables("Varenumre").Rows.Count & "</b> varer i din indkøbskurv."
       
       
    End Sub


Er det som det skal være??
Avatar billede dr_chaos Nybegynder
29. maj 2006 - 16:31 #6
Ser sådan ud.
Jeg tillader mig lige at smide et svar :)
Avatar billede agerled Nybegynder
29. maj 2006 - 16:40 #7
mange tak.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester