Avatar billede rasmus55 Nybegynder
12. maj 1999 - 00:00 Der er 8 kommentarer og
1 løsning

Movelast virker ikke...

Hvad sker der ??

Set DB = Server.CreateObject("adodb.connection")
    DBpath = "DBQ=" & Server.MapPath("munster.mdb")
    DB.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & DBpath
        ' Find ID for gamle artikler
       
        SQL = "SELECT * FROM MunVisteArt" 'WHERE Dato = '" & Date & "'"
        Set RS = DB.Execute (SQL)
       
        While Not RS.EOF
   
            Response.Write RS("Dato") & " - "
            'response.write Dato
            ArtikelID = RS("ArtikelID")
            'response.write ArtikelID
            'FoundOne = True
           
            SQL = "SELECT * FROM munster WHERE InfoID =" & ArtikelID
            Set RS2 = DB.Execute (SQL)
                'If RS("Dato") <> Date Then
                    Navn = RS2("Navn")
                    Response.write Dato & "<A HREF='visartikelmun.asp?ArtikelID=" & ArtikelID & "'><font face='verdana,arial,helvetica' size='1'>" & Navn & "</font></A><BR>"
                'End IF
    RS.MoveNext
    Wend
    '---------------------
          Dette virker


        '--------------------

SQL = "SELECT * FROM MunVisteArt" 'WHERE Dato = '" & Date & "'"
        Set RS = DB.Execute (SQL)
    RS.MoveLast
    While Not RS.BOF
   
            Response.Write RS("Dato") & "&nbsp;-&nbsp;"
            'response.write Dato
            ArtikelID = RS("ArtikelID")
            'response.write ArtikelID
            'FoundOne = True
           
            SQL = "SELECT * FROM munster WHERE InfoID =" & ArtikelID
            Set RS2 = DB.Execute (SQL)
                'If RS("Dato") <> Date Then
                    Navn = RS2("Navn")
                    Response.write Dato & "<A HREF='visartikelmun.asp?ArtikelID=" & ArtikelID & "'><font face='verdana,arial,helvetica' size='1'>" & Navn & "</font></A><BR>"
                'End IF
    RS.MovePrevious
    Wend

'---------------------------
Denne del giver følgende fejlmeddelelse:


Microsoft OLE DB Provider for ODBC Drivers error '80040e24'

The rowset does not support fetching backwards

/AspMunster/gammelartikel.asp, line 58


Hvad gør jeg forkert ??
Svaret må gerne være lidt udførligt, jeg er nybegynder i ASP!
/Rasmus
Avatar billede ebdrup Nybegynder
12. maj 1999 - 12:11 #1
Det Recordset du får fra at eksekvere et connection-object er altid af den billigste type: "Forward Only".
Dvs den eneste move-kommando du kan bruge er RS.Movenext.
Brug istedet Recordsettets open metode:

RS.OpenobjAfsnitRs.Open "SELECT ...", DB, adOpenStatic, adLockReadOnly, adCmdText

Ovenstående er een linie.
Hvis ad... konstanterne ikke er definerede, mangler du en include fil
"adovbs.inc" - Denne fil har alle konstanterne du skal bruge for at arbejde med ADO 2.0 (databaser), defineret som VBScript konstanter.

MVH. Allan
Avatar billede ebdrup Nybegynder
12. maj 1999 - 12:16 #2
ups "OpenobjAfsnitRs." skal fjernes fra ovenstående så det bliver:

RS.Open "SELECT ...", DB, adOpenStatic, adLockReadOnly, adCmdText

i een linie.. F... cut and paste.

-Allan
Avatar billede rasmus55 Nybegynder
12. maj 1999 - 12:56 #3
OK. jeg har fundet dens placering, så skal jeg bare kalde den, eller skal den ligge i et bestemt direktorie ?
/Rasmus                   
Avatar billede rasmus55 Nybegynder
12. maj 1999 - 12:57 #4
adovbs filen, altså. 8-D
/Rasmus
Avatar billede Dan Nim Seniormester
12. maj 1999 - 13:03 #5
Prøv at kigge lidt på dette link :
http://netcoders.dk/articles.asp?mode=redirect&article_id=24

Der står der præsic hvordan man viser en database :o)
Avatar billede rasmus55 Nybegynder
12. maj 1999 - 13:14 #6
Ja, men det var ikke det jeg ville,
tabellen skulle vises baglæns, vha movelast, e.l :-)
/Rasmus
Avatar billede rasmus55 Nybegynder
12. maj 1999 - 13:21 #7
Er der nogen som ved hvor jeg skal placere adovbs.inc ??
/Rasmus
Avatar billede mrmodal Nybegynder
12. maj 1999 - 13:52 #8
Hvis du skal vise en tabel bagfra, kan du sortere den baglæns i SQL sætningen med en ORDER BY feltnavn DESC:

SQL = "SELECT * FROM MunVisteArt" 'WHERE Dato = '" & Date & "' ORDER BY feltnavn DESC"

Nu sorteres resultsettet baglæns efter 'feltnavn'.
Avatar billede rasmus55 Nybegynder
12. maj 1999 - 14:14 #9
ja, for søren, den enkle løsning var den bedste, tak!
/Rasmus
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
Kurser inden for grundlæggende programmering

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