ComboBox enlazado a una BD

[Kitty_05]

Muyyyyyyyyyyyyyy buenas Tardes amigos de de Forosdelweb.com

Les escribo solo porque necesito una guia ( como todas las otras veces ;) )
sobre como conectar un combobox a una BD en MySQL yo se ya generar el recordset y selecccionar lo q quiero mostrar..
el detalle es como meterlo al combo box

Me ayudan???

Besitos gordos gracias

[Avellaneda]

Hola Kitty,

Una vez que ya tienes generado el recordset, para cargar el ComboBox:

Código:

Do Until recordset.EOF
    Combo1.AddItem recordset.Fields("NombreDelCampo")
    recordset.MoveNext
Loop

pero si lo que quieres es enlazarlo directamente, debes usar el control DataCombo y asignarle las siguientes propiedades:

Set DataCombo1.RowSource = recordset
DataCombo1.ListFields = "NombreDelCampo"

Un saludo

[Kitty_05]

Gracias avellaneda por responder pero no me kedo claro algo ..

mira lo q tengo hasta ahora

Código:

Private Sub Command1_Click()
Dim BD As ADODB.Connection
Dim RecSQL As ADODB.Recordset

Set BD = CONECTAR()
Set RecSQL = New ADODB.Recordset
RecSQL.Open "select * from provs", BD, adOpenStatic, adLockOptimistic


End Sub

abri el recorset y ahora los RecSQL.Fields() como se los asigno a un combo box..
o como uso el control qm e comentaste?

[Avellaneda]

Hola de nuevo Kitty,

Solamente cambia la palabra recordset por RecSql en el ejemplo que te puse y "NombreDelCampo" por el nombre que físicamente tenga en la tabla provs el campo que quieres mostrar en el ComboBox ó DataCombo

Besitos para tí!!

[Kitty_05]

Gracias muy amable. eres un sol :)

[Kitty_05]

Disculpa la preg. pero luego de que seleccione el elemento que propiedad es la q me permite almancenar el elemento seleccionado en una variable
seria algo com
tmp=combo1.selecteditem??
o algoa asi?'

[Avellaneda]

Sería así:

tmp = Combo1.Text

[Kitty_05]

Nuevamente me quedo sin palabras para agradecerles la ayuda MUCHISIMAS GRACIAS