---
title: "Konvertera databas"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/42483-konvertera-databas"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "danielpetersson"
published: "2002-04-25T14:57:09.000Z"
updated: "2002-04-25T16:44:56.000Z"
replies: 4
views: 217
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/42483-konvertera-databas"
---

# Konvertera databas

## #1 — danielpetersson, 2002-04-25T14:57Z

Hej!

Tänkte konvertera en dBase IV - databas till en Access - databas. 
Undrar hur man skulle kunna göra det med ASP. Skulle man inte kunna göra så här?

Set ConDbase = Server.CreateObject("ADODB.Connection")
Set RsDbase = Server.CreateObject("ADODB.Recordset")
ConDbase.Open "DSN=dbase;UID=;PWD=;"
dbaseQuery = "SELECT \* FROM F4_art"
RsDbase.Open dbaseQuery, ConDbase, adOpenKeyset, adLockPessimistic

Set ConAccess = Server.CreateObject("ADODB.Connection")
Set RsAccess = Server.CreateObject("ADODB.Recordset")
ConAccess.Open "DSN=access;UID=;PWD;"
accessQuery = "SELECT \* FROM VARUBENÄMNING"
RsAccess.Open accessQuery, ConAccess, adOpenKeyset, adLockPessimistic

Do While Not RsDbase.EOF

RsAccess.AddNew
RsAccess("ARTNR") = RsDbase("ARTNR")
RsAccess.Update
RsDbase.MoveNext
Loop

Får felmeddelande antingen på AddNew eller Update.

Tacksam för hjälp

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

## #2 — LarsG, 2002-04-25T15:35Z

Jo, det går nog om du har små datamängder.

Vad får du för fel?

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

## #3 — danielpetersson, 2002-04-25T16:04Z

Hej!

Jag får detta felmeddelande (rad 23 - RsAccess.AddNew):
ADODB.Recordset fel '800a0cb3' 
Åtgärden som programmet begärt stöds inte av leverantören. 
/access/konverterare.asp, rad 23

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

## #4 — LarsG, 2002-04-25T16:26Z

Det verkar konstigt. 

Vad händer om du gör en insert 

```
Set ConDbase = Server.CreateObject("ADODB.Connection") 
Set RsDbase = Server.CreateObject("ADODB.Recordset") 
ConDbase.Open "DSN=dbase;UID=;PWD=;" 
dbaseQuery = "SELECT * FROM F4_art" 
RsDbase.Open dbaseQuery, ConDbase, adOpenKeyset, adLockPessimistic 

Set ConAccess = Server.CreateObject("ADODB.Connection") 
 
ConAccess.Open "DSN=access;UID=;PWD;" 

Do While Not RsDbase.EOF 
ConAccess.execute "insert into Varubenämnig(artnr) values(" & _
"'" & RsDbase("ARTNR") & "')",,128
RsDbase.MoveNext 
Loop
```

Om artnr är numeriskt så får du ta bort ' från frågan.

Jag tror nog att det finns några verktyg för att göra den här typen av överföringar. Har du letat hos dBase?

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

## #5 — danielpetersson, 2002-04-25T16:44Z

Hej!

Får det fortfarande inte att fungera. Ja, jag har letat hos dBase, men dock utan framgång.  Tycker det borde vara lika enkelt som när man sätter in värde från formulär till databasen.

rs.AddNew
rs("ARTNR") = Request.Form("ARTNR")
rs.Update

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/42483-konvertera-databas