Discussion :

[Blaonambé]

Bonjour à tous,

Lors du déroulement du code dans mon programme, j'exécute une requête action qui ajoute des enregistrements à une table. Le code est de la forme :

Code :

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

1
2
3
4
Dim Cnn As ADODB.Connection
Set Cnn = CurrentProject.Connection
Texte_SQL = "INSERT INTO .... SELECT .... WHERE ....;"
Cnn.Execute Texte_SQL

Simplement, lorsque au moins un des enregistrements à ajouter existe déjà dans la table, un erreur est générée (et rattrapable) et la requête n'est pas exécutée, pour cause de violation de clé notamment.

Or, lorsque l'on fait la même manipulation 'à la main' à partir de l'onglet 'Requêtes', un message nous informe de la violation de clé, nous demande si l'on veut continuer, et, dans l'affirmative, n'ajoute à la table que les enregistrements inexistants, qui ne provoquent pas de violation de clé.

Ma question est donc de savoir comment forcer par programme l'exécution de la requête comme je la force manuellement.
Il y a bien entendu la possibilité de tester les enregistrements avant de les insérer, mais c'est une perte de temps dans l'exécution de mon programme.

Merci à tous par avance !

[Simplifi]

Hello et bienvenue sur le forum
Pourquoi utiliser une connexion ADODB?
en effet, on peut utiliser des trucs plus simples comme

Code :

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

1
2
3
4
DoCmd.SetWarnings False
Texte_sql = "INSERT INTO .... SELECT .... WHERE ....;"
DoCmd.RunSQL Texte_sql
DoCmd.SetWarnings True

[paidge]

Ou même

Code :

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

CurrentDB.Execute("INSERT INTO....")

Il y a bien entendu la possibilité de tester les enregistrements avant de les insérer, mais c'est une perte de temps dans l'exécution de mon programme.

A moins que tu n'aies une quantité impressionnante de données à traiter, perso c'est ce que j'utilise et ça marche très bien. Grâce à un objet DAO.recordset, je parcours le SELECT. Je fais un Dcount pour savoir s'il y a violation de clé et s'il n'y en a pas, je fais un INSERT INTO VALUES

[Blaonambé]

Merci Simplifi,

C'est effectivement ce que je m'étais finalement résolu à faire...
Néanmoins la portabilité du code est plus souple et plus efficace (tout du moins me semble-t-il) avec ADODB, alors que les méthodes de l'objet Docmd sont spécifiques à Access.

Mais bon, cette solution règle le problème !
Il reste que j'aurais bien aimé avoir la solution avec ADODB, et je vais continuer à chercher (à temps perdu, si je puis dire )
Evidemment je viendrai mettre la solution ici si je parviens à l'obtenir.

Encore merci. Bien cordialement,

[Blaonambé]

Merci Paidge,

C'est aussi une solution. Pour ma part je n'utilise pas DAO dans la mesure où je peux faire autrement, toujours pour des raisons de portabilité éventuelle.
Mes applications sont en général en structure frontale / dorsale, il y a donc le réseau entre les deux si je puis dire donc ouvrir un recordset et le parcourir via le curseur sur des paquets de 500 ou 1000 enregistrements à la fois me semble être de nature à dégrader les performances. Je crois que si j'avais dû conserver la solution du test des enregistrements, j'aurais fait une requête de non correspondance entre les données éventuelles à ajouter et celles contenues dans la table de destination, à laquelle j'aurais ajouté les enregistrements issus de cette requête.

En tout cas mille mercis et c'est de la discussion que naît la lumière !

Bien cordialement,

[dumas.blr]

Bonjour Blaonambé,

Pourquoi ne pas utiliser l'instruction ?

Code :

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

On Error GoTo <etiquette de gestion d'erreur >

Dans la gestion d'erreur, il te suffit de tester la variable SQLState qui indique le code de l'erreur. ils suivent la norme SQL ANSI

[Blaonambé]

Bonjour Dumas.blr,

En fait, je l'utilise déjà le tout, c'est de savoir comment forcer la requête ensuite

Merci. Bien cordialement,

[dumas.blr]

Bonjour Blaonambé,

Pour moi, le plus simple serait de créer un recordset avec ta table et rajouter un flag insert. Tu ferais l'insert à partir de ce recordset en testant la valeur du flag insert.
Lors de l'erreur, en fonction du SQLcode, tu peut mettre à jour ton flag dans le recordet en recherchant la clé de l'enregistrement, et recommencer l’opération d'insert

[mumen]

Bonjour

Dans la mesure ou un utilisateur est présent pour répondre à l'éventuelle question, il ne parait pas embarrassant d'utiliser la méthode DoCmd.RunSql, avec la commande SetWarnings mise à Vrai, non ?

Ce n'est certes pas portable, mais c'est bien la manière exacte d'implémenter la fonctionnalité que tu demandes, qui est native à Access.

[Blaonambé]

Bonsoir Mumen,

Dans cette application destinée à des personnes qui n'ont qu'une très vague idée de ce qu'est l'informatique et surtout de ce que sont les bases de données , il me paraît impensable de leur infliger un message qui parle de violation de clé, etc ! et surtout d'y répondre...

Merci et bonne soirée