Postada em 14/04/2009 15:00 hs
Já tem algum tempo que não mexo com VB e preciso atualizar um sistema feito em Access para o VB6.
Neste script abaixo:
'TipoAutor
SQL = "Select ideTipoAutor, texTipoAutor from TipoAutor order by IdeTipoAutor"
Dim rs As New ADODB.Recordset
rs.Open SQL, cn
Do While Not rs.EOF
Me.cbo_tipoAutor.AddItem rs("TexTipoAutor")
rs.MoveNext
Loop
Como fazer para salvar o campo ID (ideTipoAutor) e não o texto mostrado na combo (texTipoAutor) no banco de dados ?
Obrigado.
|
