Avatar billede starleicht Nybegynder
09. marts 2001 - 12:03 Der er 1 løsning

update vha. løkke med true/false?

Jeg har en Access tabel med et true/false felt.
Jeg skal bruge et script, der udfra f.eks \"aktiv_udgave=5\" sætter true/false-feltet i rækken med udgaveid=5 til TRUE og alle andre felter til FALSE.

Jeg har rodet med nedstående script, men det virker ikke.

<%
Dim ConnHav
Set ConnHav = Server.CreateObject(\"ADODB.Connection\")
ConnHav.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../hav.mdb\") & \";UID=admin;PWD=;\"

set RsAktiv=Server.CreateObject(\"adodb.Recordset\")
Sqlstmt = \"SELECT * FROM udgave;\"
RsAktiv.open Sqlstmt, ConnHav, adOpenStatic, adLockPessimistic

aktiv_udgave = 5

Do until RsAktiv.eof
    if RsAktiv(\"udgaveid\") = aktiv_udgave then
        RsAktiv(\"aktiv\") = 1
    else
        RsAktiv(\"aktiv\") = 0
    end if
    RsAktiv.MoveNext
Loop

    RsAktiv.Update
    RsAktiv.Close
    Set RsAktiv = Nothing
    ConnHav.Close
    Set ConnHav = Nothing
%>
Avatar billede starleicht Nybegynder
09. marts 2001 - 12:21 #1
Jeg fandt selv ud af det:


<!--#include file = \"adovbs.inc\" -->
<%
Dim ConnHav
Set ConnHav = Server.CreateObject(\"ADODB.Connection\")
ConnHav.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../hav.mdb\") & \";UID=admin;PWD=;\"

set RsAktiv=Server.CreateObject(\"adodb.Recordset\")
Sqlstmt = \"SELECT * FROM udgave;\"
RsAktiv.open Sqlstmt, ConnHav, adOpenStatic, adLockPessimistic

aktiv_udgave = 5

Do until RsAktiv.eof
    if RsAktiv(\"udgaveid\") = aktiv_udgave then
        RsAktiv(\"aktiv\") = 1
        RsAktiv.Update
    else
        RsAktiv(\"aktiv\") = 0
        RsAktiv.Update
    end if
    RsAktiv.MoveNext
Loop

   
    RsAktiv.Close
    Set RsAktiv = Nothing
    ConnHav.Close
    Set ConnHav = Nothing
%>
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