Duvida Comando UPDATE (RESOLVIDO)

Fabin · Maio 27, 2009

E AEW GALERA OLHA EU AI D NOVO RSRSRS...

É O SEGUINTE ESTOU COM UMA TELA DE alteração DE CADASTRO QUE FUNCIONA DA SEGUINTE MANEIRA, QUANDO ELA É CARREGADA TODOS OS CADASTROS são CARREGADOS E APARECE O PRIMEIRO E PODE IR NAVEGANDO PELO BOTAO PROXIMO E ANTERIOR E CASO FAÇA ALGUMA alteração SO CLICAR EM ALTERAR MAS EIS O PROBLEMA QUANDO CLICO EM ALTERAR OCORRE UM ERRO NO .EXECUTE INFORMA QUE "NENHUMA VALOR FOI FORNECIDO PARA UM OUMAIS PARAMETORS NECESSARIOS".... VOU MANDRA O CODIGO PRA vocês DAREM UMA UMA OLHADA

Private Sub cmdAlterar_Click()

Dim cnnComando As New ADODB.Command

On Error GoTo errAlteraçao

With cnnComando

.ActiveConnection = cnnCadastro

.CommandType = adCmdText

.CommandText = "UPDATE Clientes SET " & _

"Nome = '" & txtNome.Text & "', " & _

"DataNasc = '" & txtNasc.Text & "', " & _

"CPF = '" & txtCpf.Text & "', " & _

"Identidade = '" & txtIdentidade.Text & "', " & _

"Endereço = '" & txtEndereço.Text & "', " & _

"Numero = " & txtNumero.Text & ", " & _

"Bairro = '" & txtBairro.Text & "', " & _

"Cidade = '" & txtCidade.Text & "', " & _

"Estado = '" & txtEstado.Text & "', " & _

"TelResidencial = '" & txtResidencial.Text & "', " & _

"TelCelular = '" & txtCelular.Text & "' WHERE CodCliente = " & txtCodCliente.Text & ";"

.Execute

End With

MsgBox " Atualizaçao concluida com sucesso", vbExclamation + vbOKOnly + vbApplicationModal, "Atualizaçao OK"

Saida:

Set cnnComand = Nothing

Screen.MousePointer = vbDefault

Exit Sub

errAlteraçao:

With Err

If .Number <> 0 Then

MsgBox "Houve um erro na alteração do cadastro", vbInformation + vbOKOnly + vbApplicationModal, "Erro"

.Number = 0

GoTo Saida

End If

End With

End Sub

OBS OS CAMPOS TELRESIDENCIAL E TELCELEULAR são OPTATIVOS SO PREENCHEM SE TIVEREM...

ME AJUDEM AI POR FAVOR :wacko:

VALEWS GALERA T+ :)

Editado Maio 27, 2009 por Fabin

Leandro_Pirozzi · Maio 27, 2009

E AEW GALERA OLHA EU AI D NOVO RSRSRS...
É O SEGUINTE ESTOU COM UMA TELA DE alteração DE CADASTRO QUE FUNCIONA DA SEGUINTE MANEIRA, QUANDO ELA É CARREGADA TODOS OS CADASTROS são CARREGADOS E APARECE O PRIMEIRO E PODE IR NAVEGANDO PELO BOTAO PROXIMO E ANTERIOR E CASO FAÇA ALGUMA alteração SO CLICAR EM ALTERAR MAS EIS O PROBLEMA QUANDO CLICO EM ALTERAR OCORRE UM ERRO NO .EXECUTE INFORMA QUE "NENHUMA VALOR FOI FORNECIDO PARA UM OUMAIS PARAMETORS NECESSARIOS".... VOU MANDRA O CODIGO PRA vocês DAREM UMA UMA OLHADA
Private Sub cmdAlterar_Click()
Dim cnnComando As New ADODB.Command
On Error GoTo errAlteraçao
With cnnComando
.ActiveConnection = cnnCadastro
.CommandType = adCmdText
.CommandText = "UPDATE Clientes SET " & _
"Nome = '" & txtNome.Text & "', " & _
"DataNasc = '" & txtNasc.Text & "', " & _
"CPF = '" & txtCpf.Text & "', " & _
"Identidade = '" & txtIdentidade.Text & "', " & _
"Endereço = '" & txtEndereço.Text & "', " & _
"Numero = " & txtNumero.Text & ", " & _
"Bairro = '" & txtBairro.Text & "', " & _
"Cidade = '" & txtCidade.Text & "', " & _
"Estado = '" & txtEstado.Text & "', " & _
"TelResidencial = '" & txtResidencial.Text & "', " & _
"TelCelular = '" & txtCelular.Text & "' WHERE CodCliente = " & txtCodCliente.Text & ";"
.Execute
End With
MsgBox " Atualizaçao concluida com sucesso", vbExclamation + vbOKOnly + vbApplicationModal, "Atualizaçao OK"
Saida:
Set cnnComand = Nothing
Screen.MousePointer = vbDefault
Exit Sub
errAlteraçao:
With Err
If .Number <> 0 Then
MsgBox "Houve um erro na alteração do cadastro", vbInformation + vbOKOnly + vbApplicationModal, "Erro"
.Number = 0
GoTo Saida
End If
End With
End Sub
OBS OS CAMPOS TELRESIDENCIAL E TELCELEULAR são OPTATIVOS SO PREENCHEM SE TIVEREM...
ME AJUDEM AI POR FAVOR :wacko:
VALEWS GALERA T+ :)

Cara faz o seguinte põe um breakpoint lá no update e depois vai apertando F8 e posicionando o mouse nos texts, para ver o conteúdo deles.

Provavelmente o erro está em um desses campos onde voce disse que são optativos.

Fabin · Maio 27, 2009

E AEW GALERA OLHA EU AI D NOVO RSRSRS...
É O SEGUINTE ESTOU COM UMA TELA DE alteração DE CADASTRO QUE FUNCIONA DA SEGUINTE MANEIRA, QUANDO ELA É CARREGADA TODOS OS CADASTROS são CARREGADOS E APARECE O PRIMEIRO E PODE IR NAVEGANDO PELO BOTAO PROXIMO E ANTERIOR E CASO FAÇA ALGUMA alteração SO CLICAR EM ALTERAR MAS EIS O PROBLEMA QUANDO CLICO EM ALTERAR OCORRE UM ERRO NO .EXECUTE INFORMA QUE "NENHUMA VALOR FOI FORNECIDO PARA UM OUMAIS PARAMETORS NECESSARIOS".... VOU MANDRA O CODIGO PRA vocês DAREM UMA UMA OLHADA
Private Sub cmdAlterar_Click()
Dim cnnComando As New ADODB.Command
On Error GoTo errAlteraçao
With cnnComando
.ActiveConnection = cnnCadastro
.CommandType = adCmdText
.CommandText = "UPDATE Clientes SET " & _
"Nome = '" & txtNome.Text & "', " & _
"DataNasc = '" & txtNasc.Text & "', " & _
"CPF = '" & txtCpf.Text & "', " & _
"Identidade = '" & txtIdentidade.Text & "', " & _
"Endereço = '" & txtEndereço.Text & "', " & _
"Numero = " & txtNumero.Text & ", " & _
"Bairro = '" & txtBairro.Text & "', " & _
"Cidade = '" & txtCidade.Text & "', " & _
"Estado = '" & txtEstado.Text & "', " & _
"TelResidencial = '" & txtResidencial.Text & "', " & _
"TelCelular = '" & txtCelular.Text & "' WHERE CodCliente = " & txtCodCliente.Text & ";"
.Execute
End With
MsgBox " Atualizaçao concluida com sucesso", vbExclamation + vbOKOnly + vbApplicationModal, "Atualizaçao OK"
Saida:
Set cnnComand = Nothing
Screen.MousePointer = vbDefault
Exit Sub
errAlteraçao:
With Err
If .Number <> 0 Then
MsgBox "Houve um erro na alteração do cadastro", vbInformation + vbOKOnly + vbApplicationModal, "Erro"
.Number = 0
GoTo Saida
End If
End With
End Sub
OBS OS CAMPOS TELRESIDENCIAL E TELCELEULAR são OPTATIVOS SO PREENCHEM SE TIVEREM...
ME AJUDEM AI POR FAVOR :wacko:
VALEWS GALERA T+ :)
Cara faz o seguinte põe um breakpoint lá no update e depois vai apertando F8 e posicionando o mouse nos texts, para ver o conteúdo deles.
Provavelmente o erro está em um desses campos onde voce disse que são optativos.

MAS LEANDRO MESMO QUANDO EU PREENCHO ESSES CAMPOS ACONTECE O MESMO ERRO SERA O QTE ACONTENCENDO???

valeu LEANDRO

SE TIVER MAIS DICAS FICAREI AGRADECIDO

T+ :D

raphael_suporte · Maio 27, 2009

Cara, verifica os campos da tabela.. algum campo pode está faltando ou com um nome adverso do que se encontra no seu código.

PS: Teria como não escrever tudo com o CAPS ativo, pois pode parecer um xingamento ou coisa do gênero.

Fabin · Maio 27, 2009

Cara, verifica os campos da tabela.. algum campo pode está faltando ou com um nome adverso do que se encontra no seu código.
PS: Teria como não escrever tudo com o CAPS ativo, pois pode parecer um xingamento ou coisa do gênero.

vo verificar aqui novamente, mas deixa eu te explicar, os campos que são alternativos estao em brancos não há nada digitado poderia ser issuo?? eu tenho que converter alguma coisa??? Mas como eu expliquei já preenchi todos os campos e nada???

a tah pod deixar foi mals brother

abraço

valews

t+ :D

Eu nem vou comentar onde é que estava o erro deste problema por que é banal rsrsrsrs........

era justamente em um campo como onome diferente hehehe

mas já at resolvido...

mas aproveitando o embalo leandro

fiz um tópico em relaçao ao botao proximo

to quebrando a cabeça ams não to conseguindo o kuroi já ate me ajudou um pouco e to esperando algumas resposatas ainda... não tem como você dar uma olhada la não???

valews Leandro e também o raphael

t+ :D

Entrar

Duvida Comando UPDATE (RESOLVIDO)

Pergunta

Fabin

Link para o comentário

Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

Leandro_Pirozzi

Link para o comentário

Compartilhar em outros sites

Fabin

Link para o comentário

Compartilhar em outros sites

raphael_suporte

Link para o comentário

Compartilhar em outros sites

Fabin

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades