Ola Amigos..
To com um probleminha aki..

Quero carregar uma combobox UF com o Codigo e a Sigla, amsi eu quero que apareça somente a Sigla, mais na hora de gravar no banco eu quero gravar somente o codigo.. Como eu faço isso?

Alex

usa o select case e mostra e carrega os valores ...

apos vc selecionar os campos no select vc concatena os valores na hora de adicionar no combo

 

exemplo

sn as Adodb.recordset,sql$

 

sql=Select codigo,UF from Estado

set sn=db.execute(sql)

combo1.additem  sn("Codigo") " - " sn("UF")

na hora de gravar

dim x%,tamanho%,sql$

 

tamanho = len(combo1.text)

for x=1 to tamanho

     if isnumeric(mid(combo1,x,tamanho) ) = true then

         sql = "Insert Into Estado(Codigo) values("

         sql = sql & " mid(combo1,x,tamanho")"

          db.execute(sql)

      else

           exit for

      endif

next x

 

tenta isso!!!!!!!!!!!

 

 

 

Tente utilizar o ItemData propriedade do ComboBox:

 

Para Inserir no combo

objCombo.AddItem rsEstados!uf

objCombo.ItemData(objCombo.NewIndex) = rsEstados!coduf

 

Para extrair a informação

objCombo.ItemData(objCombo.ListIndex)

 

Alberto