Avatar billede flemmingc Praktikant
13. marts 2001 - 12:40 Der er 3 kommentarer og
1 løsning

INSERT & ARRAY funktion

Nu har jeg set mig blind på dette lille stykke kode. Det skulle være forholdsvis tydeligt hvad jeg sigter mod.

Anyone - hvordan får jeg dette til at virke ?

-------------------------------------       

Set EmneConn = Server.CreateObject(\"ADODB.Connection\")
        DBPath = \"DBQ=\" & server.mappath(\"/DataBases/emneindeks.mdb\")
        EmneConn.Open \"Driver={Microsoft Access Driver (*.mdb)};\" & DBPath

        Sql_Nr = \"Select Top 1 * FROM kategorier ORDER BY KategoriID DESC;\"
          Set RsNr = EmneConn.Execute(Sql_Nr)         
        KatNummer = RsNr(\"KategoriID\") + 1
       
        Sql = \"INSERT INTO kategorier (KategoriNAVN) values (\'\"& Request.Form(\"Navn\") &\"\')\"
        Set Rs = EmneConn.Execute(Sql)
       
              Undkat(1) = Request.Form(\"U1\")
            Undkat(2) = Request.Form(\"U2\")
            Undkat(3) = Request.Form(\"U3\")
            Undkat(4) = Request.Form(\"U4\")
            Undkat(5) = Request.Form(\"U5\")
            Undkat(6) = Request.Form(\"U6\")
            Undkat(7) = Request.Form(\"U7\")
            Undkat(8) = Request.Form(\"U8\")

    For i = 1 to 8
        If Undkat(i) <> \"\" then
          Sql_2 = \"Insert Into underkategorier (UnderkategoriNAVN, KategoriID, Status) values (\'\"& Undkat(i) &\"\',\'\"& KatNummer &\"\',\'1\')\"
          Set Record = EmneConn.Execute(Sql_2)
            Set Record = Nothing
        end if
      Next
         
Avatar billede netsrac Praktikant
13. marts 2001 - 12:44 #1
Tja et Array skal for det første startes ved 0
Avatar billede netsrac Praktikant
13. marts 2001 - 12:46 #2
Undkat = Array(Request.Form(\"U1\"),Request.Form(\"U2\"),Request.Form(\"U3\"),Request.Form(\"U4\"),Request.Form(\"U5\"), Request.Form(\"U6\"), Request.Form(\"U7\"),Request.Form(\"U8\"))

For i = 0 to 7
        If Undkat(i) <> \"\" then
          Sql_2 = \"Insert Into underkategorier (UnderkategoriNAVN, KategoriID, Status) values (\'\"& Undkat(i) &\"\',\'\"& KatNummer &\"\',\'1\')\"
          Set Record = EmneConn.Execute(Sql_2)
            Set Record = Nothing
        end if
      Next
         
Avatar billede flemmingc Praktikant
13. marts 2001 - 13:02 #3
Tak for hurtigt svar - det funker nu :-)
Avatar billede netsrac Praktikant
13. marts 2001 - 13:03 #4
Det var så lidt :-)
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