MS-Office-Forum

MS-Office-Forum (http://www.ms-office-forum.net/forum/index.php)
-   Corel Draw, Paint Shop & Co. (http://www.ms-office-forum.net/forum/forumdisplay.php?f=54)
-   -   CorelDRAW x6 VBA und database unter 64 Bit (http://www.ms-office-forum.net/forum/showthread.php?t=304511)

Lupus 12.11.2013 18:46

CorelDRAW x6 VBA und database unter 64 Bit
 
Tachschen,

mit dem Code:

Dim dbs As dao.Database
Dim dbname As String

dbname = ActiveDocument.FilePath & "kalender.mdb"
Set dbs = OpenDatabase(dbname)

dbs.Execute ("DELETE * FROM tblFeiertage;")

habe ich bisher in CorelDRAW unter 32Bit Versionen, daten aus einer Access Datenbank ausgelsen. Bin nun umgestiegen auf WIN 7, 64 Bit und gleichzeitig auf CorelDRAW x6.

Nun bekomme ich eine Fehlermeldung:
Laufzeitfehler 429
Objekterstellung durch ActivX-Komponente nicht möglich

Falsche Verweise oder habe ich mit 64 Bit nicht mehr den richtigen Zugriff? :depressed

PS: Die Präfixe sollten hier mal aktualisiert werden ;)

Lupus 16.11.2013 19:08

schnief .. ihr macht mich traurig ....

EarlFred 18.11.2013 13:56

Hallo,

vermutlich musst Du auf ADO umsteigen.

Grüße
EarlFred

Lupus 19.11.2013 21:00

Abend und danke erst mal ....
Habe ich noch nie gemacht. Finde auch irgendwie nur Beispiele die weit über das gehen, was ich benötige. Wenn zufällig jemand ein paar Zeilen hat, die mir weiter helfen? .... och was würde ich mich freuen

Arne Dieckmann 19.11.2013 21:52

Ungetestet:
Code:

Dim DB as Object
Dim dbname As String

dbname = ActiveDocument.FilePath & "kalender.mdb"
Set DB = New ADODB.Connection

DB.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & dbname & ";"
'aktuell sollte man vermutlich folgende Zeile verwenden:
'DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbname & ";"

DB.Execute "DELETE * FROM tblFeiertage;"


Lupus 19.11.2013 22:01

Danke ....

aber denke wegen der 64 BIT Betriebssystem und Office 2007 (32 bit) geht das auch nicht.
bekomme die Meldung "Provider nicht gefunden"
Laufzeitfehler: 3706 schnief ...

Arne Dieckmann 19.11.2013 22:10

Hast du beide Varianten ausprobiert (s. Kommentar im Code)?

Lupus 19.11.2013 22:27

jepp .....

EarlFred 20.11.2013 14:09

Hallo,

je nach Umgebung bitte das passende aussuchen:
http://www.connectionstrings.com/

http://www.donkarl.com/?FAQ7.9

Hast Du denn mal selbst gegoogelt? Welche Tipps hast Du erhalten? Zu welchem Ergebnis führten sie?

Grüße
EarlFred

Lupus 20.11.2013 14:51

Tachschen,

Google sagt mir
Microsoft.ACE.OLEDB.12.0 läuft wenn das Office auch 64 Bit ist, ist es aber bei mir nicht
Microsoft.Jet.OLEDB.4.0 läuft auf 64 Bit Systemen nicht

Arne Dieckmann 20.11.2013 19:35

Ich habe den Code aus dem 1. Beitrag leicht verändert (s. unten) mal im Excel 2003 unter Windows 7/64 Bit ausgeführt. Das geht - der Verweis auf Microsoft DAO 3.6 Object Library muss natürlich fehlerfrei gesetzt sein (bei mir findet sich die dao360.dll unter C:\Program Files (x86)\Common Files\microsoft shared\DAO).
Code:

Dim dbs As DAO.Database
Dim dbname As String

'dbname = ActiveDocument.FilePath & "kalender.mdb"

dbname = "D:\test\test.mdb"

Set dbs = OpenDatabase(dbname)

dbs.Execute ("DELETE * FROM tblFeiertage;")

Ich hoffe, dass Office 2007 trotzdem noch die dao360.dll mitbringt. Andererseits könnte der Hinweis unter Acc2007 - Verweise DAO 3.6 und Office 12.0 Access … hilfreich sein (Verweis ändern, Code sollte aber noch funktionieren).

Lupus 20.11.2013 20:10

Liste der Anhänge anzeigen (Anzahl: 1)
Danke danke ...

also in Excel von Office 2007 läuft es. In Corel nicht.
da bekomme ich die Meldung:
Laufzeitfehler 429
Objekterstellung durch ActivX-Komponente nicht möglich
Wie in Corel die Verweise sind, steht in der Anlage.

Kann es sein, weil Corel 64 Bit ist und Excel 32 Bit, das es dort läuft?

Lupus 21.11.2013 15:55

habe das mit der Powershell ausgelesen, hilft das weiter?

(New-Object System.Data.OleDb.OleDbEnumerator).GetElements() | select SOURCES_NAME , SOURCES_DESCRIPTION

Code:

SOURCES_NAME                SOURCES_DESCRIPTION                   
------------                -------------------                   
SQLOLEDB                    Microsoft OLE DB Provider for SQL Se...
MSDataShape                MSDataShape                           
SQLNCLI11                  SQL Server Native Client 11.0         
ADsDSOObject                OLE DB Provider for Microsoft Direct...
SQLNCLI11 Enumerator        SQL Server Native Client 11.0 Enumer...
Windows Search Data Source  Microsoft OLE DB Provider for Search 
MSDASQL                    Microsoft OLE DB Provider for ODBC D...
MSDASQL Enumerator          Microsoft OLE DB Enumerator for ODBC...
SQLOLEDB Enumerator        Microsoft OLE DB Enumerator for SQL ...
MSDAOSP                    Microsoft OLE DB Simple Provider     
MSIDXS                      Microsoft OLE DB Provider for Indexi...



Alle Zeitangaben in WEZ +1. Es ist jetzt 17:03 Uhr.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.