---
title: "Lägga till data i databas"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/116755-lägga-till-data-i-databas/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "devotion"
published: "2004-11-26T16:06:45.000Z"
updated: "2004-11-28T17:26:21.000Z"
replies: 23
views: 664
page: 2
pages: 2
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/116755-lägga-till-data-i-databas"
---

# Lägga till data i databas

_Sida 2 av 2._

## #21 — cyprys, 2004-11-28T11:33Z

```
while not objFile.atendofstream

    strLine = objFile.ReadLine

    iEnumber = Replace(Trim(Mid(strLine, 1, 8)), "'", "''")
    ...

    ...
         objConn.Execute strSQL, , 128
    end if

    allEnumbers = allEnumbers & iEnumber & ","

wend

objconn.Execute("DELETE FROM tblPriceList  WHERE eNumber NOT INT ("& left(allEnumbers,len(allEnumbers)-1) &")")
```

Dessutom borde du nog ha en WHERE-clausul i din UPDATE-sats, då den uppdaterar ALLA poster med samma värde annars. ;)

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

## #22 — @nders, 2004-11-28T11:36Z

> Dessutom borde du nog ha en WHERE-clausul i din UPDATE-sats, då den uppdaterar ALLA poster med samma värde annars.

Helt klart. Jag som glömde den i min kod. :) (Jag har redigerat koden i mitt senaste inlägg)

I övrigt är koden cyprys visar exakt som jag hade tänkt mig. :)

mvh

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

## #23 — devotion, 2004-11-28T13:35Z

Hej!

Tack alla engagerade forumbesökare i allmänhet och @nders i synnerhet :) 

Nu fungerar det!!

Koden är lite mer optimerad nu.. :r 

Det tar ca 1 sekund att göra samma operation som min usla kod tog 30 sekunder att göra....

Avslutar denna tråden nu men återkommer säkert i andra ärenden!!!

MVH

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

## #24 — @nders, 2004-11-28T17:26Z

Nu när jag läst cyprys kod igen så är den inte exakt som jag tänkt mig. ;)

Så här hade jag tänkt:

```
while not objFile.atendofstream

    strLine = objFile.ReadLine

    iEnumber = Replace(Trim(Mid(strLine, 1, 8)), "'", "''")
    ...

    ...
         objConn.Execute strSQL, , 128
    end if

    allEnumbers = allEnumbers & "'" & iEnumber & "',"

wend

objconn.Execute("DELETE FROM tblPriceList WHERE eNumber NOT IN ("& left(allEnumbers,len(allEnumbers)-1) &")")
```

mvh

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/116755-lägga-till-data-i-databas/page2  
Föregående sida: https://www.webforum.nu/amne/asp/116755-lägga-till-data-i-databas.md