access. 2 tabellen abgleichen

volker

Supermoderator
Teammitglied
Beiträge
5.805
Reaktionspunkte
1.027
Zuviel Werbung?
-> Hier kostenlos registrieren
hallo
ist zwar nicht ganz das passende forum aber ich versuchs trotzdem mal :ROFLMAO:

ich habe hier 2 tabelle. beide haben u.a die spalten artikelNr und interneNr
in tabelle1 sind diverse interneNr hinterlegt.
in tabelle2 sind interneNr noch leer.

ich möchte nun tabelle 1 durchsuchen ob eine interneNr vorhanden ist. ist eine vorhanden soll in tabelle2 nach der artikelnummer gesucht werden und dort die interneNr eingetragen werden.
das natürlich für die komplette tabelle.

such mir seit tagen nen wolf finde aber irgendwie so nicht das richtige.
 
habs über einen kleinen umweg hinbekommen.
abfrage erstellt wellches alle mit interner nr anzeigt. beide relevanten spalten makiert und in eine externe txt-datei exportiert.

dann folgenden code einem schaltelement gegeben.
PHP:
Private Sub Befehl0_Click()
 
Dim db As DAO.Database
Dim fs, datei, zeile, i, bestnr, sap, sql, datenbank
Set fs = CreateObject("Scripting.FileSystemObject")
Set datei = fs.opentextfile("C:\altdaten.txt", 1)
Do While datei.atendofstream <> True
    zeile = datei.readline
    i = InStr(zeile, Chr(9))
    bestnr = Left(zeile, i - 1)
    sap = Mid(zeile, i + 1)
 
    sql = "update ca01_1010 set f_SAP='" & sap & "' where MLFD='" & bestnr & "'"
 
    datenbank = "c:\ca01_1010.mdb"
    Set db = DBEngine.OpenDatabase(datenbank)
    db.Execute sql
Loop
End Sub
nicht unbedingt elegant aber geht.
 
Zurück
Oben