Discussion :

[null_as400]

Salut...
J'ai une BD access manipulée sous VB6 à l'aide d'un Dataenvironment...
Mon probleme c comment verifier l'existance d'un enregistrement (une reference qui est la clé de la BD) avant d'ajouter ?
VB6 lance son propre message d'erreur, ce que je vx c comment puis-je faire la verification :

- si l'enregistrement existe dejà ===> message d'erreur personnalisé
- sinon effectuer l'enregistrement !

Je voulais exploiter le code de la recherche, qui fonctionne bien, sur mon app mais il y a toujours l'erreur !

Merci d'avance

[Vld44]

Comment eviter les doublants ?

En roulant à gauche tout le temps.

[ThierryAIM]

Comment eviter les doublants ?

En roulant à gauche tout le temps.

Dommage, j'ai édité le titre avant de lire le sujet, mais

[null_as400]

Ah... oui... Je comprends...
Y a qlq'un qui pt m'aider ?

[Delbeke]

Faire une recherche de la clé dans la base avant d'enregistrer. Si la clé est trouvé, plus la peine d'eregistrer

[Vld44]

Je ne connais pas du tout les procédure stockées sous access, mais si elles existent, et qu'elles admettent une gestion d'erreur, tu trouves comment faire un resume next lorsque tu as une rupture d'intégrité ...

Sinon tu fais la même chose mais dans VB

[zazaraignée]

Si l'identifiant de la donnée est une clé primaire, de facto, tu ne pourra la doubler puisqu'une clé primaire est unique. Du moins, il me semble.

[null_as400]

Merci pour vos reponses...
C vrai, et comme j'ai dit avant, VB a son propre message d'erreur et par defaut il est impossible de doubler l'enregistrement d'une Clé primaire... mais juste après le message de VB ===> l'application est fermée ! et c ce que je vx eviter en lançant un message d'erreur personnalisé...

J'ai essayé d'exploiter le code de recherche (qui fonctionne bien déja) et l'integrer dans "Ajouter_Click" mais ça marche pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Donne, Valeur, Rang As String
NumEnreg = DataEnvironment1.rsETCV.AbsolutePosition
Rang = acte_num_sc ' le nom du rang qui contien la clé primaire
Donne = acte_num_sc.Text 'zone ou je tapte la clé pour effectuer un    
                                      enregistrement
DataEnvironment1.rsETCV.Filter = Rang & "='" & Donne & "'"
If acte_num_sc = "" Then
DataEnvironment1.rsETCV.Filter = adFilterNone
DataEnvironment1.rsETCV.MoveFirst
DataEnvironment1.rsETCV.Move NumEnreg - 1
'--------"Aucun enregistrement trouvé" Effectuer l'enregistrement
End If
'--------"Nombre d'enregistrements trouvés" Message d'erreur

Quand je lance ce code j'ai une erreur "risque de doublons" au niveau de :

Code :

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

DataEnvironment1.rsETCV.Filter = Rang & "='" & Donne & "'"

Quoi faire... ? Et merci d'avance !

[Vld44]

renseignes-toi sur le moyen de récupérer une erreur en VB. C'est ce qu'il te manque.

[sovo]

Comme te l'a dit delbeke, il faut recherher l'existance de la cle.

Voila une procedure pour y parvenir :

Tu boucles sur tous les enregistrements de la table et a chaque fois tu compares la cle de l'enregistrement (pendant la boucle) avec celle que tu veux ajouter. Tu devras utiliser une variable (bouleenne de preference) pour marquer si oui ou non tu as trouve la cle. A la fin de la boucle donc tu verifies si oui on non elle exite deja et tu fait le traitement approprie.

[Vld44]

a mon avis c'est un peu couteux par rapport a insérer + récupérer l'érreur éventuelle.