---
title: "Hur göra för att infoga data från en databas i ett Worddokument?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/7714-hur-göra-för-att-infoga-data-från-en-databas-i-ett-worddokument"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "anhel96"
published: "2001-01-14T12:17:00.000Z"
updated: "2001-01-14T20:09:00.000Z"
replies: 4
views: 240
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/7714-hur-göra-för-att-infoga-data-från-en-databas-i-ett-worddokument"
---

# Hur göra för att infoga data från en databas i ett Worddokument?

## #1 — anhel96, 2001-01-14T12:17Z

Hur gör jag för att hämta data ifrån databasen och infoga de i det Word-dokument som skapas enligt nedan? Dvs jag vill t.ex. att förnamn och efternamn ska hämtas från databasen och skrivas ut i Worddokumentet efter "Namn:".

\<% 
Set Connection = Server.CreateObject("ADODB.Connection")
	dbFilePath = Server.MapPath("db.mdb")
	Connection.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & dbFilePath & ";"
	SQLStmt = "SELECT \* FROM Login ORDER BY Efternamn, ForNamn"
	Set RS = Connection.Execute(SQLStmt)
%\>
\<%
Dim MyDoc
Set MyDoc = CreateObject("Word.Document")
MyDoc.Application.Visible = True
MyDoc.content.Font.Bold = False
MyDoc.content.Font.Underline = False
MyDoc.content.Font.Name = "Times New Roman"
MyDoc.content.Font.Size = 10
MyDoc.content.insertAfter "Adressregister"
MyDoc.content.InsertParagraphAfter
MyDoc.content.insertAfter "\__________________________________________________________________\_"
MyDoc.content.InsertParagraphAfter
MyDoc.content.InsertParagraphAfter
%\>
\<%
Set RS = Connection.Execute(SQLStmt)
Do Until RS.EOF
%\>
\<%
MyDoc.content.insertAfter "Namn: "
MyDoc.content.InsertParagraphAfter
MyDoc.content.insertAfter "Adress: "
MyDoc.content.InsertParagraphAfter
MyDoc.content.insertAfter "Postadress: "
MyDoc.content.InsertParagraphAfter
MyDoc.content.insertAfter "Telefon: "
MyDoc.content.InsertParagraphAfter
MyDoc.content.insertAfter "Mobil: "
MyDoc.content.InsertParagraphAfter
MyDoc.content.insertAfter "E-post: "
MyDoc.content.InsertParagraphAfter
MyDoc.content.insertAfter "\_______________________________________\_"
MyDoc.content.InsertParagraphAfter
%\>
\<%
RS.MoveNext
Loop
RS.Close
Connection.Close
Set MyDoc = Nothing 
%\>

\[Redigerat av anhel96 den 14 jan 2001\]

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

## #2 — LarsG, 2001-01-14T15:25Z

Ser ett syntaxfel i din selectsats, skall vara:

```
SELECT * FROM Login ORDER BY Efternamn, ForNamn
```

Dvs inget where om du inte har några villkor. Annars ser det väl ok ut.

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

## #3 — anhel96, 2001-01-14T17:31Z

OK, har missat det då jag klippte ut koden. I originalet har jag med ett WHERE-villkor. Glömde bara att ta bort WHERE här i diskussionsmeddelandet. Men koden fungerar som sagt annars som den står i det följande. Det jag dock skulle vilja ha svar på är hur jag infogar data från databasen bland de övriga. T.ex. efter MyDoc.content.insertAfter "Namn: "
vill jag att en namnen från databasen ska inflikas. Hur får jag detta att fungera? 
T.ex om 25 personer finns loggade i databasen går loopen 25 gånger och skriver ut Namn, Adress, Postadress m.m. för vardera av de 25 personerna.

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

## #4 — LarsG, 2001-01-14T18:49Z

Ok, jag läste lite snabbt :h

Om dina kolumner heter fornamn,efternamn etc så kan du plocka dom från RS:

```
MyDoc.content.insertAfter "Namn: " & RS("Fornamn") & " " & RS("EfterNamn")
MyDoc.content.InsertParagraphAfter
MyDoc.content.insertAfter "Adress: " & RS("Adress")
MyDoc.content.InsertParagraphAfter
```

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

## #5 — anhel96, 2001-01-14T20:09Z

Provade ditt förslag. Det fungerade inte riktigt. Fick ändra enligt nedan för att det skulle fungera. Dvs parenteser runt databasvariablerna.
Nu funkar det kanon. Tack!

MyDoc.content.insertAfter "Namn: " & (RS("ForNamn")) & " " & (RS("EfterNamn"))
MyDoc.content.InsertParagraphAfter
MyDoc.content.insertAfter "Adress: " & (RS("Adress"))
MyDoc.content.InsertParagraphAfter

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/7714-hur-göra-för-att-infoga-data-från-en-databas-i-ett-worddokument