Avatar billede fenriz Nybegynder
15. december 2006 - 15:01 Der er 2 kommentarer og
1 løsning

Modtager flere variabler og udskrive

Jeg har problemer med min udskrivning af et SQL Udtræk

Den virker fint hvis jeg kun vælger 1, men hvis jeg vælger flere
siger den:
Fejltype:
(0x80020009)
Undtagelse opstod.

min kode ser sådan ud:
    Function UdskriveData()   
                   
                    'Opretter SQL streng til at lave udtræk på alle "ItemNumber" der er lig med de udvalgte fra chechbox
                    SQL = "SELECT * FROM database Where ItemNumber='"&frmItemNumber&"'"
                   
                   
                    'Sætter connection til at være = SQL streng
                    rs.Open SQL,Connection
                   
                        'Skriver udtræk
                        Response.Write rs("ItemName") & "<br>"
                   
                    'Lukker recordset
                    rs.close
                   
            End Function

            'Løkke der henter alle udvalgte fra Checkbox
            For counter = 1 To Request.Form("chkItemNumber").Count
               
                Antal = counter
                UdskriveData()

            'Gentager vis der er flere
            Next
           
Hjælp hvad gør jeg forkert???
Avatar billede tjaz Nybegynder
16. december 2006 - 14:10 #1
ville nok lave det som:

Function UdskriveData()
'her henter du itemname og sætter navnet = funktionnavnet
UdskriveData = rs("ItemName")
End Function

arrItems = Split(Request.Form("chkItemNumber"), ",")

For i = LBound(arrItems) to UBound(arrItems)
response.write UdskriveData(arrItems(i))
Next
Avatar billede fenriz Nybegynder
16. december 2006 - 18:13 #2
Det virker ikke. har prøvet med dette:
Function UdskrivData()   
                   
                    frmItemNumber = Request.Form("chkItemNumber")
                   
                    'Opretter SQL streng til at lave udtræk på alle "ItemNumber" der er lig med de udvalgte fra chechbox
                    SQL = "SELECT * FROM dbo.VibroLag Where ItemNumber='"&frmItemNumber&"'"
                   
                    'Sætter connection til at være = SQL streng
                    rs.Open SQL,Connection
                   
                    'her henter du itemname og sætter navnet = funktionnavnet
                    UdskrivData = rs("ItemName")
                   
                        'Skriver udtræk
                        'Response.Write rs("ItemName") & "<br>"
                   
                    'Lukker recordset
                    'rs.close
                   
            End Function

            'Løkke der henter alle udvalgte fra Checkbox
            'For counter = 1 To Request.Form("chkItemNumber").Count
                arrItems = Split(Request.Form("chkItemNumber"), ",")
               
            For i = LBound(arrItems) to UBound(arrItems)
                response.write UdskrivData(arrItems(i))
            'Gentager vis der er flere
            Next
___________________________________________________________________________

Så kommer den med denne fejl:

Fejltype:
Microsoft VBScript runtime (0x800A01C2)
Wrong number of arguments or invalid property assignment: 'UdskrivData'

nogen forslag?
Avatar billede fenriz Nybegynder
19. december 2006 - 12:34 #3
fandt selv svaret i denne løkke:

                For i=1 To Request.Form("chkItemNumber").Count
                  WriteData( Request.Form("chkItemNumber").Item(i) )
                Next
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