[VB] problem de d echange de base de donnée avec recordset resolu THX

Recherche :

Dernière réponse
Sujet : [VB] problem de d echange de base de donnée avec recordset resolu THX
HOYo	c vrai desoler mais bon c etait pour que ceux qui m aient aider puise voir le message et j etait trop content quand ca a marcher pour reflechir mais je le redi t a entierement raison

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

HOYo	c vrai desoler mais bon c etait pour que ceux qui m aient aider puise voir le message et j etait trop content quand ca a marcher pour reflechir mais je le redi t a entierement raison

El Scorcho

Tu vas t'faire engueuler toi... Ca servait à rien d'ouvrir un nouveau topic pour ça, fallait utiliser l'ancien !!! :ouch:

HOYo

Donc pour ceux que ca interresse voila le code :
Et un GRAND merci a tous ceux qui on repondu a mes messages
Bien qu ils ne furent pas nombreux :p
mais bon c pas la quantité c la qualité qui compte :fuck:

aller et merci encore :hello:

Sub import()

Dim rstsource As Recordset
Dim rstcible As Recordset
Dim rstContenu As Recordset
Dim MyNum As Integer
Dim MyString As String
Dim dbs As Database
Dim Compteur As Integer
Dim i As Integer
Dim j As Integer
Dim dbs2 As Database

Set dbs = OpenDatabase("PQP97.mdb" )
Set dbs2 = OpenDatabase("Urcam-Pqp.mdb" )
Set rstcible = dbs2.OpenRecordset("LOL", dbOpenDynaset)
Set rstsource = dbs.OpenRecordset("PROJETS", dbOpenDynaset)

Set dbs = OpenDatabase("PQP97.mdb" )

Compteur = 0

Do While Not rstsource.EOF
Set rstContenu = dbs.OpenRecordset("SELECT finalite from [PROJETS]" & rstsource.Fields(0).Value, dbOpenDynaset)
MyString = ""
If Not rstContenu.EOF Then
MyString = HyperlinkPart(rstContenu.Fields(0).Value, acDisplayText)
rstContenu.MoveNext
Do While Not rstContenu.EOF
MyString = MyString & ", " & HyperlinkPart(rstContenu.Fields(0).Value, acDisplayText)
rstContenu.MoveNext
Loop
End If

With rstcible
.AddNew
![facteur] = rstsource.Fields(4).Value
If Len(MyString) > 0 Then
'.Fields(1) = MyString
Else
.Fields(0) = Null
End If
.Update
End With

rstsource.MoveNext
Loop
rstcible.Close
End Sub