LLENAR COMBOBOX A PARTIR DE CONSULTA SQL

EDGAR
03 de Octubre del 2004
Tengo una gran duda ya que estoy llenado los combo box a partir de una base de datos en access, mi programacion esta echa con DAO y tengo el siguiente codigo:

Private Sub CBOestado_GotFocus()
Do Until centros.EOF
CBOestado.AddItem (centros!estado1 & " " & centros!des_estado)
centros.MoveNext
End If
Loop
End Sub

Pero necesito darle ciertos parametros a esa consulta ya que hay valor que se repiten en la tabla y necesito que me muestre un unico valor por cada uno asi que tengo la siguiente consulta:

SQL = "Select distinct estado1,des_estado from centros"

Necesito saber como puedo hacer para agregar esta consulta y poder asi mostrar los resultados en el combo box. Otra cosa es que yo programo esto en el evento "Private Sub CBOestado_GotFocus()" pero sera que abra otra forma de hacerlo para que no se tarde a la hora de mostrarme los resultados???

Agradezco mucho de tu ayuda colega =)

yayita1502
03 de Octubre del 2004
Lo correcto es hacer así:
strSQL="Select estado1, des_estado from centros"
Set resDatos = dbbase.openrecordset(strsql,dbsnapshot)
Do until resDatos.eof
cboEstado.AddItem resDatos!des_estado
cboEstado.Itemdata(cboEstado.NewIndex)= resDatos!estado1
resDatos.Movenext
loop
resDatos.close

Bye

Edy P?z
03 de Octubre del 2004
Hola, yo puedo ayudarte y la mejor forma de hacerlo es enviarte un demo, escribeme a mi correo ([email protected]) y con gusto te enviare un ejemplio y algunas cosas mas relacionadas al tema.

saludos Edy Pérez (Perú)