Just nu i M3-nätverket
Gå till innehåll
Micke_skane

Uppdatera värden i databasen

Rekommendera Poster

Hej

 

Aha, du selecterade inte ut ID.

 

Nu bör och skall det funka.

 

LL

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Hejsan,

 

NU fick jag ut Båda posterna på varsin rad med Update-knapp efter sig!

 

När jag sen ändrar nått i fälten och trycker på knappen så säger Update-sidan:

Expected ')'

 

/webprojekt/administration/update_oppettider_idg.asp, line 13

 

conn.Execute("UPDATE helgdagar SET helgnamn = '"&helgnamn&"' AND oppnar = '"&oppnar&"' AND stanger = '"&stanger&"' WHERE ID="&ID&"")

Där är en pil som pekar på första & i '"&helgnamn&"'

 

Men där är ju rätt antal paranteser, tycker jag! :)

 

Hoppas att vi snart är i mål :)

Ni ska veta att jag uppskattar Er hjälp!!!

 

Micke

 

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Hej

 

Testa

 

 

conn.Execute("UPDATE helgdagar SET helgnamn = '"&helgnamn&"' AND oppnar = '"&oppnar&"' AND stanger = '"&stanger&"' WHERE ID="&ID&"")

 

byt till

 

conn.Execute("UPDATE helgdagar SET helgnamn = '"&helgnamn&"',oppnar = '"&oppnar&"',stanger = '"&stanger&"' WHERE ID = '"&ID&"'")

 

 

LL

 

[inlägget ändrat 2005-05-02 22:31:09 av LL]

[inlägget ändrat 2005-05-02 22:34:30 av LL]

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Samma fel:

Expected ')'

 

/webprojekt/administration/update_oppettider_idg.asp, line 13

 

conn.Execute("UPDATE helgdagar SET helgnamn='"&helgnamn&"',oppnar='"&oppnar&"',stanger='"&stanger&"' WHERE ID="&ID&"")

 

Kollat på all kod på den sidan men JAG ser inget teckenfel...

 

Micke

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Hej

 

Kopiera denna och klistra in, ser att du inte har med ' sist i SQLsatsen både framför och bakom ID ex

 

" & ID & ""

 

'" & ID & "'"

 

conn.Execute("UPDATE helgdagar SET helgnamn = '"&helgnamn&"',oppnar = '"&oppnar&"',stanger = '"&stanger&"' WHERE ID = '" & ID & "'")

 

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
Kopiera denna och klistra in, ser att du inte har med ' sist i SQLsatsen både framför och bakom ID ex
Och det skall det inte heller vara om ID är numeriskt.

Kan det vara så enkelt att du har med en enkelfnutt i de värden du försöker mata in? Tex "Trettonda'n"?

Skriv ut din UPDATE-sats och klistra in resultatet här.

SQL=[GRÅ]"UPDATE helgdagar SET helgnamn='"[/GRÅ]&helgnamn&[GRÅ]"', oppnar='"[/GRÅ]&oppnar&[GRÅ]"', stanger='"[/GRÅ]&stanger&[GRÅ]"' WHERE ID="[/GRÅ]&ID&[GRÅ]""[/GRÅ]
[b]Response[/b].Write SQL
conn.[color="#0000ff"]Execute[/color](SQL)

 

/Cluster

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

"Den som försummar att dricka ur erfarenhetens källa

kommer troligen att dö av törst i okunnighetens öken."

------> http://eforum.kicks-ass.net <------

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

BUMP

 

Hur ser update_oppettider_idg.asp ut nu ?

 

 

 

[inlägget ändrat 2005-05-02 22:56:07 av LL]

[inlägget ändrat 2005-05-02 22:57:40 av LL]

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
BUMP
???

Ehhh... känns som om denna tråd har tillräckligt mycket attention och knappast behöver bumpas....

 

/Cluster

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

"Den som försummar att dricka ur erfarenhetens källa

kommer troligen att dö av törst i okunnighetens öken."

------> http://eforum.kicks-ass.net <------

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Koden:

[MÄRK]<%[/MÄRK]
helgnamn = [color="#0000ff"]Replace[/color]([b]Request[/b].Form([GRÅ]"helgnamn"[/GRÅ]),[GRÅ]"'"[/GRÅ], [GRÅ]""[/GRÅ])
oppnar = [color="#0000ff"]Replace[/color]([b]Request[/b].Form([GRÅ]"oppnar"[/GRÅ]),[GRÅ]"'"[/GRÅ], [GRÅ]""[/GRÅ])
stanger = [color="#0000ff"]Replace[/color]([b]Request[/b].Form([GRÅ]"stanger"[/GRÅ]),[GRÅ]"'"[/GRÅ], [GRÅ]""[/GRÅ])
ID = [color="#0000ff"]Replace[/color]([b]Request[/b].Form([GRÅ]"ID"[/GRÅ]),[GRÅ]"'"[/GRÅ], [GRÅ]""[/GRÅ])

[color="#0000ff"]If[/color] ID <> [GRÅ]""[/GRÅ] [color="#0000ff"]And[/color] helgnamn <> [GRÅ]""[/GRÅ] [color="#0000ff"]Then[/color]
   [color="#0000ff"]Set[/color] conn = [b]Server[/b].[color="#0000ff"]CreateObject[/color]([GRÅ]"ADODB.Connection"[/GRÅ])
   connString = [GRÅ]"Provider=Microsoft.Jet.OLEDB.4.0; Data Source="[/GRÅ] & [b]Server[/b].MapPath([GRÅ]"db/foretags_administration.mdb"[/GRÅ])
   conn.open connString
SQL=[GRÅ]"UPDATE helgdagar SET helgnamn='"[/GRÅ]&helgnamn&[GRÅ]"', oppnar='"[/GRÅ]&oppnar&[GRÅ]"', stanger='"[/GRÅ]&stanger&[GRÅ]"' WHERE ID="[/GRÅ]&ID&[GRÅ]""[/GRÅ]
[b]Response[/b].Write SQL
conn.[color="#0000ff"]Execute[/color](SQL)
   [color="#006400"]'conn.Execute([GRÅ]"UPDATE helgdagar SET helgnamn = '"[/GRÅ]&helgnamn&[GRÅ]"', oppnar = '"[/GRÅ]&oppnar&[GRÅ]"', stanger = '"[/GRÅ]&stanger&[GRÅ]"' WHERE ID="[/GRÅ]&ID&[GRÅ]""[/GRÅ])[/color]

   conn.close
   [color="#0000ff"]Set[/color] conn=[color="#0000ff"]Nothing[/color]
[color="#0000ff"]End[/color] [color="#0000ff"]If[/color]
[b]Response[/b].Redirect [GRÅ]"oppenttider_admin.asp"[/GRÅ]
[MÄRK]%>[/MÄRK]

 

Meddelande:

Expected end of statement

 

/webprojekt/administration/update_oppettider_idg.asp, line 12

 

SQL="UPDATE helgdagar SET helgnamn='"&helgnamn&"', oppnar='"&oppnar&"', stanger='"&stanger&"' WHERE ID="&ID&""

 

ID-fältet är en räknare.

 

Micke

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Hej

 

Felaktigt uttryck av mig. ::)

 

Jag råkade kolla i fel kod och svarade då felaktigt på frågan och raderade ursprungliga svaret och skrev då in **** felaktigt.

 

:)

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Felet kan väl inte bero på sidan om skickar In värdena?

Väldigt ologiskt men Alla mina logiska förklaringar är slut :)

 

Micke

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Du klistrade fortfarande inte in utsriften av din SQL-sats...

Nåja, testa med:

[log]

[MÄRK]<%[/MÄRK]
[color="#0000ff"]Function[/color] sqlTxt(str)
   str=[color="#0000ff"]Replace[/color]([color="#0000ff"]Trim[/color](str),[GRÅ]"'"[/GRÅ], [GRÅ]""[/GRÅ])
[color="#0000ff"]End[/color] [color="#0000ff"]Function[/color]

helgnamn = sqlTxt([b]Request[/b].Form([GRÅ]"helgnamn"[/GRÅ]))
oppnar = sqlTxt([b]Request[/b].Form([GRÅ]"oppnar"[/GRÅ]))
stanger = sqlTxt([b]Request[/b].Form([GRÅ]"stanger"[/GRÅ]))
ID = [color="#0000ff"]CLng[/color](sqlTxt([b]Request[/b].Form([GRÅ]"ID"[/GRÅ])))

[color="#0000ff"]If[/color] [color="#0000ff"]Len[/color](helgnamn)>0 [color="#0000ff"]And[/color] [color="#0000ff"]Len[/color](oppnar)>0 [color="#0000ff"]And[/color] [color="#0000ff"]Len[/color](stanger)>0 [color="#0000ff"]And[/color] [color="#0000ff"]Len[/color](ID)>0 [color="#0000ff"]Then[/color]
   [color="#0000ff"]Set[/color] conn = [b]Server[/b].[color="#0000ff"]CreateObject[/color]([GRÅ]"ADODB.Connection"[/GRÅ])
   connString = [GRÅ]"Provider=Microsoft.Jet.OLEDB.4.0; Data Source="[/GRÅ] & [b]Server[/b].MapPath([GRÅ]"db/foretags_administration.mdb"[/GRÅ])
   conn.open connString

   SQL=[GRÅ]"UPDATE helgdagar SET helgnamn='"[/GRÅ]&helgnamn&[GRÅ]"', oppnar='"[/GRÅ]&oppnar&[GRÅ]"', stanger='"[/GRÅ]&stanger&[GRÅ]"' WHERE ID="[/GRÅ]&ID&[GRÅ]""[/GRÅ]
   [b]Response[/b].Write SQL
   conn.[color="#0000ff"]Execute[/color](SQL)

   conn.close
   [color="#0000ff"]Set[/color] conn=[color="#0000ff"]Nothing[/color]
   [b]Response[/b].Write([GRÅ]"Databasen uppdaterad!"[/GRÅ])
[color="#0000ff"]Else[/color]
   [b]Response[/b].Write([GRÅ]"Ett värde saknas i formuläret!"[/GRÅ])
[color="#0000ff"]End[/color] [color="#0000ff"]If[/color]
[color="#006400"]'Response.Redirect [GRÅ]"oppenttider_admin.asp"[/GRÅ][/color]
[MÄRK]%>[/MÄRK]

[/log]

 

/Cluster

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

"Den som försummar att dricka ur erfarenhetens källa

kommer troligen att dö av törst i okunnighetens öken."

------> http://eforum.kicks-ass.net <------

 

[inlägget ändrat 2005-05-02 23:14:42 av Cluster]

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Hej,

 

Kolla på inlägget kl 22.58

Där visar jag hur jag lade in koden du nämnde och vilket felmeddelande jag fick.

Var inte riktigt säker på hur jag skulle göra med kodsnutten!

 

Ska testa det du skrev om kl 23.09!

 

Micke

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Om du menar ditt inlägg från 22:38 så skriver du ut din kod, men jag undrade över utskriften...

 

/Cluster

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

"Den som försummar att dricka ur erfarenhetens källa

kommer troligen att dö av törst i okunnighetens öken."

------> http://eforum.kicks-ass.net <------

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Har testat koden om sqlTxt men fick samma meddelande:

 

Expected end of statement

 

/webprojekt/administration/update_oppettider_idg.asp, line 17

 

SQL="UPDATE helgdagar SET helgnamn='"&helgnamn&"', oppnar='"&oppnar&"', stanger='"&stanger&"' WHERE ID="&ID&""

 

oxå en pil under första & i helgnamn

 

 

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Jag fick inget annat utkrivit på skärmen än vad meddelandet berättade.

 

Eller hur skulle utskriften vara?

Jag kanske inte skrev in koden rätt...

 

Micke

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Ok, kommentera bort "databaskörningen".

[color="#006400"]'conn.Execute(SQL)[/color]

 

/Cluster

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

"Den som försummar att dricka ur erfarenhetens källa

kommer troligen att dö av törst i okunnighetens öken."

------> http://eforum.kicks-ass.net <------

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Samma sak!

 

Kod

[MÄRK]<%[/MÄRK]
helgnamn = [color="#0000ff"]Replace[/color]([b]Request[/b].Form([GRÅ]"helgnamn"[/GRÅ]),[GRÅ]"'"[/GRÅ], [GRÅ]""[/GRÅ])
oppnar = [color="#0000ff"]Replace[/color]([b]Request[/b].Form([GRÅ]"oppnar"[/GRÅ]),[GRÅ]"'"[/GRÅ], [GRÅ]""[/GRÅ])
stanger = [color="#0000ff"]Replace[/color]([b]Request[/b].Form([GRÅ]"stanger"[/GRÅ]),[GRÅ]"'"[/GRÅ], [GRÅ]""[/GRÅ])
ID = [color="#0000ff"]Replace[/color]([b]Request[/b].Form([GRÅ]"ID"[/GRÅ]),[GRÅ]"'"[/GRÅ], [GRÅ]""[/GRÅ])

[color="#0000ff"]If[/color] ID <> [GRÅ]""[/GRÅ] [color="#0000ff"]And[/color] helgnamn <> [GRÅ]""[/GRÅ] [color="#0000ff"]Then[/color]
   [color="#0000ff"]Set[/color] conn = [b]Server[/b].[color="#0000ff"]CreateObject[/color]([GRÅ]"ADODB.Connection"[/GRÅ])
   connString = [GRÅ]"Provider=Microsoft.Jet.OLEDB.4.0; Data Source="[/GRÅ] & [b]Server[/b].MapPath([GRÅ]"db/foretags_administration.mdb"[/GRÅ])
   conn.open connString

 SQL=[GRÅ]"UPDATE helgdagar Set helgnamn='"[/GRÅ]&helgnamn&[GRÅ]"', oppnar='"[/GRÅ]&oppnar&[GRÅ]"', stanger='"[/GRÅ]&stanger&[GRÅ]"' WHERE ID="[/GRÅ]&ID&[GRÅ]""[/GRÅ]
[b]Response[/b].Write SQL
conn.[color="#0000ff"]Execute[/color](SQL)

conn.[color="#0000ff"]Execute[/color]([GRÅ]"UPDATE helgdagar Set helgnamn = '"[/GRÅ]&helgnamn&[GRÅ]"', oppnar = '"[/GRÅ]&oppnar&[GRÅ]"', stanger = '"[/GRÅ]&stanger&[GRÅ]"' WHERE ID="[/GRÅ]&ID&[GRÅ]""[/GRÅ])

   conn.close
   [color="#0000ff"]Set[/color] conn = [color="#0000ff"]Nothing[/color]
[color="#0000ff"]End[/color] [color="#0000ff"]If[/color]
[b]Response[/b].Redirect [GRÅ]"oppenttider_admin.asp"[/GRÅ]
[MÄRK]%>[/MÄRK]

 

Meddelande på skärmen:

Expected end of statement

 

/webprojekt/administration/update_oppettider_idg.asp, line 13

 

SQL="UPDATE helgdagar Set helgnamn='"&helgnamn&"', oppnar='"&oppnar&"', stanger='"&stanger&"' WHERE ID="&ID&""

-------------------------------------^

 

Det verkar ju som ett teckefel Men Där är rätt tecken, tycker jag :)

 

Micke

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

NU FUNGERAR DET!!!:thumbsup:

 

Ändrade i sql-satsen på Update-sidan

 

SQL=[GRÅ]"UPDATE helgdagar Set helgnamn='"[/GRÅ]& helgnamn &[GRÅ]"', oppnar='"[/GRÅ]& oppnar &[GRÅ]"', stanger='"[/GRÅ] & stanger &[GRÅ]"' WHERE ID="[/GRÅ]& ID

 

Satte mellanrum efter och för & samt tog bort "") vid ID för dem gör visst ingen nytta!

 

Tack för Ert stöd i denna mörka stund i mitt liv :thumbsup:

 

Micke

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Noterade att det inte är löst hos användaren, men du får en poäng för tapperheten och orken att hjälpa i denna tråd! Jag tänker hålla mig utanför :P

 

:):thumbsup:

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
Noterade att det inte är löst hos användaren

Jo det har faktiskt löst sig! Men tråden är lite rörig...

(//eforum.idg.se/viewmsg.asp?EntriesId=706666#707573)

 

men du får en poäng för tapperheten och orken att hjälpa i denna tråd!
Man tackar! :thumbsup:

Det ju kul att hjälpa till, och då inte bara när man kan debitera en kund ;-)

 

 

/Cluster

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

"Den som försummar att dricka ur erfarenhetens källa

kommer troligen att dö av törst i okunnighetens öken."

------> http://eforum.kicks-ass.net <------

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu



×
×
  • Skapa nytt...