title image


Smiley opendatabase mit passwort
Hallo,



ich möchte mit insert Datensätze in eine andere mdb übertragen. Problem: diese mdb ist mit einem Kennwort versehen. Bei dem folgenden Versuch kommt komischerweise die Meldung "falsches Kennwort" obwohl es stimmt. In Me.Pfad wird die Zieldatenbank eingegeben, z. B. H:\\Ordner\Datenbank.mdb.

Weiß jemand eine Lösung?



Besten Gruß



Peter

-------------------------------------

Private Sub BefTrans_Click()

On Error GoTo Err_BefTrans_Click



Dim conPfad As String

conPfad = Me.Pfad

Dim zieldb As Database



If conPfad "" Then



MsgBox ("Die Daten werden nach Bestätigen mit 'OK' angefügt.")



Set zieldb = OpenDatabase(conPfad, False, False, ";pwd=Bambus")



'Die Aktualisierungs-Meldeboxen werden inaktiviert

DoCmd.SetWarnings (False)



DoCmd.RunSQL "INSERT INTO KlinikStamm IN'" & conPfad & _

"' SELECT KlinikStamm.*" & _

"FROM KlinikStamm;"

...

'weitere insert-Statements

...

DoCmd.SetWarnings (True)



Set zieldb = Nothing



MsgBox ("Der Datentransfer ist beendet.")



End If

...



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: