Copie d'un jeu d'enregistrements à l'autre

Depuis que j'ai reçu tellement agréable et rapide solution à mon problème, je vais essayer à nouveau pour obtenir de l'aide auprès de vous:

J'ai ouvert deux jeux d'enregistrements.

 Set cmd1.ActiveConnection = cn1
 cmd1.CommandText = "SELECT * FROM mov Where [Date] >= #" & DateA & "#;"
 Set RSold = cmd1.Execute

 Set cmd2.ActiveConnection = cn2
 cmd2.CommandText = "SELECT * FROM mov"
 Set RSnew = cmd2.Execute

(Je veux enregistrer uniquement les enregistrements sélectionnés d'un fichier.)

Je sais comment copier un enregistrement par enregistrement, mais est-il un 'raccourci' pour faire plus vite ?

Grâce

double possible de Profondeur de Copier ou Cloner un jeu d'enregistrements ADODB en VBA

OriginalL'auteur user1838163 | 2012-11-20

  1. 1

    essayez ceci:

    Dim i As Long
Do While Not RSold.EOF
    ' You can place if condition here
    RSNew.AddNew
    For i = 0 To RSold.Fields.Count - 1
        RSNew.Fields(RSold.Fields(i).Name) = RSold.Fields(i).Value
    Next i
    RSNew.Update
    RSold.MoveNext
Loop

    Cela va copier les enregistrements de RSold à RSnew jeu d'enregistrements

    Une remarque: Vous pouvez avoir spéciales aux les champs numéroauto que vous avez de sorte qu'ils sont ignorés. À l'intérieur de la boucle For, ajoutez le code qui effectue une vérification pour le nom du champ, et saute définissant le champ.
    Merci Hassan. Je suis en train de faire la copie aussi rapide que possible.
    Au-dessus de copier les processus de prise de ma nouvelle recodset statut de fermer.

    OriginalL'auteur hassan

  2. 0

    Je pense que cela va faire ce que vous voulez en le faisant tout à la fois.

    Dim objPB As New PropertyBag

objPB.WriteProperty "rs", RSOld
Set RSNew = objPB.ReadProperty("rs")

Set objPB = Nothing
    Merci Joe. C'est exactement ce que je Recherche. Lorsque j'exécute le code, j'obtiens un message d'Erreur "cette interface n'est Pas pris en charge. -2147467262.
    S'il vous plaît aider. Je suis toujours bloqué avec ce problème. Surched le net, ne peut pas trouver de solution.
    Majsterski : je veux mettre à jour de nouvelles recorset je.e RSNew.Mais au-dessus de processus de copie ne m'autorise pas à mettre à jour l'enregistrement défini.

    OriginalL'auteur Joe M

  3. 0

    Vous Pouvez utiliser le code :

    Ensemble RSNew = RSOld.Clone

    @user1838163 :Saving the second Recordset as a file

Dim RFileNm  As String 
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")

RFileNm  = "c:\temp\" & Trim(RFileNm) & ".adt"
fs.DeleteFile (RFileNm)
RSNew .Save RFileNm, adPersistADTG
RSNew .Close
RSNew .Open RFileNm, , , , adCmdFile
    Grâce Preeti. Si j'utilise le "Clone", comment faire pour enregistrer le deuxième jeu d'enregistrements dans un fichier ?
    Je vous remercie. Quand je lance le CLONE de la ligne, j'obtiens le message d'Erreur suivant: "Actuelle du jeu d'enregistrements ne prend pas en charge les signets. Cela peut être une limitation du fournisseur ou de l'sélectionnés cursortype" Ce que je fais mal ?
    Le jeu d'enregistrements est probablement un jeu d'enregistrements, ReadOnly jeu d'enregistrements. Assurez-vous que la table possède une Clé Primaire.
    Ok.Bon. Got que. Maintenant, Il est en cours d'exécution, mais le Fichier créé ne peut pas être ouvert dans l'ACCÈS. Le message d'Erreur est "ne reconnaît Pas le format de fichier". Désolé... je appretiate de votre aide.
    créer des accès de fichier à la place de ".adt" fichier

    OriginalL'auteur Preeti

  4. 0

    Je ne pense pas que le CLONE va faire ce que vous voulez. Il vous donne une autre vue du même jeu d'enregistrements que vous avez déjà. Cela vous permet d'utiliser plusieurs signets et ainsi de suite, mais le jeu d'enregistrements est encore attaché à la même base de données que l'original était. J'ai aussi besoin d'un moyen de copier le jeu d'enregistrements et de l'enregistrer sur une nouvelle base de données dans un nouveau format.

    Salut, et bienvenue. Pour info, si vous n'avez pas la réponse à la question, il est préférable de mettre votre contenu dans un commentaire plutôt qu'une réponse.

    OriginalL'auteur John Rasor