---
title: "Uppdatera eller skapa ny post (Recordset)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/107708-uppdatera-eller-skapa-ny-post-recordset"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Fraggel"
published: "2004-07-20T14:38:48.000Z"
updated: "2004-07-21T16:28:37.000Z"
replies: 2
views: 253
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/107708-uppdatera-eller-skapa-ny-post-recordset"
---

# Uppdatera eller skapa ny post (Recordset)

## #1 — Fraggel, 2004-07-20T14:38Z

Jag vill med följane:

Antingen skapa en ny post (update=False) eller uppdatera en gammal post (update=True)

Funkar inte jag vet att jag antagligen  fular till det med objRs.Update... Men her löser jag detta

```
  Function write_art(ID, desc, art, update)
    Dim t_html
    Dim SQL
    ConnectToDb(database)
    If update Then 
      SQL = "SELECT * FROM art WHERE ID=" & ID & ";"
      objRs.Open SQL,objConn,1,2
    Else   
      objRs.Open "art",objConn,1,2
      objRs.AddNew
    End If  
      objRs("ID")       = ID
      objRs("art_desc") = desc 
      objRs("art")      = art
      If update Then 
        o bjRs("edited")  = Now()
        objRs("editor")  = Session("usr_ID")
      Else
        objRs("created")  = Now()
        objRs("creator")  = Session("usr_ID")
      End If
    objRs.Update
    t_html = ID & br & desc & br & art & br &_
             "Artikel data basen uppdaterad!" & br
    objRs.Close
    objConn.Close
   write_art = t_html
  End Function
```

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

## #2 — Engine^, 2004-07-20T22:24Z

Får du något felmeddelande? (Vad är det som inte fungerar?)

Istället för att använda metoderna i recordset för att modifiera databasen skulle jag istället använda SQL-satser, men det är ju inget måste ;)

Din funktion skulle i min version se ut såhär...

```
Function WriteArticle(lngID, strDesc, strArt, IsUpdate)
  Dim strHtml, strSql

  ConnectToDb(database)

  If IsUpdate Then 
    strSQL = "UPDATE art SET art_desc = '" & strDesc & "', art = '" & strArt & _
             "', edited = #" & Now() & "#, editor = " & Session(usr_ID") & " WHERE ID = " & lngID
  Else
    strSQL = "INSERT INTO art (art_desc, art, created, creator) VALUES " & _
             "('" & strDesc & "', '" & art & "', #" & Now() & "#, " & lngID & ")"
  End If  

  objConn.Execute strSql, , 128

  strHtml = lngID & br & strDesc & br & strArt & br &_
             "Artikel data basen uppdaterad!" & br

  objRs.Close
  objConn.Close

  WriteArticle = strHtml
End Function
```

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

## #3 — Fraggel, 2004-07-21T16:28Z

Sorry det föll bort i mitt inlägg...

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E2F)
\[Microsoft\]\[ODBC Microsoft Access Driver\]Error in row 
/rtv2/config.asp, line 184

\*\*\* objRs.Update  \*\*\* är rad 184 (se script ovan)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/107708-uppdatera-eller-skapa-ny-post-recordset