Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Nach DB-Reorg zuwenig Datensätze
Autor: Prian0815
Datum: 03.07.06 14:22
Hallo an alle, Ich habe in VB6.,0 ein PÜrog geschrieben, welches eine beastehende Access.XP - Datenbank reorganisieren soll. Das Programm läuft soweit auch super, Allerdings habe ich nach der Auasführung in der neuebn MDB in einer Tabelle("Anrufe") anstatt 11768 DEatensätzen nur 11294. Also 474 Datensätze zuwenig. sämtliche Zählvariablen(für die Keywerte) sind als Integer deklariert. Kann es sein, dass hier eine Integervariable nicht ausreicht? In allen anderen Tabellen stimmt die Anzahl der Sätze überein. Hier noch die wichtigsten Code - Ausschnitte. RSK.MoveFirst Do While RSK.EOF = False hKid_Alt = RSK!Kontakt_Nr RSK_NEU.AddNew RSK_NEU!Kontakt_Nr = hKid ... Hier werden noch alle GFelder der Tabelle "Kontaktpersonen gelesen RSK_NEU!Anp_Nr = RSK!Anp_Nr RSK_NEU.Update Ansprechpartner_lesen RSK.MoveNext hKid = hKid + 1 Loop Private Sub Ansprechpartner_lesen() STSQL = "SELECT * From Ansprechpartner" _ & " WHERE (((Ansprechpartner.Anp_Kontakt_Nr) = " & hKid_Alt & "));" Set RSANP = db.OpenRecordset(STSQL) If RSANP.RecordCount > 0 Then RSANP.MoveFirst Do While RSANP.EOF = False 'alte AnsprechpartnerNr. auslesen hAnpnr_Alt = RSANP!Anp_Nr 'letzte vergebene Ansprechpartnernummer(NEU) ermitteln! STSQL = "SELECT Ansprechpartner.Anp_Nr" _ & " From Ansprechpartner" _ & " ORDER BY Ansprechpartner.Anp_Nr;" Set RSANP_seek = db_Neu.OpenRecordset(STSQL) If RSANP_seek.RecordCount > 0 Then RSANP_seek.MoveLast hAnpnr_Neu = RSANP_seek!Anp_Nr hAnpnr_Neu = hAnpnr_Neu + 1 Else hAnpnr_Neu = 1 End If RSANP_seek.Close Set RSANP_seek = Nothing Set RSANP_Neu = db_Neu.OpenRecordset("Ansprechpartner") RSANP_Neu.AddNew RSANP_Neu!Anp_Nr = hAnpnr_Neu RSANP_Neu!Anp_Anrede = RSANP!Anp_Anrede RSANP_Neu!Anp_Nachname = RSANP!Anp_Nachname RSANP_Neu!Anp_Durchwahl = RSANP!Anp_Durchwahl RSANP_Neu!Anp_Kontakt_Nr = hKid RSANP_Neu.Update Anrufe_lesen RSANP_Neu.Close Set RSANP_Neu = Nothing RSANP.MoveNext Loop Else 'letzte vergebene Ansprechpartnernummer(NEU) ermitteln! STSQL = "SELECT Ansprechpartner.Anp_Nr" _ & " From Ansprechpartner" _ & " ORDER BY Ansprechpartner.Anp_Nr;" Set RSANP_seek = db_Neu.OpenRecordset(STSQL) If RSANP_seek.RecordCount > 0 Then RSANP_seek.MoveLast hAnpnr_Neu = RSANP_seek!Anp_Nr hAnpnr_Neu = hAnpnr_Neu + 1 Else hAnpnr_Neu = 1 End If RSANP_seek.Close Set RSANP_seek = Nothing Set RSANP_Neu = db_Neu.OpenRecordset("Ansprechpartner") RSANP_Neu.AddNew RSANP_Neu!Anp_Nr = hAnpnr_Neu If RSK!MW = "M" Then RSANP_Neu!Anp_Anrede = "Herr" Else RSANP_Neu!Anp_Anrede = "Frau" End If RSANP_Neu!Anp_Nachname = RSK!Nachname RSANP_Neu!Anp_Durchwahl = RSK!Durchwahl RSANP_Neu!Anp_Kontakt_Nr = hKid RSANP_Neu.Update Anrufe_lesen RSANP_Neu.Close Set RSANP_Neu = Nothing End If RSANP.Close Set RSANP = Nothing End Sub Private Sub Anrufe_lesen() STSQL = "SELECT * From Anrufe" _ & " WHERE (((Anrufe.Kontakt_Nr)=" & hKid_Alt & ") AND ((Anrufe.Anp_nr)=" _ & hAnpnr_Alt & "));" Set RSA = db.OpenRecordset(STSQL) If RSA.RecordCount > 0 Then RSA.MoveFirst Do While RSA.EOF = False hAid = hAid + 1 RSA_NEU.AddNew RSA_NEU!Anruf_Nr = hAid RSA_NEU!Kontakt_Nr = hKid RSA_NEU!Anrufdatum = RSA!Anrufdatum RSA_NEU!Anrufzeit = RSA!Anrufzeit RSA_NEU!Bemerkung = RSA!Bemerkung RSA_NEU!Einschätzung = RSA!Einschätzung RSA_NEU!Besuch = RSA!Besuch RSA_NEU!ErstKontakt = RSA!ErstKontakt RSA_NEU!Bemerkung2 = RSA!Bemerkung2 RSA_NEU!Besuchsbericht = RSA!Besuchsbericht RSA_NEU!Anp_Nr = hAnpnr_Neu RSA_NEU.Update RSA.MoveNext Loop End If RSA.Close Set RSA = Nothing End Sub Bin euch für jeden Hinweis dankbar Gruß Armin P.S.: always look on the bright side of Life!

Nach DB-Reorg zuwenig Datensätze	1.157	Prian0815	03.07.06 14:22
Re: Nach DB-Reorg zuwenig Datensätze	761	BAStler	03.07.06 15:11
Re: Nach DB-Reorg zuwenig Datensätze	678	Prian0815	03.07.06 15:49
Re: Nach DB-Reorg zuwenig Datensätze	616	Prian0815	03.07.06 16:36
Re: Nach DB-Reorg zuwenig Datensätze	669	Prian0815	05.07.06 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