Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: -----> Wiederbelebt: Aktien-Forum <-
ACCESS-DB mit VBA öffnen (+Passwort)
zurück: Eintrag automatisch löschen lassen weiter: Case is "..." in Array o.ä. speichern Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
ExcelTüftler
Excel-VBA "Rumspieler"


Verfasst am:
18. Sep 2009, 09:37
Rufname: Daniel
Wohnort: Kehl am Rhein

ACCESS-DB mit VBA öffnen (+Passwort) - ACCESS-DB mit VBA öffnen (+Passwort)

Nach oben
       Version: Office 2003

Hi Miteinander...

da ich zu blond bin, mitr die Syntax lauffähig zu machen, muss ich Euch fragen...

ich möchte auf eine Passwortgeschützte MDB per Excel-VBA zugreifen
(Das Ganze mit LateBinding)

Sub Test()
    Dim DB As Object
    Dim RS As Object
    Dim FileStr As String
    Dim Passwort As String
    
    FileStr = "C:\Test1.mdb"
    Passwort = "123"
    
    Set DB = CreateObject("ADODB.Connection")
    Set RS = CreateObject("ADODB.RecordSet")
    
    'da ist das Problem-------------------------- 
    DB.Open "Provider=microsoft.jet.oledb.4.0;Data Source=" & FileStr, , Passwort
    'da ist das Problem-------------------------- 
    
    With RS
        .ActiveConnection = DB
        .Source = "SELECT * FROM TestTabelle;"
        .Open
        Debug.Print .Fields.Count
        .Close
    End With
End Sub
Code eingefügt mit VBA in HTML 2.0.0.3

...nur SO bekomm ich die MDB nicht auf...


Wie geht's richtig?

_________________
Gruß Daniel

P.S. Nein, das ist kein Pfusch... das ist Improvisation! ;o)
ExcelTüftler
Excel-VBA "Rumspieler"


Verfasst am:
18. Sep 2009, 11:16
Rufname: Daniel
Wohnort: Kehl am Rhein


AW: ACCESS-DB mit VBA öffnen (+Passwort) - AW: ACCESS-DB mit VBA öffnen (+Passwort)

Nach oben
       Version: Office 2003

...so geht's richtig:

Sub Test()
    Dim DB As Object
    Dim RS As Object
    Dim FileStr As String
    Dim Passwort As String
    
    FileStr = "C:\Test1.mdb"
    Passwort = "123"
    
    Set DB = CreateObject("ADODB.Connection")
    Set RS = CreateObject("ADODB.RecordSet")
    
    DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & FileStr & ";" & _
        "Jet OLEDB:Database Password=" & Passwort
    
    With RS
        .ActiveConnection = DB
        .Source = "SELECT * FROM TestTabelle;"
        .Open
        Debug.Print .Fields.Count
        .Close
    End With
End Sub
Code eingefügt mit VBA in HTML 2.0.0.3

_________________
Gruß Daniel

P.S. Nein, das ist kein Pfusch... das ist Improvisation! ;o)
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Dropdown Funktion öffnen bei eingabe eines textes 3 MOABrauchtHilfe 94 10. Dez 2013, 20:56
MOABrauchtHilfe Dropdown Funktion öffnen bei eingabe eines textes
Keine neuen Beiträge Excel Formeln: Aktualisierung der Verknüpfungbeim öffnen mit Fehlermeldung 2 SCL 87 19. Nov 2013, 08:59
nellonk Aktualisierung der Verknüpfungbeim öffnen mit Fehlermeldung
Keine neuen Beiträge Excel Formeln: Link per Makro öffnen 1 DS05 87 23. Aug 2013, 23:01
{Boris} Link per Makro öffnen
Keine neuen Beiträge Excel Formeln: Via Formel Passwort in MD5 hash coderung umwandeln ? 1 offiboy 218 04. Jun 2013, 17:32
Gast Via Formel Passwort in MD5 hash coderung umwandeln ?
Keine neuen Beiträge Excel Formeln: passwort in crypt ? 1 offiboy 93 31. Mai 2013, 13:39
< Peter > passwort in crypt ?
Keine neuen Beiträge Excel Formeln: falscher pfad nach schließen und öffnen 0 arriva 91 12. März 2013, 07:26
arriva falscher pfad nach schließen und öffnen
Keine neuen Beiträge Excel Formeln: Aktuelle Woche öffnen 7 hobbit 294 16. Mai 2012, 23:12
hobbit Aktuelle Woche öffnen
Keine neuen Beiträge Excel Formeln: Bestimmte Dateinnamen öffnen 1 Hase1980 102 04. Apr 2012, 10:36
Gast Bestimmte Dateinnamen öffnen
Keine neuen Beiträge Excel Formeln: Verknüpfte Datei öffnen 3 Mario H 1552 04. Feb 2011, 14:02
Mario H Verknüpfte Datei öffnen
Keine neuen Beiträge Excel Formeln: Beim Excel öffnen ein BegrüssungsBox 1 Moha 302 15. Jul 2010, 17:24
neopa Beim Excel öffnen ein BegrüssungsBox
Keine neuen Beiträge Excel Formeln: Excel Tabbel mit Open office öffnen 1 Wilfried 1101 15. Nov 2009, 21:33
ransi Excel Tabbel mit Open office öffnen
Keine neuen Beiträge Excel Formeln: Excel 2000-Dateien mit Verknüpfungen in 2007 öffnen 1 ToBo 1020 06. Apr 2009, 08:47
Gast Excel 2000-Dateien mit Verknüpfungen in 2007 öffnen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS