Discussion :

[Xsara 167 cv]

Bonjour à tous,

Je débute sous VB.net. J'ai réussi avec un datagriedview à afficher dans une fenêtre l'ensemble de ma table Client. C'est à dire toutes les colonnes et tous les enregistrements.

Maintenant comment faire pour afficher dans un textbox txtNom le champ "UsrName" de ma table "Utilisateurs" et juste ça...

Je ne sais pas si j'ai été clair, mais merci par avance pour les réponses.

[thierry007]

Est que tu utilise test objets Dataset binding et autre dynamique ou tu a utilisés le Wizard ?

Montre ton code de la datagridview se sera plus facile

[Xsara 167 cv]

Bonjour et merci d'avoir répondu. Voici (mais c'est une autre table, peu importe) mon code.

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
Imports system.data
Imports System.Data.OleDb
 
 
Public Class Form1
    Dim Connexion As String
    Dim ConnexionOLE As OleDbConnection = New OleDbConnection()
    Dim da As OleDbDataAdapter
    Dim ds As DataSet
    Dim dv As DataView
    Dim cb As OleDbCommandBuilder
 
 
    Private Sub cmdTous_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTous.Click
 
 
        Connexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\Documents and Settings\Christian\Mes documents\Entreprise\Programmation\EDA1.mdb"
        ConnexionOLE.ConnectionString = Connexion
        ConnexionOLE.Open()
        da = New OleDbDataAdapter("Select * from Assuranc", ConnexionOLE)
        ds = New DataSet()
        da.Fill(ds, "mytable")
        dv = ds.Tables("mytable").DefaultView
        ConnexionOLE.Close()
        DataGridView1.DataSource = dv
        dv.AllowEdit = True
 
 
    End Sub

La table s'appelle Assurance (elle est plus courte que la table personnes). Je souhaite afficher les éléments de la table qui correspondent à un textbox. J'ai donc écrit ceci, mais ça ne fonctionne pas. Je voudrais remonter le champ Libellé dans une textebox si codeassu="Voiture" par exemple.



--- Code ne fonctionnant pas !? ---

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Private Sub cmdSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSearch.Click
        Connexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\Documents and Settings\Christian\Mes documents\Entreprise\Programmation\EDA1.mdb"
        ConnexionOLE.ConnectionString = Connexion
        da = New OleDbDataAdapter("Select * from Assuranc where [coassu]=txtcodeassu", ConnexionOLE)
        ds = New DataSet()
        da.Fill(ds, "mytable")
        dv = ds.Tables("mytable").DefaultView
        '        ConnexionOLE.Close()
        DataGridView1.DataSource = dv
        dv.AllowEdit = True
 
    End Sub

Merci par avance de ton aide

[Xsara 167 cv]

PS : par hasard, tu ne saurais pas comment corriger ça pour fonctionneravec une table Access 2007 ? Car l'ouverture d'un fichier .accde il me dit que ce n'est pas compatible...

[JauB]

essaie:

Code :

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

1
2
3
4
5
6
7
8
9
 
 
Connexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\Documents and Settings\Christian\Mes documents\Entreprise\Programmation\EDA1.mdb"
        ConnexionOLE.ConnectionString = Connexion
        ConnexionOLE.Open()
        da = New OleDbDataAdapter("Select * from Assuranc", ConnexionOLE)
        ds = New DataSet()
        da.Fill(ds, "mytable")
        myTextBox.Text=ds.Tables("mytable").Rows(0).item("nmChamp")

Bon Courage