BOTAO EDITAR

JRABELO 24/10/2011 09:33:48
#387532

Esse seria o Conecta e Desconecta.

JRABELO 24/10/2011 10:29:30
#387533

Já consegui !!!!
Deu certo!!!!

Resolvido!!!!!!

Obrigado a todos que me ajudaram...............

JRABELO 24/10/2011 10:32:59
#387534

RESOLVIDO !!!!!

Private Sub cmdAlterar_Click(Index As Integer)

conecta

sel = [Ô]UPDATE aluno SET Nome = [ô][Ô] & txtNome & [Ô][ô],sexo = [ô][Ô] & cboSexo & [Ô][ô],Nascimento = [ô][Ô] & mskData & [Ô][ô],Telefone =[ô][Ô] & mskTelefone & [Ô][ô],Situação =[ô][Ô] & cboStatus & [Ô][ô],Endereço =[ô][Ô] & txtEndereco & [Ô][ô],Bairro = [ô][Ô] & txtBairro & [Ô][ô],Cidade = [ô][Ô] & txtCidade & [Ô][ô] Where Nome = [ô][Ô] & txtNome & [Ô][ô][Ô]

cn.Execute sel

MsgBox [Ô]Cadastro atualizado com Sucesso![Ô], vbInformation, [Ô]Atualizar[Ô]

txtNome = [Ô][Ô]
cboSexo = [Ô][Ô]
cboStatus = [Ô][Ô]
txtEndereco = [Ô][Ô]
txtBairro = [Ô][Ô]
txtCidade = [Ô][Ô]

adoAluno.Refresh

desconecta

End Sub