---
title: "Den uppdaterar inte SQL"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/92921-den-uppdaterar-inte-sql"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Thompa__85"
published: "2003-12-17T16:17:30.000Z"
updated: "2003-12-17T21:20:35.000Z"
replies: 12
views: 349
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/92921-den-uppdaterar-inte-sql"
---

# Den uppdaterar inte SQL

## #1 — Thompa__85, 2003-12-17T16:17Z

Hejsan!
har ett problem..
denna kod:

```
	RecSet.AddNew
	RecSet("anv")=request.form("anv")
	RecSet("los")=request.form("los")
	RecSet("rekryt")=request.form("rek")
	RecSet.Update
	RecSet.Close
	
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("databas/databas.mdb")
sql = "Update anv Set antalrek = antalrek + "& 1 &" Where anv= '"& request.form("rek") &"' "
Connect.Execute(sql),,128
Connect.Close
Set Connect = Nothing
```

Det där med att jag vill att den ska uppdatera antalrek.. det gör den inte.. varför?

Permalänk: https://www.webforum.nu/p/92921

## #2 — Jesper T, 2003-12-17T17:09Z

```
sql = "Update anv Set antalrek = antalrek + 1 Where anv= '"& request.form("rek") &"'"
```

Permalänk: https://www.webforum.nu/p/1230464

## #3 — Thompa__85, 2003-12-17T17:21Z

> **Jesper T skrev:**
>
> ```
> sql = "Update anv Set antalrek = antalrek + 1 Where anv= '"& request.form("rek") &"'"
> ```

Har lagt in den, men den uppdaterar ändå inte :S vet ej varför.. någon som vet?

Permalänk: https://www.webforum.nu/p/1230472

## #4 — @nders, 2003-12-17T17:22Z

Visa hur din kod ser ut nu.

Permalänk: https://www.webforum.nu/p/1230473

## #5 — Thompa__85, 2003-12-17T18:00Z

> **@nders skrev:**
>
> Visa hur din kod ser ut nu.

här kommer den...

```
Addera = "Select * From anv "
RecSet.Open Addera, Connect, 3, 3

	RecSet.AddNew
	RecSet("anv")=request.form("anv")
	RecSet("los")=request.form("los")
	RecSet("rekryt")=request.form("rek")
	RecSet("reggad")=now
	RecSet("alder") = "00:00:00"
	RecSet("hemsida") ="Okänt"
	RecSet("bor") ="Okänt"
	RecSet("kon") ="Okänt"
	RecSet("civil") ="Okänt"
	RecSet("msn") ="Okänt"
	RecSet("namn") ="Okänt"
	RecSet("bild") ="bilder/1.jpg"
	RecSet.Update
	RecSet.Close
	
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("databas/databas.mdb")
sql = "Update anv Set antalrek = antalrek + 1 Where anv= '"& request.form("rek") &"'"
Connect.Execute(sql),,128
Connect.Close
Set Connect = Nothing
```

Hajjar du?

Permalänk: https://www.webforum.nu/p/1230506

## #6 — mikul, 2003-12-17T20:08Z

Det är inte så klyfftigt att öppna ett redan öppet objekt.

```
RecSet.Open Addera, [b]Connect[/b], 3, 3

Set [b]Connect[/b] = Server.CreateObject("ADODB.Connection") 
[b]Connect[/b].Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("databas/databas.mdb")
```

Måste äta nu... Men visa lite mer kod, även formulärkoden...
Plus att du kan testa att skriva ut sql-frågan med response.write för att lättare kunna hitta felet...

Permalänk: https://www.webforum.nu/p/1230603

## #7 — Thompa__85, 2003-12-17T20:14Z

Okej, här kommer lite kod:
Formuläret:

```
<form name="form1" method="post" action="spara_medlemr.asp" onsubmit="return checkCheckBox(this)">
<b>Anv&auml;ndarnamn:<br>
  <input name="anv" type="text" id="anv" class=ruta onChange="javascript:this.value=this.value.toHigherCase();" onBlur="validate(this)" size="20">
  <br>
  </b><i>(4-12 tecken)</i><b><br>
  L&ouml;sen:<br>
  <input name="los" type="password" id="los" class=ruta onBlur="validate(this)" size="20">
  <input name="rek" type="hidden" size="20" value="<%=vem%>">

  <br>Jag accepterar:&nbsp; 
  <input type="checkbox" value="0" name="agree"><br>
  <input type="submit" name="Submit" value="Spara" class=ruta>
  <input type="button" value="Avbryt" onclick="document.location.href='index.asp';">
  </b>p>
</form>
```

Sen bifogar jag hela spara_medlemr.asp.. inte så mycke kod, enbast ASP iallafall.. jätte tacksam om ni kan lista ut vad jag gör för fel.. Tack!

Mvh Adde

Bilagor:

- [spara_medlemr.txt](https://www.webforum.nu/a/2450.txt)

Permalänk: https://www.webforum.nu/p/1230606

## #8 — mikul, 2003-12-17T20:40Z

Hur såg sqlfrågan ut om du skrev ut den? 

```
'Connect
	SQL = "Select * From anv "
	RecSet.Open SQL, Connect, 3, 3

	RecSet.AddNew
		RecSet("anv")=request.form("anv")
		RecSet("los")=request.form("los")
		RecSet("rekryt")=request.form("rek")
		RecSet("reggad")=now
		RecSet("alder") = "00:00:00"
		RecSet("hemsida") ="Okänt"
		RecSet("bor") ="Okänt"
		RecSet("kon") ="Okänt"
		RecSet("civil") ="Okänt"
		RecSet("msn") ="Okänt"
		RecSet("namn") ="Okänt"
		RecSet("bild") ="bilder/1.jpg"
	RecSet.Update
	RecSet.Close
	

	sql = "Update anv Set antalrek = antalrek + 1 Where anv= '"& request.form("rek") &"'"
	Response.write(SQL)
	Response.end()
	Connect.Execute(sql),,128
Connect.Close
Set Connect = Nothing
```

Permalänk: https://www.webforum.nu/p/1230620

## #9 — Thompa__85, 2003-12-17T20:46Z

> **mikul skrev:**
>
> Hur såg sqlfrågan ut om du skrev ut den? 
>
> ```
> 'Connect
> 	SQL = "Select * From anv "
> 	RecSet.Open SQL, Connect, 3, 3
> 
> 	RecSet.AddNew
> 		RecSet("anv")=request.form("anv")
> 		RecSet("los")=request.form("los")
> 		RecSet("rekryt")=request.form("rek")
> 		RecSet("reggad")=now
> 		RecSet("alder") = "00:00:00"
> 		RecSet("hemsida") ="Okänt"
> 		RecSet("bor") ="Okänt"
> 		RecSet("kon") ="Okänt"
> 		RecSet("civil") ="Okänt"
> 		RecSet("msn") ="Okänt"
> 		RecSet("namn") ="Okänt"
> 		RecSet("bild") ="bilder/1.jpg"
> 	RecSet.Update
> 	RecSet.Close
> 	
> 
> 	sql = "Update anv Set antalrek = antalrek + 1 Where anv= '"& request.form("rek") &"'"
> 	Response.write(SQL)
> 	Response.end()
> 	Connect.Execute(sql),,128
> Connect.Close
> Set Connect = Nothing
> ```

Så här:
Update anv Set antalrek = antalrek + 1 Where anv= 'Thomsson'

Permalänk: https://www.webforum.nu/p/1230628

## #10 — mikul, 2003-12-17T21:10Z

Testa detta en gång:

```
'Connect
	sqlInsert = "[b]insert[/b] into anv(anv, los, rekryt, reggad, alder, hemsida, bor, kon, civil, msn, namn, bild)"_
	& " Values('"& request.form("anv") &"', '"& request.form("los") &"', '"& request.form("rek") &"', '"& now() &"',"_
	& "'okänt', 'okänt', 'okänt', 'okänt', 'okänt', 'okänt', 'bilder/1.jpg');" 

	sqlUpdate = "Update anv Set antalrek = cInt(antalrek + 1) Where trim(lcase(anv) = '"& trim(lcase(request.form("rek"))) &"';"

	Connect.Execute(sqlInsert),,128
	Connect.Execute(sqlUpdate),,128

	
	'Response.write(SQL)
	'Response.end()
	Connect.Execute(sql),,128
Connect.Close
Set Connect = Nothing
```

Permalänk: https://www.webforum.nu/p/1230641

## #11 — Thompa__85, 2003-12-17T21:13Z

> **mikul skrev:**
>
> Testa detta en gång:
>
>
> ```
> 'Connect
> 	sqlInsert = "inser into anv(anv, los, rekryt, reggad, alder, hemsida, bor, kon, civil, msn, namn, bild)"_
> 	& " Values('"& request.form("anv") &"', '"& request.form("los") &"', '"& request.form("rek") &"', '"& now() &"',"_
> 	& "'okänt', 'okänt', 'okänt', 'okänt', 'okänt', 'okänt', 'bilder/1.jpg');" 
> 
> 	sqlUpdate = "Update anv Set antalrek = cInt(antalrek + 1) Where trim(lcase(anv) = '"& trim(lcase(request.form("rek"))) &"';"
> 
> 	Connect.Execute(sqlInsert),,128
> 	Connect.Execute(sqlUpdate),,128
> 
> 	
> 	'Response.write(SQL)
> 	'Response.end()
> 	Connect.Execute(sql),,128
> Connect.Close
> Set Connect = Nothing
> ```

Nytt fel:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14' 

\[Microsoft\]\[ODBC Microsoft Access Driver\] Number of query values and destination fields are not the same. 

/2/spara_medlemr.asp, line 36

Permalänk: https://www.webforum.nu/p/1230643

## #12 — mikul, 2003-12-17T21:15Z

Kolla igen, har redigerat koden ;)

Permalänk: https://www.webforum.nu/p/1230647

## #13 — mikul, 2003-12-17T21:20Z

Missade ett fält... Kan ha med dyslexin att göra ;)

```
'Connect
	sqlInsert = "[b]insert[/b] into anv(anv, los, rekryt, reggad, alder, hemsida, bor, kon, civil, msn, namn, bild)"_
	& " Values('"& request.form("anv") &"', '"& request.form("los") &"', '"& request.form("rek") &"', '"& now() &"',"_
	& "'00:00:00', 'okänt', 'okänt', 'okänt', 'okänt', 'okänt', 'okänt', 'bilder/1.jpg');" 

	sqlUpdate = "Update anv Set antalrek = cInt(antalrek + 1) Where trim(lcase(anv)) = '"& trim(lcase(request.form("rek"))) &"';"

	Connect.Execute(sqlInsert),,128
	Connect.Execute(sqlUpdate),,128

	
	'Response.write(SQL)
	'Response.end()
	Connect.Execute(sql),,128
Connect.Close
Set Connect = Nothing
```

Permalänk: https://www.webforum.nu/p/1230656

---

Tråden på webben: https://www.webforum.nu/amne/asp/92921-den-uppdaterar-inte-sql