RUN-TIME ERROR [ô]-2147467259 (80004005)[ô]:
Realmente a tabela não esta fechando e aqui esta apresentando erro no TabOrcamentocab.MoveLast
Basso, faça o seguinte.Faz um projeto ou seu que esta usando e coloque para baixar.
Ai o pessoal vai verificar.
Ai o pessoal vai verificar.
Projeto
www.dropbox.com/s/miggq6p2kuwbjte/Rascunho%20Projeto.rar?dl=0
BANCO MYSQL E ODBC
https://www.dropbox.com/s/vuxohzgm9mfqmph/mysql-essential-5.1.51-win32.rar?dl=0
https://www.dropbox.com/s/pjqyo9j4rlejeun/MyODBC-3.51.10-x86-win-32bit.rar?dl=0
www.dropbox.com/s/miggq6p2kuwbjte/Rascunho%20Projeto.rar?dl=0
BANCO MYSQL E ODBC
https://www.dropbox.com/s/vuxohzgm9mfqmph/mysql-essential-5.1.51-win32.rar?dl=0
https://www.dropbox.com/s/pjqyo9j4rlejeun/MyODBC-3.51.10-x86-win-32bit.rar?dl=0
Instalei o Mysql e fiz um teste, apesar de aparecer erros com ID_LOGIN.Está faltando.
Não apresentou erro como foi mencionado por você.
TabOrcamentocab.MoveLast.
Não apresentou erro como foi mencionado por você.
TabOrcamentocab.MoveLast.
1. depois do execute do insert, tenta mandar um [Ô]commit[Ô], depois faz o requery ;
2. fecha o recordset e abre novamente, debuga e testar o recordcount;
2. fecha o recordset e abre novamente, debuga e testar o recordcount;
OMAR2011 uma coisa que esqueci comentar andei reparando que quando tem uns 6 Cadastros de Clientes ele não apresenta erro mas quando tem +/- uns 20 pra cima ele começa a dar o erro tenta fazer vários orçamentos com diversos clientes que vai apresentar o erro.
Imagens do Bug
https://www.dropbox.com/s/5ur1h8capgbii2z/E_FAIL.jpg?dl=0
https://www.dropbox.com/s/n61wvymhhdoinok/CODIGO.jpg?dl=0
PAULOOLIVEIRA
Vc poderia postar o código alterado.
Agradeço atenção de vocês.Obrigado por estarem colaborando
Imagens do Bug
https://www.dropbox.com/s/5ur1h8capgbii2z/E_FAIL.jpg?dl=0
https://www.dropbox.com/s/n61wvymhhdoinok/CODIGO.jpg?dl=0
PAULOOLIVEIRA
Vc poderia postar o código alterado.
Agradeço atenção de vocês.Obrigado por estarem colaborando
ja tentou so comentar esta linha movellast, pra ver o que ele retorna, ou seja qual dado ele retorna
MARCELO-TREZE já fiz isso ele vai gerar o relatório mas ele vai pegar a descrição do orçamento anterior e adicionar no relatório atual.O numero do Orçamento fica travado.
Bom,
Primeiro faria um teste de ping no servidor -t, e veja se a placa de rede nao ta falhando.... perdendo pacote... (pode ser perda de conexao)
se não.....
tenta trocar o tipo de conexao para adLockOptimistic
se não...
depois de gravar tenta...
set tborcamentocab = nothing
TabOrcamentocab.CursorLocation = adUseClient
TabOrcamentocab.Open SQLOrcamentoCab, Conexao, adOpenStatic, [Ô]adLockOptimistic
[Ô], adCmdText
if taborcamentocab.recordcount>0 then taborcamentocab.movelast
blz
Primeiro faria um teste de ping no servidor -t, e veja se a placa de rede nao ta falhando.... perdendo pacote... (pode ser perda de conexao)
se não.....
tenta trocar o tipo de conexao para adLockOptimistic
se não...
depois de gravar tenta...
set tborcamentocab = nothing
TabOrcamentocab.CursorLocation = adUseClient
TabOrcamentocab.Open SQLOrcamentoCab, Conexao, adOpenStatic, [Ô]adLockOptimistic
[Ô], adCmdText
if taborcamentocab.recordcount>0 then taborcamentocab.movelast
blz
Paulo Oliveira
Fiz como vc me orientou mas deu o mesmo erro na linha if taborcamentocab.recordcount>0 then taborcamentocab.movelast , tbm troquei o tipo de conexão mas sem sucesso.
Fiz como vc me orientou mas deu o mesmo erro na linha if taborcamentocab.recordcount>0 then taborcamentocab.movelast , tbm troquei o tipo de conexão mas sem sucesso.
Faça seu login para responder