---
title: "Uppdaterings problem"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12043-uppdaterings-problem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "His Divine Shadow"
published: "2001-10-11T09:44:00.000Z"
updated: "2001-10-11T11:48:00.000Z"
replies: 9
views: 151
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/12043-uppdaterings-problem"
---

# Uppdaterings problem

## #1 — His Divine Shadow, 2001-10-11T09:44Z

Detta script skriver över andra poster i databasen när det bara ska uppdatera en specifik post, hur kan jag fixa det?

Jag prövade använda:
\<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\\data\\WebData\\katalog.mdb;"
SQL = "SELECT \* from Kat WHERE USERNAME = '" & mySmartUpload.Form("ID") & "'"
Set RS_prod = Conn.Execute(SQL)
%\>
Så att det bara skulle välja den post som hade samma ID som den som skulle uppdateras. men det funkade inte riktig

```
<%
'Declare all local variables

dim conn
dim rs
dim strID
dim strconn

'set a local variable to my DSN-less connection String
strconn = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\data\WebData\katalog.mdb;"

'Create the Connection object 
set conn = server.createobject("adodb.connection")
conn.open strconn

'Create the recordset object
'set rs = server.createobject("adodb.recordset")
'This statement opens the table so we can add a record notice the addnew 
'The 2, 2 is how the table is opened there are many ways it can be opened
rs.open "Kat", conn, 2, 2, adCmdTable

rs.update
'Set the table column = to my input text box from my form
rs("Namn") = mySmartUpload.Form("Namn") 
rs("Naradress") = mySmartUpload.Form("Naradress")
rs("Postnr") = mySmartUpload.Form("Postnr") 
rs("Ort") = mySmartUpload.Form("Ort")
rs("Tel") = mySmartUpload.Form("Tel") 
rs("Fax") = mySmartUpload.Form("Fax")
rs("Epost") = mySmartUpload.Form("Epost")
rs("www") = mySmartUpload.Form("www") 
rs("Amnesomrade") = mySmartUpload.Form("Amnesomrade")
rs("Password") = mySmartUpload.Form("Password")
rs("Ovrigt_swe") = mySmartUpload.Form("Ovrigt_swe")
rs("Ovrigt_fin") = mySmartUpload.Form("Ovrigt_fin")
rs.update

%>
```

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

## #2 — LarsG, 2001-10-11T09:49Z

```
<%
'Declare all local variables
dim conn
dim rs
dim strID
dim strconn

'set a local variable to my DSN-less connection String
strconn = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\data\WebData\katalog.mdb;"

'Create the Connection object 
set conn = server.createobject("adodb.connection")
conn.open strconn

'Create the recordset object
set rs = server.createobject("adodb.recordset")

'This statement opens the table so we can add a record notice the addnew 
'The 2, 2 is how the table is opened there are many ways it can be opened
SQL = "SELECT * from Kat WHERE USERNAME = '" & mySmartUpload.Form("ID") & "'"

rs.open sql, conn, 2, 2, adCmdText

'Set the table column = to my input text box from my form
rs("Namn") = mySmartUpload.Form("Namn") 
rs("Naradress") = mySmartUpload.Form("Naradress")
rs("Postnr") = mySmartUpload.Form("Postnr") 
rs("Ort") = mySmartUpload.Form("Ort")
rs("Tel") = mySmartUpload.Form("Tel") 
rs("Fax") = mySmartUpload.Form("Fax")
rs("Epost") = mySmartUpload.Form("Epost")
rs("www") = mySmartUpload.Form("www") 
rs("Amnesomrade") = mySmartUpload.Form("Amnesomrade")
rs("Password") = mySmartUpload.Form("Password")
rs("Ovrigt_swe") = mySmartUpload.Form("Ovrigt_swe")
rs("Ovrigt_fin") = mySmartUpload.Form("Ovrigt_fin")
rs.update

%>
```

red: cut and paste fel.

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

## #3 — His Divine Shadow, 2001-10-11T10:22Z

Jag får:

Microsoft VBScript runtime error '800a01a8' 

Object required: '' 

/katalog/swe/redigera2.asp, line 42 

Linje 42:
rs.open sql, conn, 2, 2, adCmdText

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

## #4 — @nders, 2001-10-11T10:30Z

Du har ju kommenterat bort skapandet av recordsetet.

```
'set rs = server.createobject("adodb.recordset")
```

Ta bort kommenteringen...

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

## #5 — His Divine Shadow, 2001-10-11T11:26Z

UPS! :e

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

## #6 — His Divine Shadow, 2001-10-11T11:28Z

Men nu fick jag 
Microsoft JET Database Engine error '80040e07' 

Data type mismatch in criteria expression. 

/katalog/swe/redigera2.asp, line 42 

Linje 42 är igen:
rs.open sql, conn, 2, 2, adCmdText

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

## #7 — LarsG, 2001-10-11T11:40Z

Hur ser sql-satsen ut?

Lägg till en

```
response.write sql
```

precis innan open.

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

## #8 — His Divine Shadow, 2001-10-11T11:42Z

Detta fick jag:

SELECT \* from Kat WHERE ID = '64' 
Microsoft JET Database Engine error '80040e07' 

Data type mismatch in criteria expression. 

/katalog/swe/redigera2.asp, line 42

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

## #9 — LarsG, 2001-10-11T11:44Z

Vilken datatyp har kolumnen id?

Om det är nuneriskt så skall det inte vara några ' kring värdet, dvs

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

## #10 — His Divine Shadow, 2001-10-11T11:48Z

OK tack

\[Redigerat av His Divine Shadow den 11 okt 2001\]

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/12043-uppdaterings-problem