Notifikationer

Markér alle som læst Log ud

ares Nybegynder

20. marts 2002 - 18:31 Der er 17 kommentarer og
1 løsning

Hjææææææælp........ Please....

Hej Eksperter...

Hvorfor for jeg fejlen... Type mismatch... ???

Koden ser således ud...

Str_antal = request.form("vare_antal")
Str_VAre_Id = Request.form("Vare_ID")

Dim arr_antal(20), i, arr_id(20)

'nedenstående linjer er roden til alt ondt...

arr_antal = split("& Str_antal &", ",")
arr_Id = Split("& Str_Vare_ID &", ",")

For i = 0 to uBound(Arr_ID)

SQL="Select * from kurv Where ID = "& arr_id(i) &""
Set Rs=Conn.Execute(SQL)
Set Recordset1 = Server.CreateObject("ADODB.Recordset")

Recordset1.Open SQL, Conn, 2, 3
Recordset1.update
Recordset1("Vare_antal") = Recordset1("Vare_antal") + arr_antal(i)
Recordset1.Update
Recordset1.Close

Next

håber der er en der kan finde fejlen...

Ares

Synes godt om

arriva Nybegynder

20. marts 2002 - 18:45 #1

arr_antal = split(Str_antal, ",")
arr_Id = Split(Str_Vare_ID, ",")

Synes godt om

arriva Nybegynder

20. marts 2002 - 18:45 #2

SQL="Select * from kurv Where ID = "& arr_id(i)

Synes godt om

ares Nybegynder

20. marts 2002 - 18:49 #3

nej... det hjalp ikke

Synes godt om

ares Nybegynder

20. marts 2002 - 18:52 #4

Vær opmærksom på at det er i linjerne:

arr_antal = split(Str_antal, ",")
arr_Id = Split(Str_Vare_ID, ",")

At fejlen opstår...

Synes godt om

netweawer Nybegynder

20. marts 2002 - 19:04 #5

arr_antal = Split(Str_antal, ",")

måske

Synes godt om

ares Nybegynder

20. marts 2002 - 19:08 #6

niks... har lige testet det er samme fejl....

Synes godt om

arriva Nybegynder

20. marts 2002 - 19:23 #7

det er din conn.execute der er prob.
prøv det her:
Sql = "SELECT * FROM kurv Where ID =" & arr_id(i)
Set recordset1 = Server.CreateObject("ADODB.Recordset")
recordset1.Open Sql, Con, 3, 3

i stedet for:
SQL="Select * from kurv Where ID = "& arr_id(i) &""
Set Rs=Conn.Execute(SQL)
Set Recordset1 = Server.CreateObject("ADODB.Recordset")

Synes godt om

arriva Nybegynder

20. marts 2002 - 19:25 #8

For i = 0 to uBound(arr_ID)

SQL="Select * from kurv Where ID = "& arr_id(i)
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.Open SQL, Conn, 2, 3
Recordset1.update
Recordset1("Vare_antal") = Recordset1("Vare_antal") + arr_antal(i)
Recordset1.Update
Recordset1.Close

Next

btw. nu har du vel husket en conn?

Synes godt om

arriva Nybegynder

20. marts 2002 - 19:26 #9

btw. hvordan skriver du dine data'er ind i dine variabler? Husker du at de skal sepereres med , ?

Synes godt om

ares Nybegynder

20. marts 2002 - 20:18 #10

Det er indholdet fra en form som bliver returneret således...

Vare_antal=1, 1
Vare_Id = 104, 105

den eneste udtagelse er vis der kun er en vare i kurven... så bliver det vist således...

Vare_antal = 1
Vare_id = 104

Men fejlen kommer ud anset antallet af varer...

Synes godt om

ares Nybegynder

20. marts 2002 - 20:19 #11

hvordan kan det egentlig være recordset1 der er problemet når den ikke er begyndt at lægge det i databasen endnu ???

Synes godt om

coltau Juniormester

20. marts 2002 - 20:26 #12

Jeg har testet din kode og fundet ud af at det er split-kommandoen det er galt med.
Derfor har jeg undersøgt selve SPLIT-kommandoen i hoved og r .. og fundet frem til at man ikke må anvende en absolut dimensionering på variablen.

Således:
Dim arr_antal(20)
arr_antal = split("& Str_antal &", ",")
Det giver fejl: Typerne passer ikke sammen. Altså arr_antal og Split's returværdi.

Du skal altså ændre linier:

Dim arr_antal(20), i, arr_id(20)

til:

Dim arr_antal, i, arr_id

Så forsvinder den fejl. !

Ja man skal lære hver dag.

Synes godt om

arriva Nybegynder

20. marts 2002 - 20:41 #13

Dim arr_antal(), i, arr_id()
vel, ellers er det jo ikke arrays...

Synes godt om

coltau Juniormester

20. marts 2002 - 20:47 #14

Endelig ikke med () omkring så kommer samme fejl. Underligt - spørg mig ikke hvorfor.

Synes godt om

arriva Nybegynder

20. marts 2002 - 20:50 #15

hm, skummelt =)

Synes godt om

ares Nybegynder

20. marts 2002 - 21:50 #16

Coltau... du styre... det er alt fo vildt... du fatter ikke hvor lang tid jeg har siddet med det her...

Tusind tak...

Synes godt om

ares Nybegynder

20. marts 2002 - 21:52 #17

hov... vent det virker kun hvis der er en vare i kurven.. hvis Vare_id = 101, 104 laver den

Syntax error (comma) in query expression 'ID = 111, 112'.
/string/vare_update.asp, line 23

Synes godt om

ares Nybegynder

20. marts 2002 - 21:52 #18

min fejl..

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS