VB.NET remplir des textbox via combobox?Résolu

Question

Bonjour,

Comment remplir des textbox depuis une base de données Access selon le choix dans une combobox ?

Impatient de lire vos réponses.
Merci.

Pour remplier ma combobox :

    Private Sub Connexion()

        '«Configurer une connexion à la base de données. 
        Dim Dbpath As String = "F:\VB\mesPRG\ComptabiliteSolution\Comptabilite\bin\Debug\Contacts.mdb"
        Dim dbConn As New System.Data.OleDb.OleDbConnection( _
  "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & Dbpath)
        'Ouvrir une connexion et une commande SELECT. 
        'Dim dbConn As OleDbConnection
        Dim exec As OleDbCommand
        Dim lire As OleDbDataReader
        Dim host As String
        Dim req As String
        Dim ds As New DataSet
        'Dim dr As DataTableReader
        host = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =F:\VB\mesPRG\ComptabiliteSolution\Comptabilite\bin\Debug\Contacts.mdb"
        req = "SELECT DISTINCT Amis.NOperations, Amis.ID, ficheEngage.ID2 FROM (Amis INNER JOIN ficheEngage ON ficheEngage.ID2 = Amis.ID) ORDER BY Amis.ID"
        dbConn = New OleDbConnection
        dbConn.ConnectionString = host
        Try
            dbConn.Open()
            exec = New OleDbCommand(req, dbConn)
            lire = exec.ExecuteReader
            Do While lire.Read()
                ComboBox1.Items.Add(lire("NOperations"))
                ComboBox2.Items.Add(lire("ID"))
            Loop

            lire.Close()

        Catch ex As Exception
            MessageBox.Show(ex.ToString(), "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

    End Sub

cs_ShayW · Answer

Salut

Comment remplir des textbox depuis une base de données Access selon le choix dans une combobox ? 

en codant  comme il faut !!! 

que veux tu remplir dans ta textbox ?

aliammor2 · Answer

J'ai pas lu ton code mais pour remplir des textbox par des comboxbox rien de plus facile;

tu crée par exemple un bouton déplacer ou copier et dans l'évenement click de ce dernier tu met :

TextBox1.text=ComboxBox1.Text 
 
PS:Le bouton c'est juste pour la forme
--

Whismeril · Answer

Bonjour,

tu peux utiliser le binding, ici tu trouveras un tuto, le code est en C#, mais je pense qu'en VB.NET le principe est le même.

Il est téléchargeable là

cs_ShayW · Answer

Salut
pas si simple qui demande selon moi quelque changement

1 d'abord vaut mieux  écrire la connection dans une sub à part 
et tu te connectes une fois à ta bdd 

2  ajoute une listof integer pour conserver les id2

tu peux écrire une requete paramétré
qui reçoit comme parametre ton ID2 

ce qui donne 
 dans ta form
  
Private listid2 As New List(Of Integer)

Private Connection As New OleDb.OleDbConnection 'declares  connection

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Connexion
        ShowListAmi

    End Sub

private  Sub Connexion()

       Dim Dbpath As String = "F:\VB\mesPRG\ComptabiliteSolution\Comptabilite\bin\Debug\Contacts.mdb"
        Connection.ConnectionString = Dbpath
        Try
            Connection.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Private sub ShowListAmi() 


        Dim exec As OleDbCommand
     dim  lire As OleDbDataReader
        Dim req As String

        'Dim dr As DataTableReader

        req = "SELECT DISTINCT Amis.NOperations, Amis.ID, ficheEngage.ID2 FROM (Amis INNER JOIN ficheEngage ON ficheEngage.ID2 = Amis.ID) ORDER BY Amis.ID"

        Try
            exec = New OleDbCommand(req, Connection)
            lire = exec.ExecuteReader
            listid2.Clear() 
            Do While lire.Read()
                ComboBox1.Items.Add(lire("NOperations"))
                ComboBox2.Items.Add(lire("ID"))
               'j'ajoute iD2 à la listid2
                listid2.Add(lire("ID2"))
            Loop

            lire.Close()

        Catch ex As Exception
            MessageBox.Show(ex.ToString(), "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

    End Sub

'la sub qui montre les détails selon id2

private  Function ShowficheEngage(ByVal ID As Integer) As OleDbDataReader
        Dim sql As String = String.Empty
        Dim command As New OleDbCommand(sql, Connection)
        Dim recordset As OleDbDataReader

        recordset = Nothing

        command.CommandText = " SELECT field1,field2,....,FROM ficheEngage  WHERE ficheEngage.ID2 = [?] "
        command.Parameters.Add("?", OleDbType.Integer).Value = ID
        Try
            recordset = command.ExecuteReader
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        Return recordset
    End Function

aussi au lieu de servir de plusieurs textbox tu as le datagridview
dans ton cas où tu choisis un item de combo1

Private Sub Combo1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Combo1.SelectedIndexChanged

   dim recordset as  OleDbDataReader
   Dim id As Integer
        id = Combo1.SelectedIndex
    recordset  =  ShowficheEngage(listid2(id))
     'tu n'as plus qu'à lire le recordset dans tes texxbox
     'je me servirai dans datagridview pour afficher 
     'on peut afficher tout le  recordset dans un datagridview
    ' places un datagrideview sur ta form 
      DataGridView1.Columns.Clear()
        DataGridView1.Rows.Clear()
        Dim bds As New BindingSource
        bds.DataSource =  recordset 
        DataGridView1.DataSource = bds   
    End Sub