Ver Mensaje Individual
  #1 (permalink)  
Antiguo 13/03/2009, 12:51
franko1809
 
Fecha de Ingreso: enero-2008
Ubicación: Lima - Perú
Mensajes: 1.127
Antigüedad: 17 años, 3 meses
Puntos: 10
Obtener codigo al cargar el nombre en un combobox mediante un recordset

En mi tabla tengo 2 campos codcat int(2) y nomcat varchar(250)
En el combobox solo necesito mostrar el nomcat y al selecionar un nomcat del combo debo obtener el codcat de dicha categoria en un text1

Como hago para recuperar el codigo?, lo que hize fue mostrar el codcat y nomcat en el mismo combo1 y recuperar el codcat mediante la funcion left(combo1.text,2) pero en mi combo siempre se mostrara el codcat que puedo hacer para solo mostrar el nombre en lugar de mostrar el codigo y nombre

Código:
'Cargo el combo
Private Sub Command1_Click()
SQL = "SELECT*FROM categoria ORDER BY nomcat"
Set rsCategoria = dbConex.Execute(SQL)

cbCategoria.Clear
Do Until rsCategoria.EOF
  cbCategoria.AddItem rsCategoria!codcat & " - " & rsCategoria!nomcat
  rsCategoria.MoveNext
Loop
End Sub

Private Sub cbCategoria_LostFocus()
  'Agui recupero el codcat al perder el foco
  Text1 = Left(cbCategoria.Text, 2)

End Sub
Espero me entiendan