Discussion :

[Agrume-Framboise]

Bonjour à tous,

je suis novice en programmation & je commence mes premiers pas en Visual Basic 6, notament pour cause de stage. J'aurais aimé savoir comment modifier le contenus de mes tables Access qui elles sont affichés dans un FlexGrid. Pour effectuer la liaison Access - VB j'utilise DAO.

Merci, Camille

[La Praline]

Hé bien je te conseil donc de jeter un oeil sur les tutoriels(liens dans ma signature) dans la section Base de données, tu verras il y a des tutoriels DAO très bien fait...

Cordialement

PS: je préfère personnellement ADO à DAO, je trouve celà plus "facile" et intuitif...

[Agrume-Framboise]

Justement pour reussir à connecter ma base de données j'ai utilisé des tutoriels (très bien faits au passage) présents sur le site. Si ma mémoire et bonne j'avais trouvé le lien sur un des forum & c'etait toi qui les recommandais.

J'ai décidé de m'inscrire sur le forum justement car je ne trouve plus l'aide necessaire dans les tutoriels.

Merci d'avoir répondu, Camille

[La Praline]

Il me semblais bien avoir croisé ton pseudo en effet ^^

Et bien le fait que ta table soit ou non afficher dans un FlexGrid ou un DataGrod ne change rien à l'affaire il me semble.
En toute logique tu travaille sur ta table et lorsque les changements(ajout ou suppression) sont terminer tu "met à jour" ton FlexGrid...

Là encore plusieurs moyen...
Le bourin rechargerait la page, de cette manière le FlexGrid serait automatiquement à jour...

En espérant t'aider...

[Delbeke]

En utilisant un DbGrid lié à un DataControl, la mise à jour est automatique dès que tu changes de ligne.

[Agrume-Framboise]

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub fxgClients_Click()
 
If fxgClients.Col = 0 Then 
   If fxgClients.Row < NbEnregistrement + 1 Then
   Toto = MsgBox("Le numéro d'identifiant ne peut être modifié!", vbInformation, "Numéro d'identifiant")
   End If 
End If
 
If fxgClients.Col = 1 Then
   If fxgClients.Row < NbEnregistrement + 1 Then
   Toto = InputBox("Modifier le contenu du champs :", "Modifictation du Nom")
 
   ' Modification & mise à jour du recordset
 
   Set rsClients = dbTaBaseDeDonnees.OpenRecordset("clients", dbOpenTable)
 
   ' O_o Selectionner un enregistrement dans la table, pour le modifier: Mon souci
 
   fxgClients.Row = IdentifiantOccurenceChamps
 
' Que mettre ici ?
 
   rsClients.Edit
   rsClients.Fields("Nom").Value = Toto
   rsClients.Update
 
   'rafraichir l'affichage & le mettre en forme du flexgrid
 
   Call FonctionPerso_RafraichirEnregistrement
   Call FonctionPerso_MiseEnForme
 
   End If
End If
 
End Sub

Depuis hier j'ai en partie résolu mon souci mais quelque chose bloc toujours j'ai préféré citer mon code pour que cela soit plus clair & me permettre d'avoir une réponse précise.

Pour plus de precison mon flexgrid contient 4 colonnes, identifiant (que l'on ne peut modifier), nom, prénom & age, pour l'instant 6 enregistrements y sont listés. Le tout est contenus dans une table nommée clients.

Merci aux personnes qui ont eu la gentillesse de me repondre hier & celle qui le feront peut etre par la suite.

Camille