Modifier une BDD via un true DBGrid

Alors j'ai une base de donnée qui s'affcihe dans un TDBGrid !!!
Ensuite en cliquant sur un bouton j'autorise l'ajout de ligne (enfin je crois)

TDBGrid1.AllowAddNew = True

Puis j'ai crée un text Box dans lekel je désire taper la modification puis validé. Ceci doit changer la donnée dans mon TDBGrid.

Voici le code

Private Sub cmdUser_Click()
TDBGrid1.CurrentCellModified = True
TDBGrid1.EditActive = True
TDBGrid1.Text = txtUser.Text
End Sub

Là lorsque je suis placé sur une cellule contenant une donnée j'ai "Erreur défini par l'application ou par l'objet" ==> Par contre en arrière plan je vois que la donnée est modifié dans le TDBGrid

par contre si je me place dans la cellule crée par TDBGrid1.AllowAddNew = True (qui est vide) j'ai "La classe ne gère pas soit Automation ou l'interface attendue" et la donnée n'a pas changé, toujours vide !!

Je sais que mon explication est vague mais j'ai fait de mon mieux !!

En espérant ne pas être délété, je vous remerci d'avance !!!

Excusez moi d'être débutant

aucune idée :)
dis moi ce que tu veux faire précisement. en truc final. jai jamais utilisé dbgrid mais bon y a ptet moyen de faire autrement.



-------------------------------
Réponse au message :
-------------------------------

> Alors j'ai une base de donnée qui s'affcihe dans un TDBGrid !!!
> Ensuite en cliquant sur un bouton j'autorise l'ajout de ligne (enfin je crois)
>
> TDBGrid1.AllowAddNew = True
>
> Puis j'ai crée un text Box dans lekel je désire taper la modification puis validé. Ceci doit changer la donnée dans mon TDBGrid.
>
> Voici le code
>
> Private Sub cmdUser_Click()
> TDBGrid1.CurrentCellModified = True
> TDBGrid1.EditActive = True
> TDBGrid1.Text = txtUser.Text
> End Sub
>
> Là lorsque je suis placé sur une cellule contenant une donnée j'ai "Erreur défini par l'application ou par l'objet" ==> Par contre en arrière plan je vois que la donnée est modifié dans le TDBGrid
>
> par contre si je me place dans la cellule crée par TDBGrid1.AllowAddNew = True (qui est vide) j'ai "La classe ne gère pas soit Automation ou l'interface attendue" et la donnée n'a pas changé, toujours vide !!
>
> Je sais que mon explication est vague mais j'ai fait de mon mieux !!
>
> En espérant ne pas être délété, je vous remerci d'avance !!!
>
> Excusez moi d'être débutant

G pas le choix, je suis en alternance et mon tuteur veux que j'utilise un TDBgrid et pas un DBGrid

DOnc ma table s'affiche dans le TDBGrid et je voudrais modifié, ajouter ou supprimer des donnée via cet objet !!!
Excusez moi d'être débutant


-------------------------------
Réponse au message :
-------------------------------

> aucune idée :)
> dis moi ce que tu veux faire précisement. en truc final. jai jamais utilisé dbgrid mais bon y a ptet moyen de faire autrement.
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Alors j'ai une base de donnée qui s'affcihe dans un TDBGrid !!!
> > Ensuite en cliquant sur un bouton j'autorise l'ajout de ligne (enfin je crois)
> >
> > TDBGrid1.AllowAddNew = True
> >
> > Puis j'ai crée un text Box dans lekel je désire taper la modification puis validé. Ceci doit changer la donnée dans mon TDBGrid.
> >
> > Voici le code
> >
> > Private Sub cmdUser_Click()
> > TDBGrid1.CurrentCellModified = True
> > TDBGrid1.EditActive = True
> > TDBGrid1.Text = txtUser.Text
> > End Sub
> >
> > Là lorsque je suis placé sur une cellule contenant une donnée j'ai "Erreur défini par l'application ou par l'objet" ==> Par contre en arrière plan je vois que la donnée est modifié dans le TDBGrid
> >
> > par contre si je me place dans la cellule crée par TDBGrid1.AllowAddNew = True (qui est vide) j'ai "La classe ne gère pas soit Automation ou l'interface attendue" et la donnée n'a pas changé, toujours vide !!
> >
> > Je sais que mon explication est vague mais j'ai fait de mon mieux !!
> >
> > En espérant ne pas être délété, je vous remerci d'avance !!!
> >
> > Excusez moi d'être débutant
>

Il faut ecrire ca :

With rs
.ActiveConnection = cn
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Open strSQL
End With

TDBGrid1.allowAddnew
TDBGrid1.AllowUpdate

TDBGrid1.DataSource = rs

Private Sub cmdUser_Click()
> > TDBGrid1.datasource = True
> > TDBGrid1.EditActive = True
> > TDBGrid1.Text = txtUser.Text
> > End Sub