Datagridview

edson80 Messages postés 19 Statut Membre -  
edson80 Messages postés 19 Statut Membre -

Bonjour,
je developpe en vb 2005 avec une base de données Access.J'ai crée un datagriview (lié à une table) avec une source.je saisi un nom dans un textbox et je veux qu'il m'affiche dans le datagridview les infos de toutes les personnes ayant ce nom. Oups c'est la que sa coince.je n'arrive pas à afficher. Voila le coe que j'ai tapé :

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\Projet de mise a jour\Basededonnées\Edson80.mdb;"

strSql = "SELECT Fi_Bordereau.F_nomclib,Fi_Bordereau.F_prenclib WHERE (((Fi_Bordereau.F_numclib)='" & Ecr025.TextBox_consnumcli.Text & "'));"

Connect = New OleDbConnection()
Connect.ConnectionString = strConn
Dim Dt As New DataTable ' Déclaration Objet DataTable
Dim DAdap As OleDbDataAdapter ' Déclaration Objet DataAdapter
DAdap = New OleDbDataAdapter(Comd)

'Try
Connect.Open()
DAdap.Fill(Dt)
Ecr025.DataGridView1.DataSource = Dt

' Finally

'Catch ex As Exception
Connect.Close()
Aidez moi nà trouver une reponse s'il vous pait !?

2 réponses

  1. Reivax962 Messages postés 3742 Statut Membre 1 011
     
    Bonjour,

    Après avoir modifié le datasource, il faut faire un databind()

    Xavier
    0
  2. edson80 Messages postés 19 Statut Membre
     
    j'ai trovver la reponse à ma préocupation
    et je vous la donne

    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\Projet de mise a jour\Basededonnées\Edson80.mdb;"

    strSql = "SELECT DISTINCT Fi_Bordereau.* From Fi_Bordereau WHERE (((Fi_Bordereau.F_numclib)='" & Ecr025.TextBox_consnumcli.Text & "'));"

    Connect = New OleDbConnection() 'Instanciation d'un Objet Connexion

    Connect.ConnectionString = strConn

    Comd = New OleDbCommand(strSql) 'Instancier un objet Commande

    DataAdap = New OleDbDataAdapter(Comd) 'Instancier un objet Adapter

    Comd.Connection() = Connect 'initialiser l'objet Command

    Comd = New OleDbCommand(strSql) 'Instancier un objet Commande

    Connect.Open()

    DataAdap.Fill(DatTable)

    Ecr025.Fi_BordereauDataGridView.DataSource = DatTable

    Connect.Close()
    0