ERRO NO ACESSO ACCESS
Que infeliz de erro é esse (que erro cabeludo heim!)
Não entendi nada , alguem pode me ajudar por favor , caso já passou por isto?
estou usando um metodo simples ....[S61][S80]
Grato a todos que puderem me auxiliar nesta missão hehehe
[S71]
Não entendi nada , alguem pode me ajudar por favor , caso já passou por isto?
estou usando um metodo simples ....[S61][S80]
Grato a todos que puderem me auxiliar nesta missão hehehe
[S71]
amigo,
tem como postar parte do seu código para analizar-mos?
abraço!
Desculpe esqueci de colocar o que eu estou usando...
Dim rcST As New ADODB.Recordset
SSQL = "SELECT NROLOC FROM CAD_ROOMING WHERE LOCAL='" & Trim(GRSET.TextMatrix(iRec, 7)) & "'"
o erro da na hora execução{ Set rcST = cnPitor.Execute(SSQL)}
If rcST.EOF Then
MsgBox "Verifique cadastro de local, esta com problema neste registro.", vbCritical + vbOKOnly, "Erro...!"
Exit Sub
End If
NRLOC = rcST("NROLOC")
Set rcST = Nothing
rcST.Close
Dim rcST As New ADODB.Recordset
SSQL = "SELECT NROLOC FROM CAD_ROOMING WHERE LOCAL='" & Trim(GRSET.TextMatrix(iRec, 7)) & "'"
o erro da na hora execução{ Set rcST = cnPitor.Execute(SSQL)}
If rcST.EOF Then
MsgBox "Verifique cadastro de local, esta com problema neste registro.", vbCritical + vbOKOnly, "Erro...!"
Exit Sub
End If
NRLOC = rcST("NROLOC")
Set rcST = Nothing
rcST.Close
tenta fazer assim:
'troca essa:
Set rcST = cnPitor.Execute(SSQL)
'por essa:
rcST.open SSQL ,cnPitor, adOpenStatic, adLockReadOnly
Não tenho certeza, mas acho que os dados desta tabela estão corrompidos. Abra o MDB com o access e verifique os registros da tabela. Veja se em alguma linha aparece a palavra "#Erro".
Se isto acontecer, me responda.
Fish
Se isto acontecer, me responda.
Fish
Olá Hexman,
Esse erro ocorreu comigo na semana passada aqui e foi difÃcil de achar o motivo, mas os colegas conseguiram achar.
O que pega é o seguinte:
Vc terá que trocar o nome do seu campo "LOCAL" pois a palavra Local é uma palavra reservada do SQL.
Pode trocar o nome desse campo que irá funcionar, ok ?
Espero poder tê-lo ajudado.
Esse erro ocorreu comigo na semana passada aqui e foi difÃcil de achar o motivo, mas os colegas conseguiram achar.
O que pega é o seguinte:
Vc terá que trocar o nome do seu campo "LOCAL" pois a palavra Local é uma palavra reservada do SQL.
Pode trocar o nome desse campo que irá funcionar, ok ?
Espero poder tê-lo ajudado.
você pode também colocar o nome local entre (), senão me engano funciona. Faz assim e vê se resolve seu problema:
SSQL = "SELECT NROLOC FROM CAD_ROOMING WHERE (LOCAL)='" & Trim(GRSET.TextMatrix(iRec, 7)) & "'"
Espero que te ajude. Não tenho certeza se é () ou se são {}, testa ai depois diz se funcionou.
SSQL = "SELECT NROLOC FROM CAD_ROOMING WHERE (LOCAL)='" & Trim(GRSET.TextMatrix(iRec, 7)) & "'"
Espero que te ajude. Não tenho certeza se é () ou se são {}, testa ai depois diz se funcionou.
Na realidade nem {} nem (), use [] que irá funcionar.
Abraços.
Abraços.
Tópico encerrado , respostas não são mais permitidas