Discussion :

[NiGHtyWolf]

Bonjour
Voilà encore une fois un autre problème je souhaite extraire les lignes qui se trouvent dans une table1, et qui ne se trouvent pas dans une table2.
Celà est possible avec Sql si on fait le (select champ1 from table1 where champ1 not in (select champ1 from table2))
Je pouvais intégrer cette ligne Sql avec un bd.Execute("select ....") et ca marchera, mais le problème que j'ai c'est mes deux tables ne sont pas dans la meme base de données
si je fais une boucle pour rechercher les lignes desirees, cela va me prendre un immense temp sachant que les deux tables contiennent dans les environs de 30000 lignes.
Cela sera une grande perte de temp si on dit pas blocage avec une boucle ordinaire si on veut juste chercher deux ou trois lignes

Quelqu'un a une idée peut etre?
Merci à vous d'avance, j'ai confiance en vous

[Le Pharaon]

Je ne l'ai jamais testé mais je sais qu'il existe des SGBD qui permettent de créer des vues sur des tables appartenant à des bases de données différentes.

Tu fais ta requête sur la vue et le reste est géré par ton SGBD.

[Vld44]

Sous oracle on a le DBLink, ça marche pas mal.

[NiGHtyWolf]

Effectivement, pour les gros SGBD, y'a des outils qui permettent le faire, cependant, je n'utilise que MS Access, deux bd access que j'essai de lié leurs tables pour une recherche, mais je trouve toujours pas une solution optimale.

[Le Pharaon]

Tu peux, même sous Access, importer une des tables dans l'autre base et de faire ta requête.
Si tu veux faire en VB ce qui relève des compétences de ton SGBD tu risques d'avoir de mauvaises surprises.

[NiGHtyWolf]

Pour l'importation c'eest ce que je veux faire, bref, j'ai fait un bout de code comme suivant, il vérifi si les deux tables ont le meme recordcount, sinon il vide la 2éme et la remplie avec les nouvelles valeurs, ca c'est gros probléme, ca prend du temp comme je l'ai dit, et ca peut planter meme la machine :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
If t6.RecordCount > t7.RecordCount Then
 
    base3.Execute ("DELETE FROM produit")
    t6.MoveFirst
    Do Until t6.EOF
        t7.AddNew
        For i = 0 To 59
            t7.Fields(i) = t6.Fields(i)
        Next i
        t7.Update
    t6.MoveNext
    Loop
 
End If

LE code suivant je l'ai optimisé pour que ce ne soit pas lourd pour la recherche, j'ai pensé à utiliser l'argument TOP du SQL d'access, (LIMIT pour d'autres SGBD), puisque ma table contient une clé primaire qui par defaut un Numero Auto, donc, la variable NM (Integer) contient la soustraction des deux recordcount pour obtenir le nombre de lignes qui font la différence, et je les lets en ordre decroissant.
La variable Req (String) contient la requete SQL à executer pour obtenir les lignes manquants, avec le TOP comme vous le remarquez qui a comme valeur la variable NM.
Cette méthode ne me donne pas toujours un bon résultat, y'a toujours des lignes manquant ou bien des lignes de surplus, surtout que j'ai des relations complexes entre les tables.
J'attend toujours une idée, je sais qu'il existe une solution, (Je perd pas éspoire )

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
If t.RecordCount > t1.RecordCount Then
NM = t.RecordCount - t1.RecordCount
Req = "Select TOP " & NM & " [num fp], numot, cc, date, bc, naot, regime, observation, qf, ptb, stb, deche, dateot, qd from planing ORDER BY numot DESC"
    t8.MoveFirst
    Do Until t8.EOF
            t1.AddNew
            t5.AddNew
            For i = 0 To 13
                t1.Fields(i) = t8.Fields(i)
            Next i
            t5.Fields(0) = t8.Fields(1)
            t5.Fields(8) = "N"
            t1.Update
            t5.Update
    t8.MoveNext
    Loop
End If

Et Merci encore à vous