Office: Werte aus Access auslesen, ändern, zurückschreiben

lekcin · 6. Januar 2011

Hallo und einen schönen Samstagabend allen miteinander,

ich bin heute auf der Suche nach einer Möglichkeit via VBA aus Excel heraus bestimmte Werte aus einer Access-Datenbank auszulesen und diese auch wieder zurückzuschreiben.

Nach dem ich den halben Tag im Netz gestöbert habe und keine für mich nachvollziehbare Möglichkeit gefunden habe, bitte ich Euch um Hilfe.

Folgende Ausgangssituation:

Meine Access-Datenbanktabelle und meine Exceltabelle "Vorgang" sind ab A3 in folgende Spalten unterteilt:

ID-Schlüssel...Datensatz A...Datensatz B...Datensatz C

- der ID-Schlüssel ist z.B so aufgebaut: "A.10"

Jetzt möchte ich gern realisieren, dass wen ich auf dem Blatt "Vorgang" in Zelle B1 den Wert "A" eingebe, das alle Zeilen aus der Access-Datenbank denen ein ID-Schlüssel der mit "A" beginnt voransteht, ausgelesen werden und auf dem Blatt "Vorgang" eingefügt werden.

Als nächstes soll es auch möglich sein, das die Daten auf dem Blatt Vorgang nach z.B. einer Änderung wieder in der Access-Datenbank gespeichert werden.

Ich würde mich sehr freuen, wenn die VBA-Spezialisten des Forums mir hier weiterhelfen könnten.

Gern stelle ich auch eine Beispielmappe zur Verfügung.

Vielen Dank und einen schönen Abend!

LG Paula *Smilie

:)

lekcin · 8. Januar 2011

Hallo,

habe jetzt eine Lösung gefunden, die so in die Richtung geht die ich suche.
Wenn ich den Code zum auslesen starte, erscheint die Meldung "Nicht erkennbares Datenbankformat". Ich benutze eine Access DB im Format "accdb"

Kann mir jemand sagen woran das liegt. Ich nehme an ich habe bestimmte Verweise nicht gesetzt, ich weiß allerdings auch nicht welche Verweise zu setzen wären.

Lieben Dank für Eure Hilfe!

LG Paula *Smilie

Der Code:

Code:

Public Sub db_lesen()
Dim pfad
Dim conn As New ADODB.Connection
Dim rs_daten As New ADODB.Recordset
Dim id As String
id = Range("C16").Value
pfad = ActiveWorkbook.Path & "\db.accdb"
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pfad
Set rs_daten = New ADODB.Recordset
With rs_daten
.ActiveConnection = conn
.CursorType = adOpenKeyset
.CursorLocation = adUseServer
.LockType = adLockOptimistic
.Source = "DB"
.Open Options:=adCmdTableDirect
End With
rs_daten.Index = "PrimaryKey"
rs_daten.Seek (id)
If rs_daten.BOF = True Or rs_daten.EOF = True Then
MsgBox "Datensatz nicht gefunden."
Else
Range("D16").Value = rs_daten.Fields("2010").Value
Range("E16").Value = rs_daten.Fields("2009").Value
Range("F16").Value = rs_daten.Fields("2008").Value
End If
rs_daten.Close
conn.Close
End Sub

Public Sub db_schreiben()
Dim pfad
Dim conn As New ADODB.Connection
Dim rs_daten As New ADODB.Recordset
Dim id As String
id = Range("C4").Value
pfad = ActiveWorkbook.Path & "\test.mdb"
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pfad
Set rs_daten = New ADODB.Recordset
With rs_daten
.ActiveConnection = conn
.CursorType = adOpenKeyset
.CursorLocation = adUseServer
.LockType = adLockOptimistic
.Source = "DB"
.Open Options:=adCmdTableDirect
End With
rs_daten.Index = "PrimaryKey"
rs_daten.Seek (id)
If rs_daten.BOF = True Or rs_daten.EOF = True Then
MsgBox "Datensatz nicht gefunden."
Else
rs_daten.Fields("2010").Value = Range("D16").Value
rs_daten.Fields("2009").Value = Range("E16").Value
rs_daten.Fields("2008").Value = Range("F16").Value
End If
rs_daten.Update
rs_daten.Close
conn.Close
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Werte aus Access auslesen, ändern, zurückschreiben

Werte aus Access auslesen, ändern, zurückschreiben

Werte aus Access auslesen, ändern, zurückschreiben

Werte aus Access auslesen, ändern, zurückschreiben - Similar Threads - Werte Access auslesen

Wenn ein Wert ein einer Spalte, dann komplette Zeile im anderen Blatt untereinander einfügen.

Abfrageergebnis soll keine doppelten Werte enthalten

Berechnung mit Bedingung

Access Abfrage: Mehrere Werte in einer Zelle auflisten (mit "; " getrennt)

In Access aus mehreren Spalten kleinsten oder größten Wert in weiter Spalte ausgeben

Aus access überprüfen ob in einer Spalte "Wert" vorhanden ist

Access 2000 Werte ersetzen