Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Datenbankabgleich
Autor: Ralf
Datum: 29.10.01 15:34
Hallo, ich habe folgendes Problem: Ich habe 2 Tabellen die von DBase nach Access importiert werden müssen. Einmal die Vorgang.dbf und einmal die Vmateria.dbf. Die Vorgang.dbf wird Problemlos importiert, wobei nur die Datensätze importiert werden, welche älter sind als der 01.07.2001, aber wie gesagt das Funktioniert. Nun sollen aus der Vmateria.dbf nur die Datensätze importiert werden, in dem die gleich Vorgangsnummer steht wie in der Vorgang.dbf. Problem ist folgendes: die Nummer der Vorgang ist vom Format " xxxx" Die Nummer bei der Vmateria ist " xxxx-y" wobei y die nummer der Position angibt (max. 5) Ich habe nun folgenden Code: ' Access Tabelle öffnen und Datensätze übertragen Set TabAccess = dbAccess.OpenRecordset(NameDBase) While Not TabDBase.EOF ' Protokoll nr. aus Tabelle Vorgang hohlen Set rs2 = dbAccess.OpenRecordset("Vorgang") strProtNr = FeldInhalt(rs2("V_nummer")) ' zunächst prüfen, ob der Datensatz bereits vorhanden! strPosNr = Left$(FeldInhalt(TabDBase("Va_Artnr")), InStrRev(FeldInhalt(TabDBase("Va_Artnr")), "-") - 1) If strPosNr <> "" Then SQL = "SELECT Va_Artnr FROM Vmateria WHERE " & strProtNr & " <> " & strPosNr Set rs = dbAccess.OpenRecordset(SQL, dbOpenSnapshot, dbOpenForwardOnly) If rs.RecordCount = 0 Then ' noch nicht vorhanden! TabAccess.AddNew For i = 0 To TabDBase.Fields.Count - 1 TabAccess(i) = TabDBase(i) Next i TabAccess.Update End If rs.Close Set rs = Nothing rs2.MoveNext End If TabDBase.MoveNext Wend leider funktioniert es nicht so ganz. thx ralf

Datenbankabgleich	135	Ralf	29.10.01 15:34
Re: Datenbankabgleich	394	unbekannt	29.10.01 18:12
Re: Datenbankabgleich	50	Ralf	30.10.01 07:58
Re: Datenbankabgleich	50	Ralf	30.10.01 15:36

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