Discussion :

[jimbololo]

Bonjour à vous ,

voila j'ai une application VB liée à une base de données SQL Server. je voudrais pouvoir insérer des enregistrements dans la base via des requetes SQL tout en controlant si l'identifiant n'existe pas déja auparavant. voici la requete :

Code :

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

1
2
3
4
 
Set rsAjoutedition = New ADODB.Recordset
    Set verifEdit = New ADODB.Recordset
    rq = "SELECT COUNT(codeEdition) as somme,codeEdition FROM EDITION WHERE codeEdition = '" & txtcodeedition.Text & "' GROUP BY codeEdition"

puis je controle la somme avec ces quelques lignes :

Code :

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

1
2
3
4
5
6
7
If verifEdit!somme > 0 Then
        MsgBox "Edition déja existante !"
        Else
            resultSql = "INSERT INTO EDITION VALUES ('" & txtcodeedition & "','" & txtlibedition & "')"
            rsAjoutedition.Open resultSql, Connexion, adOpenStatic, adLockOptimistic
    End If

lorsque somme > 0 le controle marche très bien, cependant lorqu'il ne trouve pas de valeur identique, j'ai l'erreur :

Code :

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

1
2
 
BOF ou EOF est égal à True ou l'enregistrement actuel à été supprimé. L'opération demandée nécessite un enregistrement actuel.

Merci d'avance pour votre aide

[ProgElecT]

If verifEdit!somme > 0 Then

Ou est l'open de ta table ?
Je vais supposer que tu as oublié de nous mettre la ligne (mauvais copier/coller sûrement ) et que le champs somme ne peut être égale à 0.

Donc, si verifEdit!somme= 0 l'open a echoué donc tu demandes une verification d'un champs sur une table dont la requette n'a pas renvoyée d'enregistrement, donc EOF = true.
Je verai plutôt cette façon de faire.
Gérer l'erreur pouvant arriver.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set rsAjoutedition = New ADODB.Recordset
Set verifEdit = New ADODB.Recordset
rq = "SELECT COUNT(codeEdition) as somme,codeEdition FROM EDITION WHERE codeEdition = '" & txtcodeedition.Text & "' GROUP BY codeEdition"
On Error Resume Next
verifEdit.open rq, Connexion, adOpenStatic, adLockOptimistic
verifEdit.Movefirst
If Err Then
 Err.Clear
 resultSql = "INSERT INTO EDITION VALUES ('" & txtcodeedition & "','" & txtlibedition & "')"
 rsAjoutedition.open resultSql, Connexion, adOpenStatic, adLockOptimistic
 rsAjoutedition.Close ' Il me semble ??
 Else
 MsgBox "Edition déja existante !"
End If

Bon, pas bon

[jimbololo]

Merci à toi ProgElecT, j'ai testé et sa marche impeccable en effet je n'avais pas du tout pensé aux gestions d'erreurs ! Merci bien d'avoir pris un peu de ton temps pour te pencher sur mon problème