---
title: "update-strul"
type: "forum-thread"
url: "https://www.webforum.nu/amne/databaser-sql/58236-update-strul"
topic: "Databaser & SQL"
topic_url: "https://www.webforum.nu/amne/databaser-sql"
author: "Engine^"
published: "2002-11-06T15:10:15.000Z"
updated: "2002-11-06T15:37:18.000Z"
replies: 2
views: 206
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/databaser-sql/58236-update-strul"
---

# update-strul

## #1 — Engine^, 2002-11-06T15:10Z

Jag tog en annan approach till mitt problem, som jag beskrev i [ett tidigare inlägg](http://www.webforum.nu/showthread.php?s=&postid=484003#post484003),men nu börjar jag faktiskt bli gråhårig :(

Det är så att jag har en tabell med två kolumner varav den första är av typen Text. Den andra är Nummer (Double). Textkolumnen består av ID-nummer, t.ex. "1234-567-8901". Jag vill konvertera dessa till 12345678901 och lagra värdet i den andra kolumnen. Konverteringen är inga problem, men min UPDATE som jag använder mig av fungerar inte.

Jag får inga felmeddelanden, så jag vet inte riktigt vad som händer.

```
Private Sub btnConvert_Click()
    Dim rs As New ADODB.Recordset
    Dim cn As Connection
    Dim strSQL As String, strID As String
    Dim dblID As Double
    
    Set cn = CurrentProject.Connection
    strSQL = "SELECT strArtikelID AS strID FROM import_intArtikelID"
    rs.Open strSQL, cn, adOpenKeyset
    
    While Not rs.EOF
        strID = rs("strID")
        strID = Left(strID, 4) & Mid(strID, 6, 3) & Right(strID, 4)
        dblID = strID
    
        strSQL = "UPDATE tblKonverteraDamnIt SET intArtikelID = " & dblID &
" WHERE strArtikelID = " & rs("strID") & ";"
        cn.Execute strSQL, lngThis
        rs.MoveNext
    Wend
    
    Me.btnConvert.SetFocus
    rs.Close
    Set cn = Nothing
    Set rs = Nothing
End Sub
```

Jag känner mig helt vilse i kolan nu, så kan någon vänlig själ vara så snäll att få ut mig ur kolan och in på spåret.

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

## #2 — LarsG, 2002-11-06T15:17Z

Du kan konvertera alla värden direkt med en update

```
strSQL = "UPDATE tblKonverteraDamnIt SET intArtikelID = " & _
" cdbl(Left(strArtikelID, 4) & Mid(strArtikelID, 6, 3) & Right(strArtikelID, 4))"
```

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

## #3 — Engine^, 2002-11-06T15:37Z

Där var en sak jag inte tänkt på, men det tackar jag för :)

Jag löste samtidigt mitt problem med updaten... missade en viktig detalj i WHERE-satsen. Om jag testar ett värde mot ett annat, så se för fanken till att det är samma datatyper som testas ;)

Slår mig själv med enorma citationstecken... \*uff\* \*bonk\*

```
WHERE strArtikelID = """ & rs("strID") & """;"
```

Hatar sånna här missar. Nu får man skämmas oxå...  :x

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

---

Tråden på webben: https://www.webforum.nu/amne/databaser-sql/58236-update-strul