Datagridview
edson80
Messages postés
19
Statut
Membre
-
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
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()
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()
