ERRO NO VB6
Boa Noite Amigos
Sem mais nem menos, comecou a aparecer um erro na minha rotina de [Ô]Update[Ô].
A mensagem e essa [Ô]Consulta Muito Complexa[Ô].
Alguem ja teve esse problema?
Obrigado e um Abraço
Sem mais nem menos, comecou a aparecer um erro na minha rotina de [Ô]Update[Ô].
A mensagem e essa [Ô]Consulta Muito Complexa[Ô].
Alguem ja teve esse problema?
Obrigado e um Abraço
colega se vc não postar sua query fica meio dificil, mas se o banco for access tentou repara-lo
Muito Obrigado Marcelo
Eu ainda nao tentei repara-lo.
Quanto ao meu problema, percebi que o problema realmente esta na gravacao dos dados,pois quando tento gravar qualquer informacao em uma determinada tabela da erro.
Experimentei abrir a base pelo Visual Interdev e tambem nao consegui altera-la, pois ocorreu o mesmo erro.Porem alterando dentro do proprio Access, ai nao tem problema.
O meu problema e especifico de gravacao, tudo esta correto.
Vou tentar reparar
Obrigado e um Abraço
Eu ainda nao tentei repara-lo.
Quanto ao meu problema, percebi que o problema realmente esta na gravacao dos dados,pois quando tento gravar qualquer informacao em uma determinada tabela da erro.
Experimentei abrir a base pelo Visual Interdev e tambem nao consegui altera-la, pois ocorreu o mesmo erro.Porem alterando dentro do proprio Access, ai nao tem problema.
O meu problema e especifico de gravacao, tudo esta correto.
Vou tentar reparar
Obrigado e um Abraço
se não conseguir posta a query de inclusão para vermos se possui algum problema
Obrigado Novamente
Como eu havia dito, o sistema estava gravando os dados normalmente na rotina de gravacao e agora esta dando o erro que informei.Nao acredito que o erro esteja na rotina que segue abaixo:
O erro ocorre na linha do [Ô]Update[Ô]
strSelect = [Ô]Select * from TB_NOTAS1 Where TBVEN_ID=[Ô] & str_IdVen
rscmdAux.Open strSelect, envPanal.cnn_Panal, adOpenKeyset, adLockOptimistic
If rscmdAux.EOF Then
rscmdAux.AddNew
rscmdAux!TBVEN_NOTA = CDbl([Ô]0[Ô] & TxtNota.Text)
rscmdAux!TBVEN_DUP = 0
End If
rscmdAux!TBVEN_DATA = Format(MskIni.Text, [Ô]DD/MM/YYYY[Ô]) [ô]& [Ô] [Ô] & Format(Now, [Ô]HH:MM:SS[Ô])
rscmdAux!TBVEN_VALOR = CDbl([Ô]0[Ô] & LblValor.Caption)
rscmdAux!TBVEN_SAIDA = Format(MskSai.Text, [Ô]DD/MM/YYYY[Ô])
rscmdAux!TBCLI_ID = cboRemetente.ItemData(cboRemetente.ListIndex)
rscmdAux!TBCFOP_ID = CboCfop.ItemData(CboCfop.ListIndex)
rscmdAux!TBVEN_SERVICOS = CDbl([Ô]0[Ô] & MskServiços.Text)
rscmdAux!TBVEN_ISS = CDbl([Ô]0[Ô] & MskIss.Text)
rscmdAux!TBVEN_CANCELA = [Ô]N[Ô]
rscmdAux.Update
str_IdVen = rscmdAux!TBVEN_ID
rscmdAux.Close
Sidnei
Como eu havia dito, o sistema estava gravando os dados normalmente na rotina de gravacao e agora esta dando o erro que informei.Nao acredito que o erro esteja na rotina que segue abaixo:
O erro ocorre na linha do [Ô]Update[Ô]
strSelect = [Ô]Select * from TB_NOTAS1 Where TBVEN_ID=[Ô] & str_IdVen
rscmdAux.Open strSelect, envPanal.cnn_Panal, adOpenKeyset, adLockOptimistic
If rscmdAux.EOF Then
rscmdAux.AddNew
rscmdAux!TBVEN_NOTA = CDbl([Ô]0[Ô] & TxtNota.Text)
rscmdAux!TBVEN_DUP = 0
End If
rscmdAux!TBVEN_DATA = Format(MskIni.Text, [Ô]DD/MM/YYYY[Ô]) [ô]& [Ô] [Ô] & Format(Now, [Ô]HH:MM:SS[Ô])
rscmdAux!TBVEN_VALOR = CDbl([Ô]0[Ô] & LblValor.Caption)
rscmdAux!TBVEN_SAIDA = Format(MskSai.Text, [Ô]DD/MM/YYYY[Ô])
rscmdAux!TBCLI_ID = cboRemetente.ItemData(cboRemetente.ListIndex)
rscmdAux!TBCFOP_ID = CboCfop.ItemData(CboCfop.ListIndex)
rscmdAux!TBVEN_SERVICOS = CDbl([Ô]0[Ô] & MskServiços.Text)
rscmdAux!TBVEN_ISS = CDbl([Ô]0[Ô] & MskIss.Text)
rscmdAux!TBVEN_CANCELA = [Ô]N[Ô]
rscmdAux.Update
str_IdVen = rscmdAux!TBVEN_ID
rscmdAux.Close
Sidnei
Esqueci de dizer que agora tambem nao consigo excluir, pois ocorre a mesma mensagem de erro.
Estou frito
Estou frito
se vc reparou o banco e o erro persiste, então problema deve estar no pc
Tópico encerrado , respostas não são mais permitidas