Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Datenbankabgleich
Autor: Ralf
Datum: 30.10.01 15:36
Habs inzwischen n bisschen hinbekommen, hab jetzt nur noch das problem, das laufzeitfehler 5 kommt, beim ersten durchlauf, beim zweiten gehts dann hier der code: Set TabAccess = dbAccess.OpenRecordset(NameDBase) Set rs2 = dbAccess.OpenRecordset("Vorgang") Set rs3 = dbAccess.OpenRecordset("Vmateria") While Not TabDBase.EOF ' Protokollnr. aus Tabelle Vorgang hohlen strProtNr = FeldInhalt(rs2("V_nummer")) VorgNr = FeldInhalt(rs2("Ref_Nr")) ' zunächst Selektieren strVorgNr = Left$(FeldInhalt(TabDBase("Va_Artnr")), InStrRev(FeldInhalt(TabDBase("Va_Artnr")), "-") - 1) strVorgNr = " " & strVorgNr SQL = "SELECT V_Nummer FROM Vorgang WHERE '" & strProtNr & "' = '" & strVorgNr & "'" Set rs4 = dbAccess.OpenRecordset(SQL, dbOpenSnapshot, dbOpenForwardOnly) If rs4.RecordCount <> 0 Then ' prüfen ob Datensatz bereits vorhanden! strPosNr = FeldInhalt(rs3("Va_Artnr")) SQL = "SELECT Va_Artnr FROM Vmateria WHERE " & "Va_artnr = '" & strPosNr & "'" Set rs5 = dbAccess.OpenRecordset(SQL, dbOpenSnapshot, dbOpenForwardOnly) If rs5.RecordCount = 0 Then ' noch nicht vorhanden! TabAccess.AddNew For i = 0 To TabDBase.Fields.Count - 1 TabAccess(i) = TabDBase(i) Next i TabAccess("ProtNr") = strProtNr TabAccess("VorgNr") = VorgNr TabAccess.Update End If rs2.MoveNext rs3.MoveNext End If rs5.Close Set rs5 = Nothing rs4.Close Set rs4 = Nothing strProtNr = "" strVorgNr = "" strPosNr = "" TabDBase.MoveNext Wend

Datenbankabgleich	136	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	51	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