BOTAO EDITAR
Oi pessoal,
Alguém poderia me ajudar, estou tentando criar um Botão Editar, acho que a rotina abaixo está errada!
Private Sub cmdAlterar_Click()
conecta
sel = [Ô]UPDATE aluno SET Nome=[ô]txtNome[ô],sexo=[ô]cboSexo[ô],Nascimento=[ô]mskNascimento[ô],Telefone=[ô]mskTelefone[ô],Situação=[ô]cboStatus[ô],Endereço=[ô]txtEndereco[ô],Bairro=[ô]txtBairro[ô],Cidade=[ô]txtCidade[ô] Where Nome = [ô]txtNome[ô][Ô]
MsgBox [Ô]Alteração Efetuado com Sucesso!!![Ô], vbInformation, [Ô]Escola Caminho Suave[Ô]
adoAluno.Refresh
End Sub
Alguém poderia me ajudar, estou tentando criar um Botão Editar, acho que a rotina abaixo está errada!
Private Sub cmdAlterar_Click()
conecta
sel = [Ô]UPDATE aluno SET Nome=[ô]txtNome[ô],sexo=[ô]cboSexo[ô],Nascimento=[ô]mskNascimento[ô],Telefone=[ô]mskTelefone[ô],Situação=[ô]cboStatus[ô],Endereço=[ô]txtEndereco[ô],Bairro=[ô]txtBairro[ô],Cidade=[ô]txtCidade[ô] Where Nome = [ô]txtNome[ô][Ô]
MsgBox [Ô]Alteração Efetuado com Sucesso!!![Ô], vbInformation, [Ô]Escola Caminho Suave[Ô]
adoAluno.Refresh
End Sub
Tente isso
sSQL = [Ô]UPDATE aluno SET (Codigo= [Ô] & txtcodigo.text &[Ô],Nome= [Ô] & txtnome.text & [Ô]) Where Codigo=1
CHARLES,
Não deu certo!
Não deu certo!
Charles,
Estou usando o Visual Basilc 6.0
Private Sub cmdAlterar_Click(Index As Integer)
conecta
sel = [Ô]UPDATE aluno SET (Nome = [Ô] & txtNome & [Ô],sexo = [Ô] & cboSexo & [Ô],Nascimento = [Ô] & mskNascimento & [Ô],Telefone =[Ô] & mskTelefone & [Ô],Situação = [Ô] & cboStatus & [Ô],Endereço = [Ô] & txtEndereco & [Ô],Bairro = [Ô] & txtBairro & [Ô],Cidade = [Ô] & txtCidade & [Ô]) Where Nome = [Ô] & txtNome & [Ô][Ô]
rs.Update
MsgBox [Ô]Cadastro atualizado com Sucesso![Ô], vbInformation, [Ô]Atualizar[Ô]
adoAluno.Refresh
End Sub
Estou usando o Visual Basilc 6.0
Private Sub cmdAlterar_Click(Index As Integer)
conecta
sel = [Ô]UPDATE aluno SET (Nome = [Ô] & txtNome & [Ô],sexo = [Ô] & cboSexo & [Ô],Nascimento = [Ô] & mskNascimento & [Ô],Telefone =[Ô] & mskTelefone & [Ô],Situação = [Ô] & cboStatus & [Ô],Endereço = [Ô] & txtEndereco & [Ô],Bairro = [Ô] & txtBairro & [Ô],Cidade = [Ô] & txtCidade & [Ô]) Where Nome = [Ô] & txtNome & [Ô][Ô]
rs.Update
MsgBox [Ô]Cadastro atualizado com Sucesso![Ô], vbInformation, [Ô]Atualizar[Ô]
adoAluno.Refresh
End Sub
qual o banco de dados
Estou usando o Mysql.
Na Realide se tratando de MySQL todos os campos devem ser tratados com apostrofo
sel = [Ô]UPDATE aluno SET Nome = [ô][Ô] & txtNome & [Ô][ô],sexo = [ô][Ô] & cboSexo & [Ô][ô],Nascimento = [ô][Ô] & mskNascimento & [Ô][ô],Telefone =[ô][Ô] & mskTelefone & [Ô][ô],Situação =[ô][Ô] & cboStatus & [Ô][ô],Endereço =[ô][Ô] & txtEndereco & [Ô][ô],Bairro = [ô][Ô] & txtBairro & [Ô][ô],Cidade = [ô][Ô] & txtCidade & [Ô][ô] Where Nome = [ô][Ô] & txtNome & [Ô][Ô]
Não deu certo!
Gera um erro (Operação não permitida quando o objeto está fechado) quando cliko no botão e seleciona rs.update
Gera um erro (Operação não permitida quando o objeto está fechado) quando cliko no botão e seleciona rs.update
Debug do erro!
JRABELO vc não precisa do rs.update para fazer a atualização, não sei qual o nome da variável que vc colocar para mapear o banco nesse CONECTA, más digamos que vc use db, bata usar assim
db.execute sel
db.execute sel
Tópico encerrado , respostas não são mais permitidas