Problema con DBCombo - VB-MUNDO

jrios03 · #1 (**permalink**) 18-07-2006, 15:47:50

Hola amigos míos....

Tengo un gran problema, sucede que tengo un DBCombo llamado cmb_Materia, el cual quiero llenar con los datos de una Tabla que llamo con código ADODB, les presento mi código para que me entiendan y me puedan ayudar:

Código:

  Tit_Nuevo_Base.CursorLocation = adUseClient
  Tit_Nuevo_Base.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "./Ind_Dat.mdb;Persist Security Info=False"
  Tit_Nuevo_SQL = "Select Nat_Nom from Naturaleza order by Nat_Nom ASC"
  Tit_Nuevo_Reg.Open Tit_Nuevo_SQL, Tit_Nuevo_Base, adOpenDynamic, adLockOptimistic
  Set cmb_Materia.DataSource = Tit_Nuevo_Reg

No sé por qué el DBCombo no se llena con los datos del Recordset que le estoy pasando, me salté algún paso?
Traté dándole a refrescar al DBCombo, pero tampoco me resultó.

O será que tengo que hacer algo en las propiedades del DBCombo???

Por favor ayúdenme... no entiendo lo que pasa...

De antemanos, muchas Gracias...

Saludos :smt004

acalanto · #2 (**permalink**) 18-07-2006, 17:07:18

No estoy muy acostumbrado a utilizar este tipo de controles, pero me parece que te falta hacer u refresh o un requery en el DBCombo para que cargue los registros leidos.

jrios03 · #3 (**permalink**) 18-07-2006, 23:19:24

Amigos míos, al final decidí utilizar un DataCombo, con el mismo código y le agregué estas líneas:

Código:

  Set cmb_Materia.RowSource = Tit_Nuevo_Reg
  cmb_Materia.BoundColumn = "Nat_Nom"
  cmb_Materia.ListField = "Nat_Nom"
  cmb_Materia.Refresh
  Tit_Nuevo_Reg.MoveFirst
  Prim = Tit_Nuevo_Reg.Fields("Nat_Nom")
  cmb_Materia.BoundText = Prim

y funcionó de maravillas...

Gracias por vuestra preocupación y saludos... :smt004