Problème de manipulation d'enregistrement dans sql server
:D ,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:
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:
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.