Udræk fra database

Der skal vel gang i nogle relationer eller hva..??

Øhh, jeg er ikke helt med, du har en string med varenumre separeret af komma, den skal så deles op, og bruges til udtræk af db?

yep...

ordrenr = 1 indeholder måske vare = 12,234,212

Så skal jeg ud far de data trække
12 = toshiba
234 = Sony
212 = Bamse
ud fra feltet produkter

-Anders

Ordrenummer = split(Strordrenr)
For i = 1 to Ubound(Ordrenummer)
Set rs = conn.execute(\"select * from varetabel where ordrenummer = \" & Ordrenummer(i))
Response.write ordrenummer(i) & rs(\"varenavn\")
Next

sådan ca.
Du må lige selv tilpasse den, det var lidt hurtigt skrevet, men jeg håber at du har fået fat i ideen...

det er fordi din database er forkert designet - det vil være korrekt at normalisere databasen således at du får en tabel, der relaterer en ordre til flere varenumre

Fx

VareTabel
VareID    VareNavn
1        Sony
2        Toshiba


OrdreTabel
OrdreID  OrdreDato
1        15082001
2        16082001


VareOrdre
ForeignOrdreID    ForeignVareID  Antal
1                1              5
1                2              10
2                2              3



i henhold ovenstående 3 tabeller er der på ordre nr. 1 fra 15082001 bestilt 5 stk. Sony og 10 stk. Toshiba - mens der på ordre nr. 2 fra 16082001 er bestilt 3 stk. Toshiba.


Dette er den \"korrekte\" måde at designe databasen på - man normaliserer.

Det KAN da også godt lade sig gøre med et felt indeholdende en kommasepareret streng med varenumre - men god damn det bliver noget rod og besvær at administrere.

/nuno

Ja, jeg vill nok også vælge nuno\'s version...
Men det andet kan også lade sig gøre

Burde

    Set Con = Server.CreateObject(\"ADODB.Connection\")
    DBPath = \"DBQ=\" & server.mappath(\"db_info/database.mdb\")
    Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

    Sql = \"SELECT * FROM Ordre Where Ordre_Nr = 1\"
        Set ordre =  Con.Execute(Sql)


    Do While Not ordre.EOF
   
    Ordrenummer = split(ordre(\"Ordre_vare\"))
For i = 1 to Ubound(Ordrenummer)
Set rs = conn.execute(\"select * from produkter where varenr = \" & Ordrenummer(i))
Response.write ordrenummer(i) & rs(\"varenavn\")
Next


ordre.MoveNext
    Loop
    Set ordre = nothing

%>


Ikke virke...

Det gør den ikke.....

hvad er fejlen?

                            Ordrenummer = split(ordre(\"Ordre_vare\"), \",\")

den giver ingen fejl... den skriver bare ikke noget ud...

men to sek... tror jeg har gejlet den..

hang on....

hvilken type felt er varenr?

Finder du ud af det?

<%
    Set Con = Server.CreateObject(\"ADODB.Connection\")
    DBPath = \"DBQ=\" & server.mappath(\"db_info/database.mdb\")
    Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

    Sql = \"SELECT * FROM Ordre Where Ordre_Nr = 1\"
        Set ordre =  Con.Execute(Sql)


    Do While Not ordre.EOF
   
        ArrOrdre = Split(ordre(\"Ordre_vare\"),\",\")

  For t = LBound(ArrOrdre ) to UBound(ArrOrdre)
   
    Sql = \"SELECT * FROM produkter Where Varenr = \" & ArrOrdre (t)
       
    Set varelist =  Con.Execute(Sql)
            Do While Not varelist.EOF

            Response.write varelist(\"vare_model\") &\"<br>\"

            Varelist.MoveNext
            Loop
            Set Varelist = nothing
Next

    Ordre.MoveNext
    Loop
    Set ordre = nothing
%>


Den virker.....

Der er point til jer begge... Mikkel fordi han hjalp mig et rigtigt godt stykke hen af vejen, og nunu fordi han lige have mig en åbenbaring..

-Anders

Fedt, jeg smutter også nu, så det var jo meget godt ;-)