Fabin

alguém AI TEM UMA SOLUÇAO VALEWS T+ :D

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

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+ :)

Galera é o seguinte tenho uma tela de cadastro e outra de alteração. na de alteração eu to querendo que quando ela abrir já abra com os campos preenchidos do primeiro registro e vou navegando com os botoes proximo e anterior e caso seje necessaria alguma alterçao eu altero e clico no atualizar... mas é o seguinte eu não to conseguindo carregar os dados vo mandar o codigo para ver se vocês conseguem me judar. Private Sub Form_Load() txtCpf.Enabled = False Dim cnnComando As New ADODB.Command Dim rsSeleçao As New ADODB.Recordset On Error GoTo errSeleçao Screen.MousePointer = vbHourglass With cnnComando .ActiveConnection = cnnCadastro .CommandType = adCmdText .CommandText = "SELECT * FROM Clientes Order by Nome" Set rsSeleçao = .Execute End With With rsSeleçao If .EOF And .BOF Then MsgBox "não há registros cadastrados", vbInformation, "Aviso" Else txtNome.Text = !Nome txtNasc.Text = !DataNasc txtCpf.Text = !CPF txtIdentidade.Text = !RG txtEndereço.Text = !Endereço txtNumero.Text = !Numero txtBairro.Text = !Bairro txtCidade.Text = !Cidade txtEstado.Text = !Estado txtResidencial.Text = !TelResidencial txtCelular.Text = !TelCelular End If End With Saida: Set rsSeleçao = Nothing Set cnnComando = Nothing Screen.MousePointer = vbDefault Exit Sub errSeleçao: With Err If .Number <> 0 Then MsgBox "Erro an recuperaçao de eregistro", vbInformation + vbOKOnly + vbApplicationModal, "Erro" .Number = 0 GoTo Saida End If End With End Sub VALEWS GAELRA FUI........ :D VALEWS GALERA MAS PRECISA MAIS não porque DESCOBRI O ERR ERA porque COMO não TO USANDO MDI EU TENHO QUE DECLARA NO FROM LOAD A CONEXAO E não TAVA FAZENDO isso POR isso TAVA DANDO ERRO MAS VALEWS ABRAÇO T+ :rolleyes:

ACHU Q SERIA ABRIR OUTRO tópico MAS ACHU Q DA PRA RESOLVER TUDO AQUI É O SEGUINTE KUROI TO PRECISANDO FAZER COM QUE O SISTEMA QUANDO A PESSOA DIGITAR O CPF VERFIQUE SE ELE É REPETIDO VALIDAÇAO EU já ATE CONSEGUI MAS não TO CONSEGUINDO VERIFICAR SE ELE É REPETIDO ESTOU TENTANDO DESTE MODO Public rsSeleçao as new adodb.recordset Public cnnCadastro as new adodb.connection Private Sub txtCpf_LostFocus() Set rsSeleçao = New ADODB.Recordset rsSeleçao.Open "SELECT * FROM Clientes WHERE CPF" If rsSeleçao.RecordCount <> 0 Then MsgBox "CPF existente", vbInformation + vbOKOnly + vbApplicationModal, "Aviso" End If VALEWS KUROI ABRAÇO T+ :D

OK... KUROI COMO EU FARIA ESSE COMANDO NOF FORM_LOAD porque RECORDSET É DIFERENTE DE CNNCOMANDO não É.. você PODERIA ME MOSTRAR O COMANDO SELECT COM RECORDSET VALEWS :D

GALERA CONSIGUI RESOLVER ESTE PROBLEMA VALEWS T+ :D

GALERA EU USO O VB 6 NO MEU TRABALHO AI FUI TENTAR INSTALAR AQUI NA MINHA CASA SO QUE ESTA DANDO O SEGUINTE ERRO QUANDO EU COLOCO O SERIAL PARECE A MENSAGEM "não É POSSIVEL LOCALIZER O ARQUIVO C:\DOCUMEN~\DDD\DESKTOP\V_B_6\VISIAL BASIC 6\ACMBOOT.EXE OU UM DE SEUS COMPONENTES..........." SENDO QUE ESSE ARQUIVO TA NA PASTA....... alguém PODERIA ME AJUDAR... VALEWS T+ :D

Vixiii tentei colocar o movenext ao invez do movelast mas não mudo nada não continuo com o problema... mas valews brither pela atençao se tiver mais meios de me ajudar ficarei grato abraço :)

GALERA É O SEGUINTE SOU INICANTE EM VB TO LENDO ALGUNS TUTORIAIS PARA APRENDER.... ESTOU FAZENDO UM PROGRAMA SIMPLES DE CADASTRO DE USUARIOS JUNTO COM BANCO DE DADOS SO QUE TO COM DUVIDA NO BOTAO PROXIMO.... não TO CONSEGUINDO FAZER ELE MOSTRAR O PROXIMO REGISTRO QUANO EU CLICO NELE ELE APARCE O SEGUNDO REGISTRO E DPOIS MAIS NADA AI SO FICA NO SEGUNDO REGISTRO.... vocês PODEM ME AJUDAR DESDE já AGRADEÇO... VLWS AHHHHH... TA AI O CODIGO DO BOTAO...... GENRAL DECLARATIONS Dim vInclusao As Boolean Public cnnAgenda As New ADODB.Connection ______________________________________________ Private Sub cmdProximo_Click() Dim cnnComando As New ADODB.Command Dim rsSeleçao As New ADODB.Recordset Dim i As Integer Screen.MousePointer = vbHourglass With cnnComando .ActiveConnection = cnnAgenda .CommandType = adCmdText .CommandText = "SELECT * FROM Agenda" Set rsSeleçao = .Execute End With With rsSeleçao .MoveNext If .EOF = True Then .MoveLast txtCodPessoa.Text = rsSeleçao("CodPessoa") txtNome.Text = rsSeleçao("Nome") txtNasc.Text = rsSeleçao("DataNasci") txtTelefone.Text = rsSeleçao("Telefone") txtFax.Text = rsSeleçao("Fax") txtEndereço.Text = rsSeleçao("Endereço") txtCidade.Text = rsSeleçao("Cidade") txtEstado.Text = rsSeleçao("Estado") txtCep.Text = rsSeleçao("Cep") txtEmail.Text = rsSeleçao("Email") End With Saida: Set cnnComando = Nothing Set rsSeleçao = Nothing Screen.MousePointer = vbDefault Exit Sub End Sub