Question : BOF ou EOF de l'erreur d'exécution 3021 le « est vrai, ou l'article courant a été supprimé.


j'essaye de déplacer des disques d'une table de base de données à une autre table de base de données (mais à la même structure dans les les deux la table)

coder est attaché
 
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :

Raccordement de '''''''''' pour le dossier de Mover.MDB pour des données de transfert de Trant.MDb à Mover.MDB
    Si RecvKKL_Cnn.State = 1 puis RecvKKL_Cnn.Close
        RecvKKL_Cnn.Open « Provider=Microsoft.Jet.OLEDB.3.51 ; Point d'émission = » et App.Path et » \ Mover.mdb ; Gicleur OLEDB : Base de données Password=xxxxxxxx "


    Si RecvLCL.State = 1 puis RecvLCL.Close
        RecvLCL.Open « choisissent * à partir de B_Detail OÙ LsNo = » et Text1 (18) .text et « et contrôle = 1 », escroquerie, adOpenKeyset, adLockOptimistic
        
    Si RecvKKL.State = 1 puis RecvKKL.Close
        RecvKKL.Open « choisissent * à partir de B_Detail », RecvKKL_Cnn, adOpenKeyset, adLockOptimistic
        
        Si RecvLCL.RecordCount > 0 puis
        
            Tandis que pas RecvLCL.EOF
                
                RecvKKL ! bno = RecvLCL ! bno
                RecvKKL ! Mode = RecvLCL ! Mode
                RecvKKL ! bdate = RecvLCL ! bdate
                
                RecvLCL.MoveNext
            Wend
        Finir si

Réponse : BOF ou EOF de l'erreur d'exécution 3021 le « est vrai, ou l'article courant a été supprimé.

Je vous pense le besoin d'ajouter un nouveau record chaque fois, et puis le mets à jour avant d'additionner le prochain.
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :

Raccordement de '''''''''' pour le dossier de Mover.MDB pour des données de transfert de Trant.MDb à Mover.MDB
    Si RecvKKL_Cnn.State = 1 puis RecvKKL_Cnn.Close
        RecvKKL_Cnn.Open « Provider=Microsoft.Jet.OLEDB.3.51 ; Point d'émission = » et App.Path et » \ Mover.mdb ; Gicleur OLEDB : Base de données Password=xxxxxxxx "


    Si RecvLCL.State = 1 puis RecvLCL.Close
        RecvLCL.Open « choisissent * à partir de B_Detail OÙ LsNo = » et Text1 (18). Texte et « et contrôle = 1 », escroquerie, adOpenKeyset, adLockOptimistic
        
    Si RecvKKL.State = 1 puis RecvKKL.Close
        RecvKKL.Open « choisissent * à partir de B_Detail », RecvKKL_Cnn, adOpenKeyset, adLockOptimistic
        
        Si RecvLCL.RecordCount > 0 puis
        
            Tandis que pas RecvLCL.EOF
                RecvKKL.AddNew '<--------- RecvKKL="">
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us