via VBA auf Access Formular zugreifen

  • VB6

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von wincnc.

    via VBA auf Access Formular zugreifen

    Hallo,
    ich hoffe mir kann einer eine Auskunft bezueglich meines Problems geben.
    Ich habe eine Access .mde Datei bekommen. Starte ich die .mde Datei, dann oeffnet sich gleich ein Formular, welches auf einen sich im Netz befindenen SQL Server zugreift. Das Formular zeigt mir die Daten an, auf welche ich lesen zugreifen kann. Nun will ich die Daten aber auch benutzen und in eine Datei verwenden. Leider gehoert mit die DB nicht und die .mde Datei wurde mir auch nur zur Verfuegung gestellt, um die Daten der DB auslesen zu koennen (beides gehoert einer anderen Abteilung).
    Nun meine Frage: Gibt es eine Moeglichkeit die Daten via VBA auszulesen, um sie dann zu verarbeiten?

    Ich habe ein wenig durch Netz geschaut, aber keine Anleitung bzw. einen Schnipsel gefunden der mir beschreibt wie ich auf eine Formular zugreifen kann. Deswegen hier mein Aufruf.


    Vielen Dank im voraus.

    Hallo

    Die *.mde Datei kannst Du beim Öffnen mit VB6 oder VBA behandeln wie eine *.mdb Datei.
    Bei mde Dateien ist nur der darin befindliche Code geschützt.

    Hier ein Beispiel wie man mit VBA Excel eine mde Datei und die dazugehörigen Tabellen öffnet:

    Visual Basic-Quellcode

    1. ' Verweis auf Microsoft ActiveX Data Objects 2.x Library nicht vergessen !!!!
    3. Private DB As ADODB.Connection
    4. Private RS As ADODB.Recordset
    6. Private Sub CommandButton1_Click()
    7. Dim SQL As String
    9. ' Datenbank öffnen
    10. Set DB = New ADODB.Connection
    11. DB.CursorLocation = adUseClient
    12. DB.Provider = "Microsoft.Jet.OLEDB.4.0"
    13. DB.Open "D:\DeineMdeDatei.mde"
    16. ' Alle Tabellen der Datenbank auflisten
    17. Dim oTab As Recordset
    18. Set oTab = DB.OpenSchema(adSchemaTables)
    19. Do Until oTab.EOF
    20. If oTab("TABLE_TYPE") = "TABLE" Then
    21. MsgBox oTab("TABLE_NAME")
    22. End If
    23. oTab.MoveNext
    24. Loop
    25. oTab.Close
    28. ' Tabelle öffnen und Daten auslesen
    29. ' Tabelle1 ist als Beispiel gedacht
    30. ' Hier musst Du eine Tabelle nehmen die in der Auflistung der Tabellen vorkommt
    31. Set RS = New ADODB.Recordset
    33. SQL = "SELECT * FROM Tabelle1"
    35. RS.Open SQL, DB, adOpenDynamic, adLockOptimistic
    37. For N = 0 To RS.RecordCount - 1
    38. MsgBox RS(0).Value ' 1. Feld der Tabelle1 auslesen
    39. RS.MoveNext
    40. Next
    41. RS.Close
    42. DB.Close
    44. End Sub