Ante todo muchas gracias por vuestra ayuda. He realizado una serie de modificaciones en el código pero sigue dándome errores. El error que me da en esta ocasión es el siguiente.
Cita: Resaltando Me.CBPrueba.ValueMember = "ID"
No se puede enlazar con el nuevo miembro de presentación.
Nombre del parámetro: newDisplayMember
Y el código con las modificaciones es el siguiente:
Código PHP:
Public Class Form1
Dim cadena As String = "Data Source=LION-PC;Initial Catalog=MiBaseDatos;Integrated Security=True"
Dim con As SqlConnection
Dim sqltext As String
Dim DTT As DataTable
Sub abrir()
If IsNothing(con) Then
con = New SqlConnection(cadena)
Try
con.Open()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
Sub Cargar_ComboBox()
abrir()
DTT = New DataTable
sqltext = "Select ID, Nombre from Table1"
Me.CBPrueba.DataSource = DTT
Me.CBPrueba.DisplayMember = "Nombre"
Me.CBPrueba.ValueMember = "ID"
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Cargar_ComboBox()
End Sub
End Class