Problem med visning af data

Du lukker aldrig din connection, prøv at sende følgende parameter til ExecuteReader:

CommandBehavior.CloseConnection

Altså sådan her:
sql.ExecuteReader(CommandBehavior.CloseConnection)

Eller evt. blot fyre en Conn.Close() af.

Det hjælper jo ikke? Jeg kan naturligvis ikke lukke min connection før al kode er udført, og jeg skal vel ikke gentagne gange lukke og åbne connection? Der må da være en måde at have flere datareaders i gang på samme tid?

Du kan få flere datareaders igang ved at lave flere connections - en connection kan kun have med en datareader at gøre.

Når det er sagt så jo, man bør faktisk kalder close på connection objekter hver gang man er færdig med det og så åbne det igen når det skal bruges igen. Connection bliver ikke rigtigt lukket, men returneres til connection pool (hvorved en anden kan bruge den) og der er derfor ikke performance tab.

- sunedh

Det lyder jo fornuftigt nok, men jeg er egentligt stødt ind i endnu et problem mht denne funktion, det er nok lettest hvis lige jeg poster min kode:


<%@Import Namespace="System.Data"%>

<!--#Include File="../../includes/conn.aspx"-->

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

    Sub MakeSubs(SubID As Integer)
        Dim sqlSub As SqlCommand = New SqlCommand("SELECT * FROM [tblMenu] WHERE [SubID] = " & SubID, Conn)
        Dim rsSub As SqlDataReader = sqlSub.ExecuteReader()
       
        Do While rsSub.Read
            Response.Write("<b>" & rsSub("Title") & "</b>")
        Loop
    End Sub

</script>


<table border="0" cellpadding="0" cellspacing="0" height="490">
    <tr>
        <td style="border-bottom: 2px solid #000000" valign="top">
            <br>
           
            <%
                Dim sql As SqlCommand = New SqlCommand("SELECT * FROM [tblMenu] WHERE [SubID] = 0", Conn)
                Dim rs As SqlDataReader = sql.ExecuteReader()
               
                Do While rs.Read
                    Response.Write("<img src='images/menu/" & rs("Image") & "' width='130' height='35'><br><br>")
                    MakeSubs(rs("MenuID"))
                Loop
            %>
           
        </td>
    </tr>
</table>

<!--#Include File="../../includes/connend.aspx"-->



Hvis bare jeg kører denne kode, beklager MakeSubs funktionen sig over at Conn ikke er blevet erklæret, mit andet loop kører fint. Så har jeg prøvet at medsende Conn som et objekt, og så er det den siger at jeg kun kan have een datareader, skal jeg så lukke og åbne conn her, eller hvorledes gøres det?

Jeg skal nok give lidt flere point hvis du/i gider hjælpe en n00b lidt på vej :)

Mvh Mark

Sådan her:

<%@Import Namespace="System.Data"%>

<!--#Include File="../../includes/conn.aspx"-->

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

    Sub MakeSubs(SubID As Integer)
        Dim sqlSub As SqlCommand = New SqlCommand("SELECT * FROM [tblMenu] WHERE [SubID] = " & SubID, Conn)
        Dim rsSub As SqlDataReader = sqlSub.ExecuteReader(CommandBehavior.CloseConnection)
       
        Do While rsSub.Read
            Response.Write("<b>" & rsSub("Title") & "</b>")
        Loop
    End Sub

</script>


<table border="0" cellpadding="0" cellspacing="0" height="490">
    <tr>
        <td style="border-bottom: 2px solid #000000" valign="top">
            <br>
           
            <%
                Dim sql As SqlCommand = New SqlCommand("SELECT * FROM [tblMenu] WHERE [SubID] = 0", Conn)
                Dim rs As SqlDataReader = sql.ExecuteReader(CommandBehavior.CloseConnection)
               
                Do While rs.Read
                    Response.Write("<img src='images/menu/" & rs("Image") & "' width='130' height='35'><br><br>")
                    MakeSubs(rs("MenuID"))
                Loop
            %>
           
        </td>
    </tr>
</table>

<!--#Include File="../../includes/connend.aspx"-->

Så får jeg fejlen at Conn ikke erklæret... Det skyldes vel at Sub funktionerne kun kan bruge variabler som er dimensioneret/erklæret inden i selve funktionen? Hvordan løses det? :)

Har lige forhøjet til 60points.

Hvad har du i connend og conn.aspx?

ASP.NET kører som sunedh også sagde med en ret effektiv connection pooling derfor skal du køre efter hovedreglen om hurtigst muligt at lukke og åbne connection og ikke gøre som jeg tror du gør nu, åbne og lukke i henholdsvis toppen og bunden af filen.

:$, jo, jeg åbner og lukker i top og bund :)

conn.asp:
<%@ Import Namespace="System.Data.SqlClient" %>

<%
    Dim Conn As New SqlConnection("Server=212.242.193.110;UID=test;Password=test;Database=Improve;Trusted_Connection=yes")
    Conn.Open()
%>


connend.asp:
Conn.Close
Conn = Nothing



Jeg håber på nogle tips :) - er stadig ret ASP[Classic] vant.

Lad være med at åbne din connection i det første åben den istedet for lige før du skal bruge den. Og luk den igen med CommandBehavior.CloseConnection, så får du den mest optimale hastighed.

Tak for tippet, men det løser jo ikke mit problem... Mit problem er jo at jeg ikke kan vise de relationelle data. Her er et eksempel på hvad jeg vil vise:

Menutopic
  menuemne #1
  menuemne #2

Menutop #2
  menuemne #1

Hvordan klarer jeg det?

Mvh Mark

Nu er det jo somme tider lidt en religion hvordan man koder, så dette er ikke en opfording til en krig, men her er hvad jeg ville gøre:

1. opdel præsentation og logik i henholdsvis en aspx og en vb fil
2. undlad at bruge include filer - lav klasser i stedet, det er meget mere fleksiblet
3. til præsentation af data ville jeg anvende en repeater kontrol men en anden repeater kontrol indeni. Disse kan databindes direkte med din datareader. På den måde undgår du Response.Write, som man efter min mening aldrig bør bruge mere. Alternativt kunne man skrive de to forskellige SQL statement sammen til et og så kun anvende en repeater (og for den sags skyld datareader)

Så mit forslag kort: kig lidt på repeateren (evt. også datalist og datagrid) og adskil præsentation og logik.

- sunedh

Hej Sune. Jeg har fulgt dit råd og læst lidt på det... Men pinligt som det er, er jeg allerede stødt ind i problemer igen. Jeg har oprettet følgende kode:

<%@ Import Namespace="System" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>

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

    Sub Page_Load()
        Dim Conn As New SqlConnection("Server=212.242.193.110;UID=test;Password=test;Database=Improve;Trusted_Connection=yes")
        Conn.Open()
       
        Dim sqlCmd As SqlCommand = new SqlCommand("SELECT * FROM [tblMenu] WHERE [SubID] = 0", Conn)
       
        TopicsRepeater.DataSource = sqlCmd.ExecuteReader(CommandBehavior.CloseConnection)
        TopicsRepeater.DataBind


       
        Conn.Close
        Conn = Nothing
    End Sub

</script>


Samt denne som udskriver:

                <asp:Repeater id=TopicsRepeater runat="server">
       
                    <ItemTemplate>
       
                          <%# DataBinder.Eval(Container.DataItem, "Title") & "<br>" %>
       
                    </ItemTemplate>
       
                </asp:Repeater>


Koden udskriver som den skal, topemnerne. Men hvordan laver jeg en Repeater#2 som skal være inde i den anden repeater?

... Øger lige points til 90 (i får begge :))

Noget ala dette:

<asp:Repeater id=TopicsRepeater runat="server">
  <ItemTemplate>
    <%# DataBinder.Eval(Container.DataItem, "Title") & "<br>" %>
    <asp:Repeater id="Undermenu" runat="server" DataSource='<%# GetSubs( DataBinder.Eval( Container.DataItem, "MenuID" )) %>' >
      <ItemTemplate>
        <%# DataBinder.Eval(Container.DataItem, "Title") & "<br>" %>
      </ItemTemplate>
    </asp:Repeater>
    </ItemTemplate>
</asp:Repeater>

Og så laver du en funktion der tager et menuid som parameter og returnerer en datareader med alle undermenuer til denne

Alternativt kan du relatere dine tables sådan her:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q306154

Jamen det er jo smukt! Endelig fik jeg det til at virke :). Jeg siger mange tusind tak, og håber at i er tilfredse med 50/50 uddeling af points.

Endnu engang tak.

Mvh Mark

:o) - det er jo bare fedt at det er kommet til at virke

sunedh