Modifier une BDD via un true DBGrid

Signaler
Messages postés
13
Date d'inscription
lundi 17 février 2003
Statut
Membre
Dernière intervention
12 mai 2003
-
Messages postés
1
Date d'inscription
vendredi 18 février 2005
Statut
Membre
Dernière intervention
10 avril 2008
-
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

4 réponses

Messages postés
27
Date d'inscription
mardi 14 mai 2002
Statut
Membre
Dernière intervention
29 juillet 2004

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.
Messages postés
13
Date d'inscription
lundi 17 février 2003
Statut
Membre
Dernière intervention
12 mai 2003

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
Messages postés
3
Date d'inscription
mercredi 3 mars 2004
Statut
Membre
Dernière intervention
25 octobre 2004

Il faut ecrire ca :

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

TDBGrid1.allowAddnew
TDBGrid1.AllowUpdate

TDBGrid1.DataSource = rs
Messages postés
1
Date d'inscription
vendredi 18 février 2005
Statut
Membre
Dernière intervention
10 avril 2008

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