daten aus excel nach access (mdb) exportieren

Chrisi99 · 07.07.2004, 08:33

ich habe jetzt zum ändern folgenden (praktischen ) code

Code:

Sub ändern()

Dim oAcc As New Access.Application
oAcc.OpenCurrentDatabase ("J:\PROJEKT\PIS\test\test.mdb")
oAcc.Visible = False 'fürs entwickeln angenehm
Dim db As DAO.Database
Dim rs As DAO.Recordset


Set db = oAcc.CurrentDb
Set rs = db.OpenRecordset("Autos", dbOpenDynaset)


    'einen Datensatz suchen
    rs.FindFirst "PNR=" & var & ""
    If rs.NoMatch Then
    'Nix gefunden
    Else
    'Datensatz ändern
    rs.Edit
    rs!Marke = car
    rs.Update
    End If
    rs.Close
    Set db = Nothing

[gekürzt]

kann ich dieses Konstrukt auch zum Auslesen verwenden? (damit ich ein einheitliches System habe)?

so gaaaanz langsam bekomm ich einen Plan von der Geschichte... aber nur langsam

mfg

07.07.2004, 08:33	#19
Chrisi99 Inventar Registriert seit: 22.12.2002 Alter: 40 Beiträge: 2.644 Mein Computer	ich habe jetzt zum ändern folgenden (praktischen ) code Code: Sub ändern() Dim oAcc As New Access.Application oAcc.OpenCurrentDatabase ("J:\PROJEKT\PIS\test\test.mdb") oAcc.Visible = False 'fürs entwickeln angenehm Dim db As DAO.Database Dim rs As DAO.Recordset Set db = oAcc.CurrentDb Set rs = db.OpenRecordset("Autos", dbOpenDynaset) 'einen Datensatz suchen rs.FindFirst "PNR=" & var & "" If rs.NoMatch Then 'Nix gefunden Else 'Datensatz ändern rs.Edit rs!Marke = car rs.Update End If rs.Close Set db = Nothing [gekürzt] kann ich dieses Konstrukt auch zum Auslesen verwenden? (damit ich ein einheitliches System habe)? so gaaaanz langsam bekomm ich einen Plan von der Geschichte... aber nur langsam mfg ____________________________________ Der Unterschied zwischen Theorie und Praxis ist, das es in der Theorie keinen Unterschied zwischen Theorie und Praxis gibt, in der Praxis aber schon. Wer schreibt, der bleibt!

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)