[VB.Net] Comment se déplacer dans une Base de données ?

**balabonov** · 13/07/2006, 09h49

bonjour,

Je suis en train de créer un formulaire en vb.net qui affiche les infos d'un table access dans plusieurs textbox.

Ma table est appelée: Perso elle contient 4 colonnes : RefPerso (clé unique) Nom, Prenom, Age.

Pour l'instant j'ai juste afficher la première ligne de chaque colonne de ma base dans des textbox.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
 System.EventArgs) Handles MyBase.Load
        'TODO : cette ligne de code charge les données dans la table
 'TestDataSet.Perso'.
        Me.PersoTableAdapter.Fill(Me.TestDataSet.Perso)

Ce que je voudrais faire c'est deux boutons qui permettrait de passer à l'enregistrement suivant et precedents.

Une idée?

**bootix** · 13/07/2006, 15h38

La réponse est le binding, cas typique d'utilisation. Ca tient pas en un post et la manière de faire differe selon ce que tu veux.
Mais recherche la doc sur Binding, BindingContext et CurrencyManager. Tu devrais trouver des choses qui te conviennent.
Je ne peux te donner de code, je suis developpeur c# et non vb

**guitoux1** · 13/07/2006, 15h55

Regarde la rubrique Data Binding ici, ya tout pour bien comprendre

**balabonov** · 27/07/2006, 09h42

Bon, ca fait plusieurs jours que je reste sur le même problème je débute donc je vois pas la solution, et j'ai fouillé sur le web pour trouver une solution mais j'en trouve pas.

Personne ne me répond je ne sais pas si c'est parce que je suis pas clair, ou on veut pas m'aider ou tout simplement parce que vous savez pas.

j'essaye d'être le plus clair possible.

Je developpe une application qui est censé affiché les champs
d'une base de données access dans des text box. (Ca j'y arrive)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Public Class Form1
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO : cette ligne de code charge les données dans la table 'NomDataSet.FichePatient'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.FichePatientTableAdapter.Fill(Me.NomDataSet.FichePatient)

Plan: j'ai une base de données "Nom.mdb" avec une table "FichePatient" et des colonnes "Nom" "prénom".

Maintenant que j'ai cela je voudrais pouvoir avancé dans les enregistrements de ma table (passé d'une personne à une autre dans les text box) pour cela j'ai ajouté un bouton.

On m'a dit d'utilisé "databidding" et je me suis renseigné un peu sur le net pour en faire ce code la:

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
 
 
Private lblPosition As New Object
 
[...]
 
 Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
        Me.BindingContext(NomDataSet.FichePatient).Position = _
                    (Me.BindingContext(NomDataSet.FichePatient).Position) + 1
        PositionChanged()
    End Sub
 
    Sub PositionChanged()
        lblPosition.Text = (((Me.BindingContext(NomDataSet.FichePatient).Position + 1).ToString _
          + " / ") _
          + Me.BindingContext(NomDataSet.FichePatient).Count.ToString)
    End Sub

mais j'ai ce message que je n'arrive pas à interpreter:

Le membre public 'Text' du type 'Object' est introuvable.

Ps: j'aimerais savoir quelle référence utiliser pour mon projet en sachant cela??
A force de chercher sur le net pour me débloquer je me mélange et ca aide pas et on ne me repond jamais.

**balabonov** · 02/08/2006, 10h53

Quelqu'un pourrait t'il me donner une bout de code fonctionelle ou plus simplement modifier le mien?

**guitoux1** · 02/08/2006, 11h20

Tout est dans ton message d'erreur : le type Object ne possède pas de propriété Text.
Tu déclare lblPosition en tant que Object, alors qu'apparement tu l'utilise comme un Label. Dans ce cas, il faut le déclarer comme un Label :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part