ERRO DE GRAVACAO
Ola Galera vb Me ajude. Fiz um programinha de cadastro com fotos paraz uma empresa e funciona blz mas quando vou alterar alterar o cadastro ai vem a dor de cabeça ele pega os dados e inverte tudo a data de nascimento grava no campo nacionalidade e nacionalidade grava no campo estado civil nome do pai apaga e nome da mão grava no nome do pai eu usei o dao 3.6 com db em access é o que sei trabalhar as outrar ferramentas não sei usar.Alguem pode me ajudar obrigado.
Posta seu fonte, o [Ô]UPDATE[Ô] deve estar errado...
o erro é 3426 objeto associado
não edita o cadastro
colega vc terá de postar seu código para entendermos
coloca sua rotina de update ai.. com certeza tem alguma vinculação errada.. e principalmente se tratando de DAO.
Posta sua rotina, mas acho deveria migrar para ADO é melhor e mais confiavel, bom é o eu acho só trabalho com ADO.
Mais verificar se as ordem estão corretas para o UpDate em DAO.
Crie uma SubRotina
Public Sub UpDateDAO()
RS.Edit
RS([Ô]NomedaColuna_na_sequencia[Ô]) = Text1.text
RS([Ô]NomedaColuna_na_sequencia[Ô]) = Text2.text
RS([Ô]NomedaColuna_na_sequencia[Ô]) = Text3.text
RS([Ô]NomedaColuna_na_sequencia[Ô]) = Text4.text
RS.UpDate
End Sub
No Botão que atualiza após verificar os dados necessáios coloque essa SUB
Private Sub Alterar_Click()
If Text1.text = [Ô][Ô] then
msgBox [Ô]Digite um valor[Ô], vbinformation, [Ô]Erro[Ô]
exit sub
end if
[ô]Se tudo estiver correto conforme o simulado acima ou seja você comparou tudo e não deu nenhum retorno
[txt-color=#e80000]UpDateDAO[/txt-color]
End Sub
Espero Ter ajudado
Mais verificar se as ordem estão corretas para o UpDate em DAO.
Crie uma SubRotina
Public Sub UpDateDAO()
RS.Edit
RS([Ô]NomedaColuna_na_sequencia[Ô]) = Text1.text
RS([Ô]NomedaColuna_na_sequencia[Ô]) = Text2.text
RS([Ô]NomedaColuna_na_sequencia[Ô]) = Text3.text
RS([Ô]NomedaColuna_na_sequencia[Ô]) = Text4.text
RS.UpDate
End Sub
No Botão que atualiza após verificar os dados necessáios coloque essa SUB
Private Sub Alterar_Click()
If Text1.text = [Ô][Ô] then
msgBox [Ô]Digite um valor[Ô], vbinformation, [Ô]Erro[Ô]
exit sub
end if
[ô]Se tudo estiver correto conforme o simulado acima ou seja você comparou tudo e não deu nenhum retorno
[txt-color=#e80000]UpDateDAO[/txt-color]
End Sub
Espero Ter ajudado
Descobri que é a image1 que não edita. Será que tem como alguem postar um exemplo de banco de dados com foto usando dao e image1 que edita o cadastro. Eu ja fiz que funciona certo so não consigo editar o cadastro. Desde jjá agradeço as respostas e aguardo ajuda. obrigado
é mais facil voce salvar o caminho da foto no banco de dados e abrir a imagem do caminho.
Ai voce edita o campo caminhodafoto
rs.edit
rs!caminhofoto = qqrcaminho
rs.update
Ai voce edita o campo caminhodafoto
rs.edit
rs!caminhofoto = qqrcaminho
rs.update
Faça um TOUR pelo site pesquise FOTOS em arquivo que você ira encontrar muitas coisas exemplos abaixo:
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=7390http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=8846http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=8656
Acho esse aqui ajudaria você, pois é em DAO
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=6517
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=7390http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=8846http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=8656
Acho esse aqui ajudaria você, pois é em DAO
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=6517
Tópico encerrado , respostas não são mais permitidas