Selecionar un ítem concreto en un combobox

[Anakin]

Hola a todos !

Mirad, tengo un formulario con varios combobox a donde solo se puede selecionar si o no.
La información del formulario la saco de una base de datos a través de ADODB.

Lo que me interesaria es que me saliera selecionado el si o el no del combobox dependiendo de la información almacenada a la base de datos.

Me podeys echar una mano ?

Muchas gracias !!
Un saludo y un abrazo.

[GeoAvila]

entendi algo asi..
como asi mira por ejemplo que si seleccion el usuario Juan Perez, con el codigo 1, y el combo te diga por ejemplo si tiene o no tiene credito en nuestra empresa.

algo asi prentendes hacer.

[Anakin]

Pues creo que has entendido bien, quiera hacer algo parecido a lo que has dicho.

I una cosa que creo que no e dicho, y es que trabajo con visual basic.

[GeoAvila]

bueno aqui podes descargar un datalist, que basicamente lo mismo que un datacombo, bien en la propiedad boundtext del datacombo asi como aparece aqui en el datalist, dentro de la accion change tendria que ir algo asi

por cierto el link es este
para un post anterior alli esta la direccion para datalist

http://www.forosdelweb.com/showthrea...402#post751402

y dentro del change del datalist va algo asi

Código:

             Dim db As Connection
             Dim adoPrimaryRS As Recordset
             dim BasePath as String
             Set db = New Connection
             Set adoPrimaryRS = New Recordset
             db.CursorLocation = adUseClient
             db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & BasePath
 adoPrimaryRS.Open "select nit_cliente,nombre,apellido,direccion,cliente from clientes where nit_cliente ='" & datacombo.BoundText & "'", db, adOpenStatic, adLockOptimistic
             If adoPrimaryRS.BOF = False Then
 if adoPrimaryRS!cliente = true then ' "Cliente" e boolean para el credito, si tiene da true y si no da false..
                           msgbox "El cliente si posee credito"
                  else
                            msgbox "El cliente NO posee credito"
             Else
             MsgBox "El Cliente no existe ¿Desea agregarlo S/N?", vbInformation + vbYesNo, "Clientes"
             
             End If

aso asi tendrias que poner en tu combo una consulta para que revise el resultado del item que seccionaste la variable "BasePath" es el direcctorio de la base de datos en este caso una de access, es una idea nadamas si tenes problemas avisame..

nos vemos