Discussion :

[labvivi]

,Bonjour,Je suis labvivi.Je me suis insrite le 23/03/2007.J'aimerais que m'aidiez à ressoudre un problème qui me fatigue depuis maintenant deux jours.
En effet je fais une programmation sur VB6.0 et ma base de données sur SQLServer.
j'ai ecris une commande enregistrer.
voici le code

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
Private Sub Command2_Click()
'On Error GoTo meSSage_erreur
Dim rep As Integer
 
rep = MsgBox("Voulez-Vous Confirmer l'enregistrement ?", vbYesNo + vbQuestion, "Sygmedic 2.2")
If rep = vbYes Then
    Enregistrer
    Modif = False
End If
    Exit Sub
meSSage_erreur:
    MsgBox Err.Description, vbCritical, "Sygmedic 2.2"
    Screen.MousePointer = 0
    On Error GoTo 0
    Exit Sub
End Sub

sous le procedure enregistrer voici le code

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
18
19
20
Public Sub Enregistrer()
Dim T1 As ADODB.Recordset
Set T1 = New ADODB.Recordset
 
BasT.Execute "DELETE FROM T_sexe"
T1.Open "T_sexe", BasT, adOpenDynamic, adLockOptimistic
 
   For I = 1 To Ligne
       T1.AddNew
       GDacH.Row = I
       GDacH.Col = 0
       T1!Codsex = GDacH.Text
       GDacH.Col = 1
 
       If Len(GDacH.Text) > 0 Then
            T1!Libsex = GDacH.Text
       End If
       T1.Update
    Next
End Sub

Lorsque j'exécute, il m'affiche l'erreur que voici:
erreur d'exécution -2147217887(800040e21)
une operation OLE-DB en plusieurs étapes a généré des erreurs. Verifiez chaque valeur d'état OLE-DB disponible. Aucun travail n'a été effectué.

j'aimerais que vous m'aidiez à ressoudre ce problème. Mercci, d'avance.

[Le Pharaon]

Ouverture Connexion, Fermeture Connexion ?

[BM42]

Salut

Vérifie au niveau de ta table si tu n'a pas des champs avec des valeurs par défaut
Ex: Un champs Numérique qui prend la valeur 0
dans ce cas Plantage car tu crais et modifie un enregistrement simultanément.

Et comme à si bien dit Le Pharaon vérifie aussi se qui se passe au nivaux de tes connection.

A+