ComboBox

25/10/2004 - 16:38 por ivan | Informe spam
Señores quien me puede colabora con un ejemplo de como
llevar un campo de una tabla a un ComboBox


muchas gracias

Preguntas similare

Leer las respuestas

#1 Jorge Serrano [MVP VB]
25/10/2004 - 16:55 | Informe spam
Hola Ivan,

espero que este pequeño ejemplo te sirva;

Dim strConexion As String
Dim objConexion As OleDbConnection
Dim objComando As OleDbDataAdapter
Dim objDS As New DataSet
strConexion = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;" & "DATA SOURCE=" &
"C:\Ejemplo.mdb"
objConexion = New OleDbConnection(strConexion)
objComando = New OleDbDataAdapter("Select * From Tabla", strConexion)
objComando.Fill(objDS, "Ejemplo")
Dim Row
Dim Fila As DataRow
For Each Row In objDS.Tables("Ejemplo").Rows
ComboBox1.Items.Add(Row(0))
Next
objConexion.Close()

Un saludo,

Jorge Serrano Pérez
MVP VB.NET


"ivan" wrote:

Señores quien me puede colabora con un ejemplo de como
llevar un campo de una tabla a un ComboBox


muchas gracias

Respuesta Responder a este mensaje
#2 Ivan
25/10/2004 - 18:25 | Informe spam
Jorge Eres muy amable me sirvio mucho
Hola Ivan,

espero que este pequeà±o ejemplo te sirva;

Dim strConexion As String
Dim objConexion As OleDbConnection
Dim objComando As OleDbDataAdapter
Dim objDS As New DataSet
strConexion


= "PROVIDER=MICROSOFT.JET.OLEDB.4.0;" & "DATA SOURCE=" &
"C:\Ejemplo.mdb"
objConexion = New OleDbConnection(strConexion)
objComando = New OleDbDataAdapter("Select * From


Tabla", strConexion)
objComando.Fill(objDS, "Ejemplo")
Dim Row
Dim Fila As DataRow
For Each Row In objDS.Tables("Ejemplo").Rows
ComboBox1.Items.Add(Row(0))
Next
objConexion.Close()

Un saludo,

Jorge Serrano Pérez
MVP VB.NET


"ivan" wrote:

Seà±ores quien me puede colabora con un ejemplo de




como
llevar un campo de una tabla a un ComboBox


muchas gracias



.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida