Dialog Excel <-> Access
16.01.2006 11:41:58
MikeS
wo kann ich Beispiele für den Datenaustausch zwischen Excel und Access finden.
Ich möchte von einer Excel-UF auf eine Access-DB zugreifen und Daten aus dieser DB auslesen, sie verändern und wieder zurück schreiben. Und da scheitere ich, denn ich kann mit meinem Code nur neue Datensätze anfügen (Methode .AddNew). Die Methode .Edit ist nicht vorgesehen :o(
Wer kann mir weiterhelfen?
Option Explicit
Const DBPfad = "C:\Test\Test.mdb"
Private Sub form_load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=4;"
.ConnectionString = "Data Source =" & DBPfad
.Open
End With
With rs
.ActiveConnection = cn
.Source = "Select * From Daten Where Pos = 150 Order By Auftrag, Pos;"
.Open
End With
' Daten aus DB in Excel übertragen
Range("A2") = rs.Fields("Auftrag")
'Range("A2").CopyFromRecordset rs
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub
Vielen Dank
MikeS
Anzeige