Obtener codigo al cargar el nombre en un combobox mediante un recordset

[franko1809]

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

[David]

Si codcat es numérico, puedes usar el ItemData del ComboBox para guardarlo.

[franko1809]

Puedes poner un peuqeño ejemplo.
Y si el tipode dato fuera codcat char(2) que se puede hacer

[David]

Después del AddItem podrías poner esto:

Código vb:

cbCategoria.ItemData(cbCategoria.NewIndex) = rsCategoria!codcat
 

Si no fuera numérico el dato, lo puedes guardar en un Array, o en el Tag del control (separado por un carácter especial)

[franko1809]

Gracias tio ya solucione con tu codigo
Para mostrar el contenido del itemdata encontre esto y corre 100%
Text1 = cbCategoria.ItemData(cbCategoria.ListIndex)

Pero hay un problema con el tipo char
Perdona mi ignorancia pero como se utiliza la propiedad tag, encontre un ejemplo para los array pero no logro que me tome el contenido como texto

saludos

[David]

Con el Array es fácil, mira:

Código vb:

'En las Declaraciones
Private Codigos() As String
 

En el evento Load de la ventana:

Código vb:

ReDim Codigos(0)
 

Al agregar un elemento haz esto:

Código vb:

ReDim Preserve Codigos(UBound(Codigos) + 1)
Codigos(UBound(Codigos)) = rsCategoria!codcat
cbCategoria.ItemData(cbCategoria.NewIndex) = UBound(Codigos)
 

Luego, para recuperar el valor:

Código vb:

Text1 = Codigos(cbCategoria.ItemData(cbCategoria.ListIndex))
 

[franko1809]

muy bueno

saludos

[seba123neo]

Hola, esto ya se hablo, podes usar el control DataCombo para almacenar el id...y este permite alfanumericos...

saludos.