,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.