15. december 2006 - 15:01Der 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
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")
'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'
For i=1 To Request.Form("chkItemNumber").Count WriteData( Request.Form("chkItemNumber").Item(i) ) Next
Synes godt om
Ny brugerNybegynder
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.