Problemas con ComboBox... VB 6.0

[Iaio VISUAL BASIC]

Hola gente... tengo un problemita a lo mejor me pueden dar una mano, o dos... o las que sean necesarias...

VISUAL BASIC 6.0

tengo un ComboBox de nombre "cboProvincia", el cual mediante un RecordSet se llena de la siguiente forma:

Código HTML:

Do While Not Rst.EOF
    With Me.cboLocalidad
        .AddItem Rst.Fields("sNombre")
        .ItemData(Me.cboLocalidad.NewIndex) = Rst.Fields("nCodLocalidad")
    End With
    Rst.MoveNext
Loop

El codigo de localidad no es un número correlativo.
El problema que me surge es que necesito, en el Combo ingresar el codigo de localidad y que automaticamente me salga el nombre de la Localidad.

Cualquier aclaración por favor haganme llegar...
Muchas gracias

[lokoman]

Hola!!
Una vez que el combo esté cargado, pones en el evento CHANGE:

Código vb:

DIM rstCONSULTA AS ADODB.RECORDSET
DIM strCONSULTA AS STRING
 
SET rstCONSULTA = NEW ADODB.RECORDSET
strCONSULTA="SELECT * FROM TABLA WHERE COD_LOCALIDAD=" & CBOLOCALIDAD.TEXT
 
rstCONSULTA.SOURCE=strCONSULTA
rstCONSULTA.OPEN,CONEXION
 
IF rstCONSULTA.EOF=FALSE THEN
   MSGBOX "EL NOMBRE DE LA LOCALIDAD ES " & rstCONSULTA!LOCALIDAD
END IF
 

El combo debe permitirte escribir... otra cosa... el combo se llama "cboProvincia" o cboLocalidad?

Nos cuentas!!!

[Iaio VISUAL BASIC]

No me expresé bien por lo visto jeje..

El combo ya está cargado con las Localidades, cada linea del combo contiene su descripción y en el ItemData estará un número (código) que no será correlativo.

Lo que yo quiero hacer es, colocar a mano el código y que automaticamente en el CboLocalidad.text me traiga la descripcion de la localidad.

por ejemplo: si pongo de la siguiente forma, el 1 me hace refencia a la fila 1 del combo

Me.cboLocalidad.text = Me.cboLocalidad.List(1)

Lo que yo quiero hacer es algo parecido pero ingresando a mano el código...

si hay algo que no se entiende podemos chatear por msn

[lokoman]

AAA!!! es mas simple:

Si tienes un textbox, ponle en el evento CHANGE:

Código vb:

IF VAL(txtTEXTBOX.TEXT)>0 THEN
   Me.cboLocalidad.text = Me.cboLocalidad.List(val(txtTEXBOX.TEXT))
END IF
 

Debes admitir solo numeros en el textbox, prueba a ver si funciona

[Iaio VISUAL BASIC]

de esa forma lo que estoy haciendo es mostrar la descripción de la localidad en la fila indicada en el textbox. Lo que yo estoy necesitando es, colocar el código (que se guarda en el ItemData) en el textbox y que el combo me muestre la descripcion de la localidad cuyo codigo esta en el textbox

[Gakex]

Hola

sera asi:

Código:

Private Sub Command1_Click()
Combo1.ListIndex = Val(Text1)
End Sub

[pkj]

Tendras que hacer en el evento change del combo un bucle donde compares el código con los itemdata.

Código vb:

Dim F as Long
For F= 0 to Combo1.Listcount-1
  if val(combo1.itemdata)=val(text1.text) then
    Combo1.listindex=f
    exit for
  end if
next f
 

Saludos

[Iaio VISUAL BASIC]

PKJ... PERFECTO!!!! Muchisimas gracias

tambien muchas gracias a Lokoman y Gakex por sus aportes...