---
title: "VBA programmering med databas"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/111605-vba-programmering-med-databas"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "Addeladde"
published: "2004-09-15T10:02:51.000Z"
updated: "2004-09-21T08:59:28.000Z"
replies: 11
views: 536
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/dotnet/111605-vba-programmering-med-databas"
---

# VBA programmering med databas

## #1 — Addeladde, 2004-09-15T10:02Z

Hej

Jag har ett Worddokument som jag skulle vilja plocka info från en databas. Har testat lite med databasimport som finns i Word men då får man in hela tabellen.

Jag vill loopa igenom ett recordsett och välja själv hur jag skriver ut de olika fälten i datbasen.

Någon som vet hur man gör detta?

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

## #2 — yohpops, 2004-09-15T19:19Z

Du kan exempelvis skapa en funktion i word som hämtar datat med en adodb connection.

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

## #3 — Addeladde, 2004-09-15T23:01Z

Har försökt med det men får det inte att fungera.
Får felmedelanden vid kompilering på adodb raden.

Någon som har ett exempel?

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

## #4 — yohpops, 2004-09-16T06:13Z

Vad får du för fel, hur ser koden ut?

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

## #5 — Addeladde, 2004-09-16T06:32Z

Just nu har jag ingen kod har raderat alla kodexmpel som jag prövat när de inte fungerat.

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

## #6 — Addeladde, 2004-09-18T14:06Z

Skulle man inte kunna göra följande fast med VBA kod på nått liknande sätt?

```

Set con = Server.CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\databas.mdb"

sqlString = "SELECT * " &_
  "FROM produkter " &_
  "ORDER BY produktNamn"
SET produkterRS = Con.Execute( sqlString )

While Not produkterRS.Eof

  Response.write produkterRS("prodktNamn")
  Reponse.write "<br>"

  produkterRS.MoveNext
Wend

produkterRS.Close : Set produkterRS = Nothing
Con.Close : Set Con = Nothing
```

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

## #7 — yohpops, 2004-09-20T20:45Z

Prova detta.

```
i=1
While Not produkterRS.Eof

Range("A" + i).value= produkterRS("prodktNamn")
i=i+1

  produkterRS.MoveNext
Wend
```

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

## #8 — Addeladde, 2004-09-20T21:04Z

Denna kod fungerar inte.

```
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\databas.mdb"

sqlString = "SELECT * " &_
  "FROM produkter " &_
  "ORDER BY produktNamn"
SET produkterRS = Con.Execute( sqlString )
```

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

## #9 — yohpops, 2004-09-21T06:19Z

Ändra.
Set con = Server.CreateObject("ADODB.Connection")
till
Set con = CreateObject("ADODB.Connection")

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

## #10 — Addeladde, 2004-09-21T08:12Z

Nu får jag felmeddelande på den markerade raden.

```
Dim con
  Dim sqlString
  Dim produkterRS

  Set con = CreateObject("ADODB.Connection")
  con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Jobb\Swisstime\Webbsidan\webiceradb.mdb"

  sqlString = "SELECT produktNamn FROM produkt ORDER BY produktNamn"
  [b]Set produkterRS = con.Execute(sqlString)[/b]

  While Not produkterRS.EOF

    Selection.TypeText Text:=produkterRS("prodktNamn")
    Selection.TypeParagraph
    Selection.TypeParagraph

    produkterRS.MoveNext
  Wend
  con.Close
  produkterRS.Close
```

> No value given for one or more required parameter

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

## #11 — @nders, 2004-09-21T08:18Z

Heter tabellen Produkt eller Produkter? Felmeddelandet tolkar jag som att tabell- eller fältnamn är fel i frågan.

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

## #12 — Addeladde, 2004-09-21T08:59Z

Japp det var ett felaktigt fältnamn. Skulle varit produkt_namn istället för produktNamn.

Nu fungerar det.

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

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/111605-vba-programmering-med-databas