Datos De Un Campo De Una Tabla A Combobox

[GEMO]

Saludos A Todos Gracias Por Su Ayuda Lo Que Quiero Hacer Y No He Podido Es Que Los Datos De Un Campo De Una Tabla De Access Se Cargue A Un Combobox
Gracias

[sebaghost]

Dim Conection As SqlConnection = New SqlConnection(Conexion_)
Dim Consulta As SqlCommand
Dim Adaptador As SqlDataReader
Consulta = New SqlCommand("Select * From Origen ", Conection)

Conection.Open()
Adaptador = Consulta.ExecuteReader()
If Adaptador.HasRows Then
Do While Adaptador.Read
CB_Origen.Items.Add(Trim(Adaptador(1)))
Loop
Else
End If
Conection.Close()

[a83]

mmmm no me queda muy claro sebaghost tu ejemplo

lo estas creando dentro del evento asip

Código PHP:

   
Private Sub Combo1_Change()
Dim Conection As SqlConnection = New SqlConnection(Conexion_)
Dim Consulta As SqlCommand
Dim Adaptador As SqlDataReader
Consulta = New SqlCommand("Select * From Origen ", Conection)
 
Conection.Open()
Adaptador = Consulta.ExecuteReader()
If Adaptador.HasRows Then
Do While Adaptador.Read
CB_Origen.Items.Add (Trim(Adaptador(1)))
Loop
Else
End If
Conection.Close()
End Sub 
   

[GEMO]

Gracias Pero Mencionas Sqlconnection, Eso Es Aunque Mi Base De Daots Este En Access (la Verdad Nunca Trabaje Bases De Datos En Visual Y Ahora Lo Requiero) Incluso He Intentado Descargar El Sql Pero Tampoco Lo Encuentro Baje Uno Pero No Hace Nada

De Cualquier Forma Gracias A Los Dos Por Su ExplicaciÓn

[Taribo007]

Prueba esto: crea un combo llmado combo1, una BD access, con una tabla llamada empleados, con un campo llmado nombre. Luego un boton llamado Command1. Luego copia este codigo:

Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public rs2 As ADODB.Recordset

Private Sub Command1_Click()
If EstablecerConexion() = True Then
If GenerarRecordset("Select * from Empleados", rs) = True Then
While Not rs.EOF
MsgBox rs!nombre
Me.Combo1.AddItem rs!nombre
rs.MoveNext
Wend
End If
Else
MsgBox "Error en la conexion"
End If

End Sub

Public Function EstablecerConexion() As Boolean
' La conexión a la base de datos

Set cn = New ADODB.Connection

' Para la cadena de selección
'Dim sSelect As String

' ' Para una base de datos normal:
' sSelect = "SELECT * FROM TablaEmpleados"

cn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\prueba.mdb;Uid=Admin;Pwd=;"

EstablecerConexion = True
End Function
Public Function GenerarRecordset(sSQL As String, rst As ADODB.Recordset) As Boolean
' El recordset para acceder a los datos

Set rst = New ADODB.Recordset

' Abrir el recordset de forma estática, no vamos a cambiar datos
rst.Open sSQL, cn, adOpenDynamic, adLockOptimistic

' Permitir redimensionar las columnas
'MSHFlexGrid1.AllowUserResizing = flexResizeColumns
GenerarRecordset = True
End Function


Al pulsar el boton, se te cargaran en el combo los datos de la tabla.

Has de activar la refrencia a Microsoft ActivX dataobject x.x .....

Un saludo

[GEMO]

deja lo reviso bien me marca unos errores creo que fue porque no especifique que el combobox esta en visaul basic 2005 express pero deja revisarlo bien gracias de cualquier forma

[calogc]

Private Function CargaDatos as DataTable
dim cn as new oledbConnection(cadena)
dim cmd as new oledbCommand("select * from tabla",cn)
dim da as new oledbDataAdapter(cmd)
dim dt as new DataTable
da.fill(dt)
return dt
end Function

Private sub Form1_Load(byval object as ....)
try
dim dt as new DataTable
dt=CargaDatos()
dim dr as DataRow
For Each dr In dt.Rows
ComboBox1.Items.Add(dr.Item("Nombre del Campo"))
Next
Catch ex as Exception
msgbox(ex.Message)
End Try