Hallo Miteinander
Habe folgendes Problem.
Muss eine Access-Applikation über eine Delphi Schnittstelle ansprechen.
Die Access-Applikation sieht folgendermassen aus:
Beim Starten meldet sich man an und man bekommt eine AuskunftsDB zur verfügung mit Suchfunktionen.
Hier noch der Codeausschnitt der Schnittstelle in Delphi:
var
OleObject : Variant;
begin
OleObject := GetActiveOleObject('Access.Application');
OleObject.OpenCurrentDatabase('C:\XXX.mdb', False, 'PWD');
OleObject.Run('MyFunction', Param1, Param2...);
end;
Sobald ich die Datenbank öffnen will erscheint folgende Meldung:
"Microsoft Office kann die Datenbank nicht öffnen, da sie nicht existiert, oder da ein anderer Benutzer sie bereits im Exklusivmodus geöffnet hat"
Wenn ich jedoch die Schnittstell im VB schreibe, dann funktioniert es ohne Fehlermeldung:
Dim app As Access.Application
Set app = CreateObject("C:\XXX.mdb")
app.run "MyFunction", param1, Param2,...
Die Datenbank ist bereits geöffnet, weil man sich anmelden muss. Was ich machen muss, ist eine Suche starten (in der bestehenden Instanz von der Access-Applikation) und dann Access anzeigen.
Kann mir jemand weiterhelfen?? Wäre sehr dankbar
Greez
Bucchi
Habe folgendes Problem.
Muss eine Access-Applikation über eine Delphi Schnittstelle ansprechen.
Die Access-Applikation sieht folgendermassen aus:
Beim Starten meldet sich man an und man bekommt eine AuskunftsDB zur verfügung mit Suchfunktionen.
Hier noch der Codeausschnitt der Schnittstelle in Delphi:
var
OleObject : Variant;
begin
OleObject := GetActiveOleObject('Access.Application');
OleObject.OpenCurrentDatabase('C:\XXX.mdb', False, 'PWD');
OleObject.Run('MyFunction', Param1, Param2...);
end;
Sobald ich die Datenbank öffnen will erscheint folgende Meldung:
"Microsoft Office kann die Datenbank nicht öffnen, da sie nicht existiert, oder da ein anderer Benutzer sie bereits im Exklusivmodus geöffnet hat"
Wenn ich jedoch die Schnittstell im VB schreibe, dann funktioniert es ohne Fehlermeldung:
Dim app As Access.Application
Set app = CreateObject("C:\XXX.mdb")
app.run "MyFunction", param1, Param2,...
Die Datenbank ist bereits geöffnet, weil man sich anmelden muss. Was ich machen muss, ist eine Suche starten (in der bestehenden Instanz von der Access-Applikation) und dann Access anzeigen.
Kann mir jemand weiterhelfen?? Wäre sehr dankbar
Greez
Bucchi