title image


Smiley von Excel aus Access-DB mit Kennwort öffnen - Klappt nicht ganz
Hallo zusammen, ich möchte von EXCEL aus eine Kennwortgeschützte Access-DB öffnen.

Ohne Kennwort gehts mit Kennwort gehts nicht - wo liegt der Fehler:

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

Private Sub cmdRead_Click()

Dim dbfile As String ' Datenbankname

Dim dbs As Database ' Datenbank

Dim qdf As QueryDef ' Datenbankabfrage

Dim rec As Recordset ' Ergebnis der Datenbankabfrage

Dim mysql As String ' ein SQL-Befehl

Dim mynum As Integer ' die aktuelle Nummer

Dim i As Long ' Zeilennummer



dbfile = "Z:\DB\ABC.mdb"

Set dbs = OpenDatabase(dbfile), ";PWD=Test") 'HIER LIEGT DAS PROBLEM !!!!!



With dbs

mynum = [B16]

mysql = "Select F2, F3, F4, F5 from Ma_Daten where F1 = " & mynum & ";"

Set qdf = .CreateQueryDef("", mysql)

' Ergebnis der Abfrage holen

Set rec = qdf.OpenRecordset(dbOpenSnapshot)

If Not rec.EOF Then

[c16] = rec.Fields(0).Value

[D16] = rec.Fields(1).Value

[E16] = rec.Fields(2).Value

[F16] = rec.Fields(3).Value



End If

End With

dbs.Close

End Sub
Beste Grüße aus dem wilden Süden von Deutschland

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: