AJUDA COM DATACOMBO

USUARIO.EXCLUIDOS 19/01/2005 22:20:33
#61896
Preencho uma datacombo:
rst.CursorLocation = adUseCliente
rst.open "select * From clientes",cnn,adOpenKeyset,adLockPessimistic
Set dtcbo.DataSource = rst
dtcbo.BoundColumn = rst!idCliente
dtcbo.ListField = "NomeCli"
Set dtcbo.RowSource = rst
dtcbo.Refresh

Até ai tudo bem...

Tento gravar no mdb:
rstCli.AddNew
rstCli!idCliente = dtcbo.BoundColumn
rstCli.Update

Ai vem a dificuldade...
Grava sempre o primeiro item da combo, não importa qual item selecionado

Se alguem puder ajudar agradeço, estou iniciando no VB e ainda apanho nos pequenos detalhes

grato
USUARIO.EXCLUIDOS 20/01/2005 08:30:10
#61908
Resposta escolhida
JOSE CARLOS,

bom dia

vc tem que usar a proprietade BoundText pra gravar e esta usando a BoundColumn

rstCli!idCliente = dtcbo.BoundColumn

rstCli!idCliente = dtcbo.BoundText

falows
t++
USUARIO.EXCLUIDOS 20/01/2005 21:00:52
#62072
Agradeço a ajuda, mas infelismente não funcionou. eu preciso gravar o id do cliente e não o nome dele, no caso o BoundText.

Valeu de qq jeito!!
USUARIO.EXCLUIDOS 21/01/2005 08:37:35
#62119
rst.CursorLocation = adUseCliente
rst.open "select * From clientes",cnn,adOpenKeyset,adLockPessimistic
Set dtcbo.DataSource = rst
dtcbo.BoundColumn = rst("idCliente").name ou "IDCliente" <-- tem que colocar o nome do campo aqui
dtcbo.ListField = "NomeCli"
Set dtcbo.RowSource = rst
dtcbo.Refresh

Até ai tudo bem...

Tento gravar no mdb:
rstCli.AddNew
rstCli!idCliente = dtcbo.BoundText <-- tem que colocar o boundtext aqui
rstCli.Update



no BoundColumn temos que especificar o nome do campo, se colocar rst!idCliente
vai ser jogado o valor do campo na posição que o ado estiver apontadado (provavelmente neste caso na 1º posição)


espero q ajude, qq. coisa retorna ai
falows
t++
Tópico encerrado , respostas não são mais permitidas