VBA programmering med databas

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?

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

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?

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

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

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

Prova detta.

i=1
While Not produkterRS.Eof

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

  produkterRS.MoveNext
Wend

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 )

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

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

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

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

Nu fungerar det.