sélectionner des lignes dans DataGridView en cliquant par le bouton" btnsearch_C

Question

Salut, 
je suis une débutante en visual basic pour cela j'ai un problème de l'exécution au niveau cette ligne "  DataGridView1.DataSource"  et je n'ai pas trouvé une solution 
j'utilise 
voici mon code: 
Imports System.Data 
Imports System.Data.OleDb 
Imports System 
Imports System.Windows.Forms.Form 
Imports Microsoft.VisualBasic 
Imports System.Windows.Forms.DataGridView 

Public Class Form1 
    Inherits System.Windows.Forms.Form 
    Dim Rep As Integer 
    Dim Place_Enregistrement As Integer 

    Dim Max_Enregistrements As Integer 

    Dim con As New OleDb.OleDbConnection 

    Dim ds As New DataSet 

    Dim Val_ID As Integer 
    Private dts As New DataSet 
    Private sql As String 
    Private cmd As OleDbCommand 
    Private dta As OleDbDataAdapter 
    Private dtt As DataTable 
    Private cnx As OleDbConnection 
    Private rownum As Integer 






    Private Sub PlateauBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
        Me.Validate() 
        Me.PlateauBindingSource.EndEdit() 
        Me.TableAdapterManager.UpdateAll(Me.BasededonnéDataSet) 

    End Sub 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
        'TODO: This line of code loads data into the 'BasededonnéDataSet1.Plateau' table. You can move, or remove it, as needed. 
        Me.PlateauTableAdapter1.Fill(Me.BasededonnéDataSet1.Plateau) 
        'TODO: This line of code loads data into the 'BasededonnéDataSet.Plateau' table. You can move, or remove it, as needed. 
        Me.PlateauTableAdapter.Fill(Me.BasededonnéDataSet.Plateau) 

        con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Documents and Settings\media\Bureau\plateau\Basededonné.accdb" 

        Connexion() 

    End Sub 
    Private Sub Connexion() 


        Dim cmd As OleDb.OleDbCommand 

        Dim sql_tout_afficher As String 
        sql_tout_afficher = "select * from Plateau" 

        cmd = New OleDb.OleDbCommand(sql_tout_afficher, con) 


        cmd.Connection.Open() 


        Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter 

        da.SelectCommand = cmd 

        da.Fill(ds, "Liste_Plateau") 

        cmd.Connection.Close() 

        Max_Enregistrements = ds.Tables("Liste_Plateau").Rows.Count 

    End Sub 
Private Sub btnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch.Click 


        btnendsearch.Enabled = True 
        Button1.Enabled = False 
        dts.Clear() 


        If rbnom.Checked = True Then 

            con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Documents and Settings\media\Bureau\plateau\Basededonné.accdb" 
            sql "select Plateau.* from Plateau where Matricule_plateau '" & txtsearch.Text & "'" 
            cmd = New OleDb.OleDbCommand(sql, con) 
            cmd.Connection.Open() 

            Dim dta As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter 

            dta.SelectCommand = cmd 

            dta.Fill(dts, "Liste_Plateau") 

            cmd.Connection.Close() 

            dtt = dts.Tables("Liste_Plateau") 


            If rownum > dtt.Rows.Count - 1 Then 

                Me.txtsearch.Text = "" 
                Me.txtsearch.Focus() 
                MessageBox.Show("Il n'existe aucunes données pour cette matricule " & txtsearch.Text & " !", "Données inexistantes...", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 
                Exit Sub 

            Else 


                dt = DataGridView1.DataSource 

                Me.TextBox1.Text = dtt.Rows(rownum).Item("Matricule_plateau") 
                Me.TextBox2.Text = dtt.Rows(rownum).Item("Numero_chassier") 
                Me.TextBox3.Text = dtt.Rows(rownum).Item("Reference_plateau") 
                Me.TextBox4.Text = dtt.Rows(rownum).Item("Date_achat") 
                Me.TextBox5.Text = dtt.Rows(rownum).Item("Date_assurance") 
                Button4.Enabled = True 
                Button3.Enabled = True 

                btnp.Enabled = True 
                btnprec.Enabled = True 
                btnsui.Enabled = True 
                btnder.Enabled = True 

            End If 

        ElseIf rbprenom.Checked = True Then 
            con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Documents and Settings\media\Bureau\plateau\Basededonné.accdb" 

            sql "select Plateau.* from Plateau where Reference_plateau '" & txtsearch.Text & "'" 
            cmd = New OleDbCommand(sql) 
            dta = New OleDbDataAdapter(cmd) 
            cmd.Connection() = cnx 
            dta.Fill(dts, "Liste_Plateau") 
            dtt = dts.Tables("Liste_Plateau") 

            'si aucunes données existent pour ce nom alors 
            If rownum > dtt.Rows.Count - 1 Then 

                Me.txtsearch.Text = "" 
                Me.txtsearch.Focus() 
                MessageBox.Show("Il n'existe aucunes données pour cette reférence " & txtsearch.Text & " !", "Données inexistantes...", MessageBoxButtons.OK, MessageBoxIcon.Information) 
                Exit Sub 

            Else 


                dtt = DataGridView1.DataSource("Liste_Plateau") 

                Me.TextBox1.Text = dtt.Rows(rownum).Item("Matricule_plateau") 
                Me.TextBox2.Text = dtt.Rows(rownum).Item("Numero_chassier") 
                Me.TextBox3.Text = dtt.Rows(rownum).Item("Reference_plateau") 
                Me.TextBox4.Text = dtt.Rows(rownum).Item("Date_achat") 
                Me.TextBox5.Text = dtt.Rows(rownum).Item("Date_assurance") 

                ' 

                Button4.Enabled = True 
                Button3.Enabled = True 

                btnp.Enabled = True 
                btnprec.Enabled = True 
                btnsui.Enabled = True 
                btnder.Enabled = True 

            End If 



        Else 


            MessageBox.Show("Vous devez spécifier un critère de recherche !", "Erreur...", MessageBoxButtons.OK, MessageBoxIcon.Information) 

            Button4.Enabled = False 
            Button3.Enabled = False 
            btnp.Enabled = False 
            btnprec.Enabled = False 
            btnsui.Enabled = False 
            btnder.Enabled = False 

        End If 
    End Sub 
   

End Class 
Merci d'avance

NHenry · Answer

Bonjour, 

Quand tu postes un code, regardes le point 2 de ma signature.
Et regardes aussi le point 3.

Une fois cela fait, je regarderais, car autant de code non mis en forme c'est difficile à ire.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

Sélectionner des lignes dans DataGridView en cliquant par le bouton" btnsearch_C

1 réponse

Votre réponse

Discussions similaires