Hente data fra MS SQL ind i Word

Hejsa

Lav et modul i Word VBA hvor du skriver flg. kode

Public Sub fetch()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Set conn = New ADODB.Connection
    conn.ConnectionString = "Provider=SQLOLEDB;User ID=sa;Initial Catalog=Northwind;Data Source=intranet"
    conn.Open
    Set rs = conn.Execute("SELECT * FROM Customers")
   
    While Not rs.EOF
        Selection.TypeText rs("CompanyName") & vbCrLf
        rs.MoveNext
    Wend
   
    Set conn = Nothing
End Sub

Husk at sætte en reference til Microsoft ActiveX data Object 2.x og ændre intranet til din servers navn!

VH CK

Der mangler faktisk lige to liniers kode! Lige før koden

Set conn = nothing

skal der være flg to liniers kode

Set rs = nothing
Conn.close

VH CK