Visual Basic.NET - Al seleccionar un Elemento de un ListBox que se muestren datos en un TextBox

 
Vista:
Imágen de perfil de Isaias
Val: 1
Ha disminuido su posición en 10 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Al seleccionar un Elemento de un ListBox que se muestren datos en un TextBox

Publicado por Isaias (1 intervención) el 29/07/2018 07:01:56
Buanas Noches...

Soy un estudiante de la Carrera de Ing. En Sistemas...
y estoy empezando a aprender a utilizar el Visual Basic...

Y necesito que alguien me ayude a solucionar este problema que tengo...
como hago para que al seleccionar un elemento de un ListBox con el mause, se muestre informacion relacionada a este Item en un TextBox...

En la imagen esta el modelo de como me deberia quedar el programa despues de haber terminado pero me he quedado estancado en eso...

De antemano muchas gracias...
tempsnip
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Al seleccionar un Elemento de un ListBox que se muestren datos en un TextBox

Publicado por omar (30 intervenciones) el 30/07/2018 18:53:22
Saludos
puedes usar una consulta del dato que traerás del lisbox y cargarlos en los textbox.

en sql pondrás la instrucción sql que ejecutara tu consulta

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub buscanombre2( ByVal sql As String)
 
    dgvExcel.DataSource = Nothing
    Try
        Dim ad As New NpgsqlDataAdapter(sql, conexion)
 
        Dim dt As New DataTable
        Dim ds As New DataSet
 
        conexion.Open()
        ad.Fill(dt)
        ad.Fill(ds)
        conexion.Close()
        If ds.Tables(0).Rows.Count > 0 Then
            If IsDBNull(ds.Tables(0).Rows(0).Item(0)) Then
            Else
                Dim filasdgventas As Integer = ds.Tables(0).Rows.Count
                Form3.TextBox2.Text = ds.Tables(0).Rows(0).Item(0)
                Form3.TextBox7.Text = ds.Tables(0).Rows(0).Item(1)
                Form3.TextBox8.Text = ds.Tables(0).Rows(0).Item(2)
 
            End If
        End If
 
        dgvExcel.DataSource = dt
    Catch ex As NpgsqlException
        MessageBox.Show(ex.Message)
    End Try
 
End Sub

te muestro un ejemplo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar