Discussion :

[ShutleX20]

Salut tout le monde

Je ne sais pas si ce que je veux faire existe en Vb mais je poses kan meme ma question. Dans une boucle Do - While j'extrais des lignes d'une grande table pour en creer une 2eme selon un test. Je voudrais savoir s'il ya un moyen rapide de copier toute la ligne extraite dans le Recorset destination sans avoir copier un par un tout les champs.
Voici a peu pres mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Do While ptrCap.EOF = False
        If ptrCap!Id_StaffNumber = Valeur Then
                PtrFoSel.AddNew
                     PtrFoSel!Id_StaffNumber = ptrCap!Id_StaffNumber
                        ' Cette Instruction je la repete pour tout les champs ( 50 )
        End If
 Wend

Merci pour votre aide

[Megaxel]

Ça ne marche pas si tu fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set PtrFoSel = ptrCap

?????

[AdHoc]

Bonjour,
je ne sais pas si cela va te plaire, mais pourquoi ne pas utiliser une requete sql:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
SELECT SOURCE.* INTO DEST
[IN externaldatabase]
FROM SOURCE
WHERE condition