Ver Mensaje Individual
  #5 (permalink)  
Antiguo 29/05/2005, 14:37
Avatar de xknown
xknown
 
Fecha de Ingreso: diciembre-2004
Ubicación: Cusco - Perú
Mensajes: 2.248
Antigüedad: 20 años, 3 meses
Puntos: 7
No es necesario iterar sobre los datos para agregar los valores al ComboBox:
Código:
Dim strconexion As String
Dim objconexion As OleDbConnection
Dim objcomando As OleDbDataAdapter
Dim objds As New DataSet
strconexion = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=..\BBDD\bd1.mdb"
Try
objconexion = New OleDbConnection(strconexion)
objcomando = New OleDbDataAdapter("select * from Tabla1", strconexion)
objcomando.Fill(objds, "NomCliente")
 ComboBox1.DataSource = objds ' También puede ser objds.Tables("NomCliente")
ComboBox1.ValueMember = "Id_Tabla"
ComboBox1.DisplayMember = "Campo_a_Mostrar"
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Saludos
__________________
Alex Concha
Buayacorp - Programación y Diseño