Joki
12 de Mayo del 2004

Alguien podría decirme cómo puedo poner en el texto de un ComboBox lo que hay en el campo de una tabla, si la propiedad Style está a 2. Gracias

sdemingo
12 de Mayo del 2004

Hola,

Private Sub Form_Load()

Dim oConexion As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strBarra As String
Dim ruta As String
Dim strSql As String

strBarra = Right(App.Path, 1)

If strBarra = "" Then
ruta = App.Path + "prueba.mdb"
Else
ruta = App.Path + "prueba.mdb"
End If

oConexion.Provider = "Microsoft.Jet.OLEDB.4.0"
oConexion.Open ruta

strSql = "select * from prueba"
rs.Open strSql, oConexion, adOpenStatic, adLockOptimistic

If rs.RecordCount <> 0 Then
Do While Not rs.EOF
Me.Combo1.AddItem rs("nompeli")
rs.MoveNext
Loop
Me.Combo1.Text = Me.Combo1.List(0)
End If
rs.Close
oConexion.Close


End Sub

Para añadir elementos --> combo.AddItem "Elemento"

Para seleccionar uno de los elementos --> Combo.Text = Combo.List(indice)

salu2
sdemingo