VB FECHANDO DO NADA AO DAR UPDATE NO RECORDSET
Boa tarde colegas.
Estou com um problema que nunca passei por nada deste tipo.
Quando tento dar update em um recordset o vb fecha do nada (erro no windows mesmo).
Abaixo esta o trecho de codigo.
Na ultima linha o vb para de responder.
Ja pensei que poderia ser algum pau no windows 7, mas outras telas que faço o mesmo procedimento nada acontece. Alguem de olhar para isto imagina o que pode ser ?
Estou com um problema que nunca passei por nada deste tipo.
Quando tento dar update em um recordset o vb fecha do nada (erro no windows mesmo).
Abaixo esta o trecho de codigo.
Set dsProc = New ADODB.Recordset
If cmbCodigo = [Ô][Ô] Then
dsProc.Open [Ô]select * from controleprocessos[Ô], con, adOpenDynamic, adLockOptimistic
dsProc.AddNew
Else
dsProc.Open [Ô]select * from controleprocessos where codigo=[Ô] & cmbCodigo, con, adOpenDynamic, adLockOptimistic
End If
dsProc!razao = txtEmpresa
dsProc!lembrar = Format(txtLembrar, [Ô]dd/mm/yyyy[Ô])
dsProc!tipoprocesso = cmbTipoProcesso
dsProc!complementoprocesso = txtComplementoProcesso
dsProc!jucesp = cmbJucesp
dsProc!obsjucesp = txtObsJucesp
dsProc!pfe = cmbPfe
dsProc!obspfe = txtObsPfe
dsProc!vigilancia = cmbVigilancia
dsProc!obsvigilancia = txtObsVigilancia
dsProc!rfb = cmbRfb
dsProc!obsrfb = txtObsRfb
dsProc!prefeitura = cmbPrefeitura
dsProc!obsprefeitura = txtObsPrefeitura
dsProc!outros = cmbOutros
dsProc!obsoutros = txtObsOutros
dsProc.Update Na ultima linha o vb para de responder.
Ja pensei que poderia ser algum pau no windows 7, mas outras telas que faço o mesmo procedimento nada acontece. Alguem de olhar para isto imagina o que pode ser ?
tentou isto
Else
dsProc.Open [Ô]select * from controleprocessos where codigo=[Ô] & cmbCodigo, con, adOpenDynamic, adLockOptimistic
dsProc.Edit
Else
dsProc.Open [Ô]select * from controleprocessos where codigo=[Ô] & cmbCodigo, con, adOpenDynamic, adLockOptimistic
dsProc.Edit
Marcelo, no ADO nao existe o .edit
E outra nos testes estou tentando dar addnew e nao editar.
E outra nos testes estou tentando dar addnew e nao editar.
tenta isto então
ps: leve em consideração o seguinte, campos que forem do tipo numero, tire o apostrofo([ô])
sSQL = sSQL & [Ô]UPDATE controleprocesso SET [Ô]
sSQL = sSQL & [Ô]razao =[ô][Ô] & txtEmpresa.txt & [Ô][ô],[Ô]
sSQL = sSQL & [Ô]embrar =#[Ô] & Format(txtLembrar, [Ô]dd/mm/yyyy[Ô]) & [Ô]#,[Ô]
sSQL = sSQL & [Ô]tipoprocesso = [ô][Ô] & cmbTipoProcesso & [Ô][ô],[Ô]
sSQL = sSQL & [Ô]complementoprocesso =[ô][Ô] & txtComplementoProcesso & [Ô],[Ô]
sSQL = sSQL & [Ô]ucesp = [ô][Ô] & cmbJucesp & [Ô][ô],[Ô]
sSQL = sSQL & [Ô]obsjucesp = [ô][Ô] & txtObsJucesp & [Ô][ô],[Ô]
sSQL = sSQL & [Ô]pfe = [ô][Ô] & cmbPfe & [Ô][ô],[Ô]
sSQL = sSQL & [Ô]obspfe = [ô][Ô] & txtObsPfe & [Ô][ô],[Ô]
sSQL = sSQL & [Ô]vigilancia = [ô][Ô] & cmbVigilancia & [Ô][ô],[Ô]
sSQL = sSQL & [Ô]obsvigilancia = [ô][Ô] & txtObsVigilancia & [Ô][ô],[Ô]
sSQL = sSQL & [Ô]rfb = [ô][Ô] & cmbRfb & [Ô][ô],[Ô]
sSQL = sSQL & [Ô]obsrfb = [ô][Ô] & txtObsRfb & [Ô][ô],[Ô]
sSQL = sSQL & [Ô]prefeitura = [ô][Ô] & cmbPrefeitura & [Ô][ô],[Ô]
sSQL = sSQL & [Ô]obsprefeitura = [ô][Ô] & txtObsPrefeitura & [Ô][ô],[Ô]
sSQL = sSQL & [Ô]outros = [ô][Ô] & cmbOutros & [Ô][ô],[Ô]
sSQL = sSQL & [Ô]obsoutros = [ô][Ô] & txtObsOutros & [Ô][ô] where codigo=[Ô] & cmbCodigo
dsProc.Open sSQL, con, adOpenDynamic, adLockOptimisticps: leve em consideração o seguinte, campos que forem do tipo numero, tire o apostrofo([ô])
Ola Marcelo, seguinte pensei em fazer isso, mas do jeito que esta, ja esta pronto por isso nao fiz via sql.
E o problema esta dando na linha : dsproc.update
Quando tento dar um insert.
Vou tentar via sql convencional e posto os resultados.
E o problema esta dando na linha : dsproc.update
Quando tento dar um insert.
Vou tentar via sql convencional e posto os resultados.
Tópico encerrado , respostas não são mais permitidas