Zuviel Werbung? - > Hier kostenlos beim SPS-Forum registrieren

Ergebnis 1 bis 2 von 2

Thema: access. 2 tabellen abgleichen

  1. #1
    Registriert seit
    20.06.2003
    Ort
    Sauerland.NRW.Deutschland
    Beiträge
    4.862
    Danke
    78
    Erhielt 805 Danke für 548 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    hallo
    ist zwar nicht ganz das passende forum aber ich versuchs trotzdem mal

    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.
    .
    mfg Volker .......... .. alles wird gut ..

    =>Meine Homepage .. direkt zum Download

    Meine Definition von TIA: Total Inakzeptable Applikation
    Zitieren Zitieren access. 2 tabellen abgleichen  

  2. #2
    Registriert seit
    20.06.2003
    Ort
    Sauerland.NRW.Deutschland
    Beiträge
    4.862
    Danke
    78
    Erhielt 805 Danke für 548 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    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[/PHP]
    nicht unbedingt elegant aber geht.
    .
    mfg Volker .......... .. alles wird gut ..

    =>Meine Homepage .. direkt zum Download

    Meine Definition von TIA: Total Inakzeptable Applikation

Ähnliche Themen

  1. Systemzeit nach Atomuhr abgleichen
    Von Josef Scholz im Forum Stammtisch
    Antworten: 5
    Letzter Beitrag: 06.04.2012, 18:13
  2. Passwörter zwischen Panels abgleichen
    Von Martin_81 im Forum HMI
    Antworten: 7
    Letzter Beitrag: 11.02.2012, 19:47
  3. Excel-Tabellen in SPS
    Von ghostbrain im Forum Sonstige Steuerungen
    Antworten: 2
    Letzter Beitrag: 06.05.2011, 12:58
  4. Zwei Rezepturverwaltungen abgleichen
    Von Heizerfraktion im Forum HMI
    Antworten: 2
    Letzter Beitrag: 24.01.2011, 22:35
  5. Datensätze abgleichen WinCC Flex 2008 SP2
    Von Juergena im Forum HMI
    Antworten: 3
    Letzter Beitrag: 29.07.2010, 09:42

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •