Combo Textbox
Publicado por Josep (25 intervenciones) el 06/02/2017 13:46:03
Bueno dias lo quiero hacer es lo siguiente.
Quiero rellenar un Textbox en funcion de la opcion que seleccione en un Combobox.
Tengo una tabla donde hay un id, poblaciones y km. Tengo dos combos, uno es origen donde aparece una poblacion predefinida. En el segundo combo lo llamo destino y quiero que en funcion de lo que seleccione en este me debe aparecer los km.
Dejo mi codigo algo he hecho mal y no se exactame lo que es.
Gracias
Quiero rellenar un Textbox en funcion de la opcion que seleccione en un Combobox.
Tengo una tabla donde hay un id, poblaciones y km. Tengo dos combos, uno es origen donde aparece una poblacion predefinida. En el segundo combo lo llamo destino y quiero que en funcion de lo que seleccione en este me debe aparecer los km.
Dejo mi codigo algo he hecho mal y no se exactame lo que es.
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
31
32
33
34
35
36
37
38
39
Private Sub Desti_TextChanged(sender As Object, e As EventArgs) Handles Desti.TextChanged
Dim connetionString As String = NothingDim connection As SqlConnection
Dim command As SqlCommand
Dim adapter As New SqlDataAdapter()
Dim ds As New DataSet()
Dim sql As String = Nothing Dim sql1 As String = NothingDim id As Integer
connetionString = "Data Source=Josep-Pc\sqlexpress;Initial Catalog=Desplacaments;Integrated Security=SSPI;"
sql1 = "select id from Poblacions;"
sql = "select poblacio, km from Poblacions where id = '" & sql1 & "';"
connection = New SqlConnection(connetionString)
Try
connection.Open()
command = New SqlCommand(sql, connection)
adapter.SelectCommand = command
adapter.Fill(ds)
Catch ex As Exception
MessageBox.Show("No es pot obrir ")
End Try
If ds.Tables(id).Rows.Count = 0 Then
MsgBox("Oh, no hi ha registres!")
Else
Desti.Text = sql("poblacio")
km.Text = sql.Fields("km").Value
End If
End Sub
Gracias
Valora esta pregunta
0