[VS17]: Connessione tra ComboBox e TextBox tramite metodo select

[SanMichele]

Ciao ragazzi,
ho un database.accdb con una tabella chiamata "Collaboratori" associo i dati alla combobox con questo codice:

Imports System.Data.OleDb
Private Sub CaricaCollaboratori()
        Try
           
            Using sqlConnessione As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.16.0;Data Source=C:\COW-23\COW23\COW23\Database\Database_Generale.accdb")
                sqlConnessione.Open()
                Using CommandSql As New OleDbCommand("Select ID, COLLABORATORE, PASSWORD, EMAIL, DATA_NASCITA FROM PASSWORD_COLLABORATORE", sqlConnessione)
                    Using dtaAdapter As New OleDbDataAdapter(CommandSql)
                        Using dttDati As New DataTable()
                            dtaAdapter.Fill(dttDati)
                            cbo_connetti.ValueMember = "ID"
                            cbo_connetti.DisplayMember = "COLLABORATORE"
                            cbo_connetti.DataSource = dttDati.DefaultView


                        End Using


                    'End Using
                End Using
            End Using
        Catch ex As Exception
            MessageBox.Show("Errore: " + ex.Message, "Gestione Errore", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

Fin qui tutto bene, ma quando clicco un collaboratore all'interno della combobox vorrei visualizzare la sua mail nella textbox
???

Mi rendo conto che sia una cavolata in VB10 ma con VB17 ho delle difficoltà.
Scusate il mio livello basso
SanMichele

[optime]

hai provato a fare come faresti in VB10? posta il codice e l'eventuale messaggio di errore

[SanMichele]

Ciao optime,
questo è il codice e l'errore è su

txt_password.Text = objSelectedItem.ToString("PASSWORD")

Private Sub cbo_connetti_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbo_connetti.SelectedIndexChanged



        Dim intSelectedIndex As Integer
         intSelectedIndex = cbo_connetti.SelectedIndex
         Dim objSelectedItem As Object
        objSelectedItem = cbo_connetti.SelectedItem


        txt_password.Text = objSelectedItem.ToString("PASSWORD")
    End Sub

[LeleFT]

Spostata discussione nel forum dedicato a VB.

[SanMichele]

Scusa LeleFT pensavo di essere in VB perdonatemi

[optime]

e l'errore?

[SanMichele]

System.InvalidCastException: 'Cast non valido dalla stringa "PASSWORD" al tipo 'Integer'.'

[optime]

e comunque l'indice di una combo è un numero, non una stringa...

[optime]

https://www.google.com/search?q=vb.net+combobox di sicuro trovi qualcosa

[SanMichele]

Allora sono tornato alle origini ma vedo che funziona bene....

 Public Function strconnection() As OleDbConnection        Return New OleDbConnection("Provider=Microsoft.ACE.OLEDB.16.0;Data Source=C:\COW-23\COW23\COW23\Database\Database_Generale.accdb")
    End Function
    Public strcon As OleDbConnection = strconnection()
    Public result As String
    Public cmd As New OleDbCommand
    Public da As New OleDbDataAdapter
    Public dt As New DataTable

Private Sub cbo_connetti_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbo_connetti.SelectedIndexChanged
        Try
            Dim sql As String
            Dim cmd As New OleDbCommand
            Dim dt As New DataTable
            Dim da As New OleDbDataAdapter
            strcon.Open()


            sql = "SELECT * FROM PASSWORD_COLLABORATORE WHERE COLLABORATORE LIKE '%" & cbo_connetti.Text & "%'"
            cmd.Connection = strcon
            cmd.CommandText = sql
            da.SelectCommand = cmd
            da.Fill(dt)
            If dt.Rows.Count > 0 Then
                txt_password.Text = dt.Rows(0).Item("PASSWORD").ToString
                txt_id.Text = dt.Rows(0).Item("ID").ToString
            End If
        Catch ex As Exception
        Finally
            strcon.Close()
        End Try


    End Sub

ciao a tutti