Office: Verweis auf ADO per VBA erstellen

digger · 20. März 2006

Hallo,

ich möchte per VBA einen Verweis auf die Microsoft ActiveX Data Objects 2.8 Library setzen (also das manuelle Setzen über Extras > Verweise automatisieren).

Hintergrund: Es soll möglich sein, ein Excelprogramm mit Zugriff auf eine Access-Datenbank aus dem Netzwerk aufzurufen, ohne an dem jeweiligen Rechner den Verweis im VB-Editor setzen zu müssen.

Aus dem Thread http://www.ms-office-forum.net/forum...d.php?t=148516 habe ich den Code von Ritchie aus UK übernommen, doch stört sich mein Programm an der Eigenschaft VBProject. Dieses Problem wurde wiederum im Thread http://www.ms-office-forum.net/forum...+fehlermeldung diskutiert. Daraufhin habe ich die Bibliothek Microsoft Visual Basic for Applications Extensibility 5.3 manuell aktiviert (was mir jedoch nicht hilft, da ich diesen Schritt grundsätzlich automatisieren will).
Dennoch blieb es bei folgender Fehlermeldung:

Laufzeitfehler 1004: "Der programmatische Zugriff auf das Visual Basic Projekt ist nicht sicher."
bzw.
Laufzeitfehler 1004: "Die Methode 'VBProject' für das Objekt '_Workbook' ist fehlgeschlagen." (wobei es sich um eine Eigenschaft handelt).

Ich hatte zu Testzwecken den Code von Ritchie auf folgende Codezeilen reduziert:

Code:

Sub TestVBProjectAnsprechen()
Dim wb As Workbook
Dim VBPref As Object
Dim n as integer
Dim l as long

Set wb = ActiveWorkbook

With wb
VBPref = .VBProject.References

For n = 1 To VBPref.Count
l = l + 1
.Cells(l, 1).Value = n
.Cells(l, 2).Value = VBPref.Item(n).Name
.Cells(l, 3).Value = VBPref.Item(n).Description
.Cells(l, 4).Value = VBPref.Item(n).GUID
.Cells(l, 5).Value = VBPref.Item(n).Major
.Cells(l, 6).Value = VBPref.Item(n).Minor
.Cells(l, 7).Value = VBPref.Item(n).fullpath
Next n

End with

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich verwende Excel 2003 und habe den Code in ein Standardmodul eingefügt. Falls ich einen lauffähigen Code haben sollte, werde ich ihn in das Open-Ereignis einbetten.

Hat jemand dasselbe Problem (auch nach Befolgen der Tipps in den oben genannten Threads) und eine Lösung gefunden? - Ich bin dankbar für jeden Hinweis - habe nach 5 Stunden nun schon wieder mehr graue Haare bekommen.

digger

:)

Lumpensammler · 22. März 2006

Hallo, digger,

Du musst zumindest bei jedem Anwender in den Optionen der Sicherheit den Zugriff zum VBA-Projekt setzen. Ansonsten frage ich mich, warum Du nicht Early vs. Late Binding verwendest.

Gruß
LS

digger · 29. März 2006

Hallo Lumpensammler,

Deinem Tipp mit Late Binding, welches in diesem Falle in Frage käme, bin ich nachgegangen. Es werden in den einschlägigen Fachbeiträgen jedoch nur die Methoden GetObject und CreateObject erwähnt.
Wie spreche ich denn analog das mit Early Binding verwendete ADODB-Objekt "Recordset" nun beim Late Binding an?
Ich möchte aus einer Tabelle gerne Datensätze hinzufügen, löschen und auslesen können. Bei gesetztem Verweis, also mit Early Binding lauten die Befehle dafür so:

Code:

'1. Schritt: Datenbank öffnen

'mit Verweis
'Datenbank öffnen (Early binding)
ADODBconnection.Open "Provider=Microsoft.Jet.oledb.4.0;data source="PfadzurDatenbank";

'ohne Verweis (Late binding)
'Ansatz:
dim accApp as Application
set accApp = createObject ("Access.Application")

'Hier kann ich zwar Access öffnen, nicht aber die von mir ausgewählte Datenbank - "Recordset" wird nicht erkannt, daher ist der Befehl "Recordset.Open" nicht anwendbar.

2. Schritt: Datensatz in DB-Tabelle hinzufügen

'mit Verweis
rs.Add

'ohne Verweis
????

3. Schritt: Datensatz aus DB-Tabelle löschen

'mit Verweis
rs.Delete

'ohne Verweis
??????
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kannst Du mir hier noch mal einen Tipp geben?

Gruß
digger

Unimatrix Zero · 29. März 2006

Moin digger,

einfach mit CreateObject die Objekte erstellen, vielleicht hilft Dir folgendes Codefragment weiter:
Code:

Dim ocn As Object
Dim sDataBase As String

Set ocn = CreateObject("ADODB.Connection")
sDataBase = "DeinPfad\Datenbank.mdb"

With ocn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Data Source").Value = sDataBase
.Properties("Jet OLEDB:Database Password") = "Das geheime Passwort"
.CommandTimeout = 300
.Mode = adModeReadWrite
.Open
End With

Dim orec As Object
Dim sSQLCommand as String

Set orec = CreateObject("ADODB.Recordset")
sSQLCommand = "Select * From DeineTabelle"

With orec
.Source = sSQLCommand
.ActiveConnection = ocn
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

digger · 30. März 2006

Hallo Dieter,

vielen Dank für die Lösung. Ich habe Deinen Code bezüglich Pfad und Tabellenname an meine Testumgebung angepasst und es hat funktioniert.
Super!
Wenn ich es richtig verstanden habe, besteht das Prinzip des Late Binding im vorliegenden Beispiel darin, in Excel die Access-typischen Objekte zunächst als "Object" zu deklarieren und diese Objekte dann mit den ADODB-Methoden und -Eigenschaften anzusprechen. (Wenn ich diese markiere und über die F1-Taste die Hilfe aufrufe, erscheint eine Hilfeauswahl für die ADODB- und die ADOR-(?)-Bibliothek, auch wenn man diese in Excel ohne gesetzten Verweis nicht einsehen kann - daher meine Annahme, dass es sich um ADODB-Elemente handelt).

Gruß
digger

Office: Verweis auf ADO per VBA erstellen

Verweis auf ADO per VBA erstellen

Verweis auf ADO per VBA erstellen

Verweis auf ADO per VBA erstellen

Verweis auf ADO per VBA erstellen - Similar Threads - Verweis ADO VBA

Werte auslesen mit s(w)verweis

Welche Funktion ? Vergleich.. Verweis .. oder WENN ?

Tabellenformatierung: Effekt auf Verweise

Verweis auf Hinweisspalte

Verweis oder dynamischer Tabellenname erstellen

Datenbank "Ausfahrtenerfassung" Rudern

Variable Abfrage auf verschiedene Tabellenblätter