database adgang via script(vb) i excel

Hvis du kan connecte til din database udenom VBA, kan du prøve at optage en makro hvor du udfører de handlinger der er nødvendige for at oprette forbindelsen. Du kan derefter kigge på koden i VBA editoren.

Her er et eksempel. Desværre kan jeg ikke selv teste det:

'This example needs a ODBC DSN named Publishers which points to your SQL Server.
Public Function TestQuery()

  Dim rst As ADODB.Recordset
  Dim con As ADODB.Connection
  Dim com As ADODB.Command

  'Open connection
  Set con = New ADODB.Connection
  con.ConnectionString = "DSN=publishers;USER=sa;PWD=;DATABASE=pubs"
  con.Provider = "msdasql"
  con.Open

  'Create and manipulate command object
  Set com = New ADODB.Command
  com.ActiveConnection = con
  com.CommandText = "SELECT * FROM Sales WHERE qty < 10"

  'Create and populate the recordset
  Set rst = New ADODB.Recordset
  rst.Open com, , adOpenKeyset

  'Walk the recordset
  With rst
    .MoveFirst
    Do While Not .EOF
          Debug.Print !Payterms
          .MoveNext
    Loop
  End With
  'Clean up
  con.Close
  Set rst = Nothing
End Function

ps. husk at lave en reference til Microsoft AciveX Data object xx library

hmm, hvis jeg prøver at kompilere bak's funktion TestQuery
får jeg at vide: User defined type not defined.
Jeg forsøger at benytte den i excels visual basic editor. Er det derfor ??

Har du lavet en reference som bak skrev ?

hvordan laver man den ?

i makro-editoren under TOOLS / References. Sæt flueben ved det jeg skrev

okay, så fik jeg den lavet, men jeg får stadig fejl. Det kan nok skyldes denne linje :

con.Provider = "msdasql"

fra funktionen TestQuery

Denne linje er lavet af makroen

ODBC;DSN=TransFleet;UID=sa;PWD=;APP=Microsoft® Query;WSID=SCPDKJAGR;DATABASE=TransFleet;Network=DBMSSOCN;Address=KEN,1433

Spørgsmålet er hvad jeg evt så skal skrive, hvis det "con.Provider" linjen som fejler ?

svar