CONSULTA EM BANCO DE DADOS
E Ai galera...
Estou com um probleminha. Criei uma consulta em minha aplicação, só que quando incluo um registro a consulta não atualiza e sou obrigado a fechar a consulta para que ela atualize.
Será que alguém pode me ajudar?
OBS:
(Abri a Consulta dessa maneira no Inicio do Sistema)
Set rstTmp = DBS.OpenRecordset("SELECT CAD_endereco.*, Cad_Cidade.Cidade," _
& " Cad_Cidade.Estado, Cad_Bairro.Bairro, Cad_Bairro.Cep FROM " _
& " Cad_Bairro INNER JOIN (Cad_Cidade INNER JOIN CAD_endereco " _
& " ON Cad_Cidade.ID_Cidade = CAD_endereco.IDCidade) ON " _
& " Cad_Bairro.ID_Bairro = CAD_endereco.IDBairro")
(O CODIGO ABAIXO é UTILIZADO QUANDO SALVO O CADASTRO.
E ABRO UM OUTRO RECORDSET PARA INCLUI O NOVO REGISTRO)
Set rstLocal = DBS.OpenRecordset("Cad_Endereco")
rstLocal.AddNew / rstLocal.Edit
rstLocal!endereco = Trim(txtEndereco.Text)
rstLocal!IDBairro = txtCodBairro.Text
rstLocal!cep = Trim(txtCep.Text)
rstLocal!IDCidade = txtCodCidade.Text
rstLocal!Status = "Ativo"
rstLocal.Update
Depois de incluso a consulta não é atualizado, a não ser se eu a feche e abra novamente.
Grato
Estou com um probleminha. Criei uma consulta em minha aplicação, só que quando incluo um registro a consulta não atualiza e sou obrigado a fechar a consulta para que ela atualize.
Será que alguém pode me ajudar?
OBS:
(Abri a Consulta dessa maneira no Inicio do Sistema)
Set rstTmp = DBS.OpenRecordset("SELECT CAD_endereco.*, Cad_Cidade.Cidade," _
& " Cad_Cidade.Estado, Cad_Bairro.Bairro, Cad_Bairro.Cep FROM " _
& " Cad_Bairro INNER JOIN (Cad_Cidade INNER JOIN CAD_endereco " _
& " ON Cad_Cidade.ID_Cidade = CAD_endereco.IDCidade) ON " _
& " Cad_Bairro.ID_Bairro = CAD_endereco.IDBairro")
(O CODIGO ABAIXO é UTILIZADO QUANDO SALVO O CADASTRO.
E ABRO UM OUTRO RECORDSET PARA INCLUI O NOVO REGISTRO)
Set rstLocal = DBS.OpenRecordset("Cad_Endereco")
rstLocal.AddNew / rstLocal.Edit
rstLocal!endereco = Trim(txtEndereco.Text)
rstLocal!IDBairro = txtCodBairro.Text
rstLocal!cep = Trim(txtCep.Text)
rstLocal!IDCidade = txtCodCidade.Text
rstLocal!Status = "Ativo"
rstLocal.Update
Depois de incluso a consulta não é atualizado, a não ser se eu a feche e abra novamente.
Grato
A sua consulta, quando foi criada, não exisita o registro. Portanto, VC teria que atualizar a sua tab de consulta para que o registro especÃfico apareça na tabela.
Tente dar um REFRESH na tab. de consulta. Caso não consiga fazer este refresh, aconselho VC fechar a tabela e abrÃ-la novamente (acho que assim, seria mais certo de aparecer o registro).
Não esqueça que o VB não é igual ao ACCESS ((consulta) que sempre quando abre, aparece o registro lá. No VB vc tem que fazer isso MANUAL.
Espero ter ajudado. Qualquer coisa, post novamente para poder auxiliá-lo melhor.
Tente dar um REFRESH na tab. de consulta. Caso não consiga fazer este refresh, aconselho VC fechar a tabela e abrÃ-la novamente (acho que assim, seria mais certo de aparecer o registro).
Não esqueça que o VB não é igual ao ACCESS ((consulta) que sempre quando abre, aparece o registro lá. No VB vc tem que fazer isso MANUAL.
Espero ter ajudado. Qualquer coisa, post novamente para poder auxiliá-lo melhor.
Tópico encerrado , respostas não são mais permitidas