Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Datenbankabgleich
Autor: Ralf
Datum: 28.11.01 10:02
Hallo, ich lese Felder aus einer Textdatei an. Diese Felder werden dann in eine Access Datenbank gespeichert, nun sollen aber die Felder mit der Datenbank verglichen werden ob sie schon da sind oder nicht, so das die jüngeren Felder die äleren gleichen Felder überschreiben. Ich habe es mit folgenden Code probiert: Dim DB As Database Dim dbFile As String Dim dbTable As Recordset Dim dbVorgNr As String Dim dbSQL As String Dim dbRS As Recordset dbFile = App.Path + "export.mdb" Set DB = Workspaces(0).OpenDatabase(dbFile) Set dbTable = DB.OpenRecordset("Vorgang") dbVorgNr = Right(strVorgNr, 5) dbSQL = "SELECT * FROM Vorgang WHERE V_Nummer='" & dbVorgNr & "'" Set dbRS = DB.OpenRecordset(dbSQL, dbOpenSnapshot, dbOpenForwardOnly) If dbRS.RecordCount = 0 Then ' noch nicht vorhanden dbTable.AddNew Else ' vorhanden dbTable.Edit End If dbTable("V_Nummer") = dbVorgNr dbTable("K_Nummer") = strKunde dbTable("E_Datum") = strDatum dbTable("E_Nummer") = strEmpf dbTable("Ein_Aus") = strMode dbTable("B_Zeile1") = strZeile1 dbTable("B_Zeile2") = strZeile2 dbTable("B_Zeile3") = strZeile3 dbTable("B_Zeile4") = strZeile4 dbTable("Kfz_nr") = Trim(strKfz) dbTable("Anh_nr") = Trim(strAnh) dbTable("Liefer_Art") = strLiefArt dbTable("Kfz_Brutto") = strKfzBrutto dbTable("Kfz_Netto") = strKfzNetto dbTable("Kfz_Tara") = strKfzTara dbTable("Anh_Brutto") = strAnhBrutto dbTable("Anh_Netto") = strAnhNetto dbTable("Anh_Tara") = strAnhTara dbTable("Ref_Nr") = strRefNr dbTable("Export") = "N" dbTable.Update dbRS.Close Set dbRS = Nothing der klappt nur leider nicht so ganz, ich hab immer das erste eingelsene Feld in der Datenbank, kommt das Feld später nochmal überschreibt er es nicht. Danke und Gruss Ralf

Datenbankabgleich	70	Ralf	28.11.01 10:02
Re: Datenbankabgleich	252	Dieter	28.11.01 10:35
Re: Datenbankabgleich	45	Ralf	28.11.01 14:37

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen