Recordset i array

brug den indbyggede ado funktion GetRows()

Hej Kimiwam jeg roder stadigvæk med det eksamens projekt.
Kan du give et eksempel på hvordan jeg bygger den der om.

uddyber lige:

når du har åbnet dit recordset gør du sådan her:

if not objRS.eof then aParameters = objRS.GetRows()
objRS.Close

så har du hentet det ind i et to-dimensionelt array

http://www.programmersresource.com/articles/getrows.asp

kan det bruges?

Er vi enige om at det her er rigtigt?
Function GetItemParameters(iItemID)
Dim objRS
    Set objRS = Server.CreateObject ("ADODB.Recordset")
    objRS.Open "tblVin",objConn,adOpenStatic,adLockReadOnly,adCmdTable
Dim aParameters()

    IF not objRS.EOF Then
    aParameters = objRS.GetRows
    objRS.MoveNext
    End if

objRS.Close
Set objRS = Nothing       


GetItemParameters = aParameters
End Function
Her skal jeg have dem frem igen det vil den ikke er det ubound der er galt
<%
    For I = 1 to Ubound(aParameters,2)
        aParameters = GetItemParameters(I)
%>
        <TR>
            <TD><%= aParameters(0,i) %></TD>
            <TD><%= aParameters(1,i) %></TD>
            <TD>Kr.<%= aParameters(2,i) %></TD>
                <TD><%= aParameters(3,i) %></TD>         
            <TD><A HREF="./shopping.asp?action=add&item=<%= I %>&count=1">Bestil!</A></TD>
        </TR>
<%
    Next
%>

Jeg tror at jeg er meget tæt på :)

som jeg læser det eks så skal denne linie:
aParameters = GetItemParameters(I)

Flyttes ud foran For i= 1 to..

Altså sådan her:
aParameters = GetItemParameters(0)
For I = 1 to Ubound(aParameters,2)
%>

kan det have noget at sige at der er 10 felter i min database men jeg vil kun se 4

sorry lidt sent på den prøver lige

<%
Function GetItemParameters()
    Dim objRS
    Set objRS = Server.CreateObject ("ADODB.Recordset")
    objRS.Open "tblVin",objConn,adOpenStatic,adLockReadOnly,adCmdTable
    'henter objRS ind i et to-dimensionelt array vha getrows()
    if not objRS.EOF then
        GetItemParameters = objRS.GetRows
    else
        GetItemParameters = null
    end if
    objRS.Close
    Set objRS = Nothing
End Function

aParameters = GetItemParameters
For i = 0 to Ubound(aParameters,2)
%>
        <TR>
            <TD><%= aParameters(0,i) %></TD>
            <TD><%= aParameters(1,i) %></TD>
            <TD>Kr.<%= aParameters(2,i) %></TD>
                <TD><%= aParameters(3,i) %></TD>
                                <!-- er du sikker på du vil bruge dit arrayindeks og ikke et itemid der er gemt i arrayet? -->
            <TD><A HREF="./shopping.asp?action=add&item=<%= i %>&count=1">Bestil!</A></TD>
        </TR>
<%
Next
%>

nu får jeg en type mismatch i linie aParameters = objRS.getrows
Jeg gir mig snart til at græde

men en ting du kan have meget stor fordel af når du bruger getrows er at navngive alle de felter du returnerer i dit recordset - så i stedet for det her:

objRS.Open "tblVin",objConn,adOpenStatic,adLockReadOnly,adCmdTable

bør du gøre det her:

objRS.Open "SELECT id, vinnavn, distrikt FROM tblVin",objConn,adOpenStatic,adLockReadOnly,adCmdText

NU virker det hvor sejt, hvad er fordelen ved itemid
Tak igen Kimiwan

fordelen er at selvom du ændrer i din tabel (hvis du ændrer rækkefølgen af felterne, føjer et felt til, fjerner et felt el.lign.) vil du stadigvæk kun få returneret præcis det du regner med i din aspside (med mindre du altså fjerner et af felterne, du brugte i aspsiden!)

Hej Kimiwan hvis jeg opretter et spørgsmål vil du så vise mig hvordan jeg bruger itemid i min kode, jeg har ikke så meget tid det skal være afleveret imorgen tidlig
Mark

så læg dit icqnr her

har desværre ikke icq bruger messenger

yahoo? msn?  så læg et id :o)

msn messenger
markjustesen@gmx.net

hm.. hvordan kan jeg tilføje dig til min liste, når du bruger sådan en emailadresse??

hvad mener du?