ATUALIZAR COMBOX

SOUZA 05/03/2011 22:03:41
#367363
Pessoal blz, como faço pra atualizar um combox, quando eu faço a inclusao do registro ele salva blz mas quando eu clico no combox ele nao me traz o registro que acabei de efetiver !

eu busco na base da segunte forma

Dim AreaTrabalho As Workspace
Dim query As String
Dim dyn As Dynaset

Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & [Ô]\Cadastro.Mdb[Ô], False, False, [Ô];PWD=senha[Ô])
query = [Ô]Select * From COR order by COR[Ô]
Set dyn = xxbco.CreateDynaset(query)
While Not dyn.EOF
COR.AddItem dyn([Ô]COR[Ô]) & [Ô][Ô]
dyn.MoveNext
Wend
xxbco.Close
RICKSOUSA 05/03/2011 23:10:21
#367367
se por acaso quando todas as veses que vc abre o programa ele traz oq ja esta salvo no combobox, então faça o seguinte, crie uma variavel, com os comandos do combobox que vc criou trazendo os dados quando vc abre o programa certo?
ai vc chama a variavel no botão que salva.

vc pode mandar o codigo que esta no combobox e o codigo que esta no botão de salvar???

talves posso te ajudar melhor...
SOUZA 06/03/2011 00:06:41
#367368
ja fiz isso mas quando eu altero ex ele altera e atualiza mas mantem o registro anterior tb tenho que sair do sistema e voltar pra atualizar certo
ANDPAG 06/03/2011 03:42:55
#367377 Resposta escolhida
coloca essa linha (COR.Clear) antes do While

Dim AreaTrabalho As Workspace
Dim query As String
Dim dyn As Dynaset

Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & [Ô]\Cadastro.Mdb[Ô], False, False, [Ô];PWD=senha[Ô])
query = [Ô]Select * From COR order by COR[Ô]
Set dyn = xxbco.CreateDynaset(query)

COR.Clear

While Not dyn.EOF
COR.AddItem dyn([Ô]COR[Ô]) & [Ô][Ô]
dyn.MoveNext
Wend
xxbco.Close
SOUZA 06/03/2011 10:07:27
#367385
show de bola valeu!!!!!!!!!!!!!!!!!
Tópico encerrado , respostas não são mais permitidas
Voltar