AJUDA COM DATACOMBO
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
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
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++
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++
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!!
Valeu de qq jeito!!
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++
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