AjOuTeR DeS DoNnEeS DaNs UnE BaSe ViA Un TdBgRiD

Question

Je suis desperer !!!

Voici mon code entier

Option Explicit

Dim l_cn_securite As ADODB.Connection
Dim l_recordset As ADODB.Recordset

Private Sub cmdDelete_Click()
l_recordset.Close
l_cn_securite.Close
End Sub

Private Sub cmdAjout_Click()
    TDBGrid1.AllowAddNew = True
End Sub

Private Sub cmdOk_Click()

    Set l_cn_securite = New ADODB.Connection
    l_cn_securite.ConnectionString = "driver={SQL Server};server=******;uid=****;pwd=****;Database=SECURITE"
    l_cn_securite.CursorLocation = adUseClient
    l_cn_securite.Open
    
    Set l_recordset = New ADODB.Recordset
    Set l_recordset = l_cn_securite.Execute("select * from connexion")
    
    Set Adodc1.Recordset = l_recordset
    TDBGrid1.DataSource = Adodc1

End Sub

Private Sub CmdQuit_Click()
    End
End Sub

Private Sub cmdUser_Click()
    TDBGrid1.AllowUpdate = True
    TDBGrid1.CurrentCellModified = True
    TDBGrid1.InsertMode = True
End Sub

Private Sub Quitter_Click()
    End
End Sub

Tout s'affiche correctement et au moment de validé la nouvelle donnée !!! Erreur (Pourtant en arriere plan ca à changé)

cs_Nicos77 · Answer

L'erreur est à ce niveau là je pense

Private Sub cmdUser_Click()
TDBGrid1.AllowUpdate = True
TDBGrid1.CurrentCellModified = True
TDBGrid1.InsertMode = True
End Sub

COmmande pour ajout

Excusez moi d'être débutant

AjOuTeR DeS DoNnEeS DaNs UnE BaSe ViA Un TdBgRiD

1 réponse

Discussions similaires