[Resolvido]como excluir um registro do access através do vb 2010???

olá Galera, estou com o seguinte problema, eu quero excluir um registro do access 2007 através do vb 2010, mas não está funcionando.

Minha codificação:

Sub ExcluirDados()

If Not txtId.Text <> "" Then

Sql = "DELETE * FROM BDFeriado WHERE ID='" + txtId.Text + "'"
Dim Conn As New OleDbConnection(connString)
Dim Cmd As New OleDbCommand(Sql, Conn)

Try

Conn.Open()
Cmd.ExecuteNonQuery()
MsgBox("Dados Excluídos !", MsgBoxStyle.Information, Me.Text)

Catch ex As OleDbException

Throw New Exception("Erro Banco de Dados : " + ex.Message)

Catch ex As Exception

Throw New Exception("Erro Run Time : " + ex.Message)

Finally

Conn.Close()
Conn.Dispose()
Cmd.Dispose()

End Try

Else

MsgBox("Registro de Dados Não Encontrado no Banco de Dados !", MsgBoxStyle.Critical, Me.Text)

End If

Call CarregaDados("")

End Sub


BOTÃO


Private Sub btnExcluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExcluir.Click

If MsgBox("Excluir Dados ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, Me.Text) = MsgBoxResult.No Then

Exit Sub

End If

MsgBox("Dados Excluídos !", MsgBoxStyle.Information, Me.Text)
Call ExcluirDados()

End Sub

Alguém pode me ajudar, preciso do código correto!!!

Obrigada!!! [b]

Olá Carol,
Bem vinda ao Forum

Eu desconheço as novas funcionalidades do 2010, mas

acho que o erro da rotina está nesta linha:
Sql = "DELETE * FROM BDFeriado WHERE ID='" + txtId.Text + "'"

Substitua por:

Sql = "DELETE * FROM BDFeriado WHERE ID='" & txtId.Text & "'"

Ou:

Sql = "DELETE * FROM BDFeriado WHERE ID=" & txtId.Text

Não Custa tentar


Sds,

Saudações chsestrem!
Muito obrigada pela resposta!

Pois então eu troquei pelas duas codificações, mas não deu certo! não dá erro, mas simplesmente não apaga.

e um erro que está incomodando é que quando cadastra e depois fecha o vb, na hora em que entra no access para verificar o registro o programa não compila?!

Você saberia o que pode ser isso?

Obrigada pela atenção!

Carol,

Transferi para cá, por ser a sala mais adequada para tratar deste assunto ok.

Meus cumprimentos.

Carol,

Vá nas propriedades do formulário ou subformulário e verifique se o controle chamado Caixa de Controle é igual a "Não"

Se estiver igual a "Sim" modifique para "Não" e faça o teste.

Enfrentei um problema parecido em um formulário contínuo que havia um botão na linha que tinha essa mesma função, fiz isso e resolveu.

Olá Dilson, fiz o que pediu, mas continua os registros lá.

O que eu fiz de ontem pra hoje foi mudar quase toda codificação, no que resultou em apagar os registros do formulario, mas o banco de dados continua intacto, não apagou nada!

Private Sub btnExcluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExcluir.Click


If MsgBox("Deseja Excluir Dados? ", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Excluir") = MsgBoxResult.Yes Then

Exit Sub

End If

If Not txtId.Text <> "" Then

Sql = "DELETE * FROM BDFeriado WHERE FERIADO"

Dim Conn As New OleDbConnection(connString)
Dim Cmd As New OleDbCommand("DELETE FROM BDFeriado WHERE ID='", Conn)
Dim cx As New Conexao
Dim Ds As New DataSet

Try

Conn.Open()
Dim OleDb As String = ""
OleDb += " delete feriado "
OleDb += " where feriado = " + CStr(dtpFeriado.Text)


Cmd.CommandText = Sql
Cmd.ExecuteNonQuery()

Catch ex As Exception

MsgBox("Dados Excluídos !", MsgBoxStyle.Information, Me.Text)
Conn.Close()
End Try

Call LimpaCampos()

End If

If MsgBox("Excluir Dados ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, Me.Text) = MsgBoxResult.No Then

Exit Sub

End If

End Sub

Tá meio louco mais deu certo somente no form, já no banco... nada! =P
Se puder me ajudar agradeço desde já

Olá,

Onde está empregando esse código?

- Formulário;
- Formulário contínuo ou;
- SubFormulário

Qual o seu Office?

Diga-me para que possamos ajudá-la melhor.

De imediato vi no seu código a chamada: Call LimpaCampos()

Tens que dá uma olhada nessa função, olhando assim chego a deduzir que é ele o responsável de só limpar e não excluir os campos do formulário.

Exemplo de rotina de um botão para excluir registro.

É uma instrução bem simples mas eu uso bastante no 2003

Esta é uma rotina para apagar um registro em um banco Corrente,

Se vc trabalha com tabelas vinculadas por exemplo:

No Formulario tem uma caixa de texto com o id do registro na tabela chamdado txtID e o id da Tabela se Chama Id

Código:


Private Sub btExcluir_Click()
Dim strsql as String
If IsNull(txtID) Or Me.txtidtipo = "" Then
MsgBox "Voçê não selecionou nenhum registro para excluir", vbCritical, "Erro"
DoCmd.CancelEvent
Me.txtnome.SetFocus ' aqui se der erro vai para o campo nome do Formulário
ElseIf MsgBox("Voçê tem certeza que quer excluir este registro ? ", vbYesNo) = vbYes Then
strsql = "DELETE * FROM Tipos_Veiculo WHERE Id = " & Me.txtID
CurrentDb.Execute strsql
MsgBox "O Registro foi Excluido!", vbInformation, "Exclusão"
'Aqui eu limpo os campos do Formulário
Me.txtID = Null
Me.txtnome = Null
Me.txtnome.SetFocus
Else
DoCmd.CancelEvent
Me.txtID = Null
Me.txtnome = Null
End If
End Sub

Sds,

Oiiii, então é o seguinte...

eu uso o office 2007, e o vb 2010.
O que eu fiz ali foi programar num botão do formulario para que excluísse o registro no formluario BDFeriado e também diretamente no banco access.

o Call LimpaCampos, é só uma private sub

Sub LimpaCampos()

txtId.Clear()
txtMotivo.Clear()

End Sub

só para limpar os campos depois de excluídos msmo!
Daí eu misturei alguns comandos meio loucos ali no meio que acabou por dar certo somente no formulario, já no access mantem os mesmos registros. É isso que eu estou me atrapalhando

Olá chsestrem!
Então eu coloquei seu comando, mas de onde são os "Null's" ?
Eu sou bem leiga nessa linguagem vb com access heheh
Está me dando erro nos seguintes códigos:


Dim strsql As String
Dim OleDb As New OleDbCommand

If DBNull(txtId) Or Me.txtId.Text = "" Then
MsgBox("Você não selecionou nenhum registro para excluir", vbCritical, "Erro")
OleDb.CancelEvent()
Me.txtId.SetFocus() ' aqui se der erro vai para o campo nome do Formulário
ElseIf MsgBox("Você tem certeza que quer excluir este registro ? ", vbYesNo) = vbYes Then
strsql = "DELETE * FROM BDFeriado WHERE Id = " & Me.txtId.Text
CurrentDb.Execute(strsql)
MsgBox("O Registro foi Excluido!", vbInformation, "Exclusão") 'Aqui eu limpo os campos do Formulário
Me.txtId = Null
Me.txtMotivo = DBNull.Value
Me.dtpFeriado.Focus()
Else
OleDb.CancelEvent()
Me.txtId = Null
Me.txtMotivo = Null
End If
End Sub
o que será que preciso mudar?

IsNull é uma função que verifica se o campo em questão está ou não vazio. Você não deve alterar essas funções no código que o colega lhe enviou, só os campos

Dim strsql As String
Dim OleDb As New OleDbCommand

If IsNull(Altere aqui para o nome do seu campo) Or Me.aquitambém.Text = "" Then
MsgBox("Você não selecionou nenhum registro para excluir", vbCritical, "Erro")
OleDb.CancelEvent()
Me.aquitambém.SetFocus() ' aqui se der erro vai para o campo nome do Formulário
ElseIf MsgBox("Você tem certeza que quer excluir este registro ? ", vbYesNo) = vbYes Then
strsql = "DELETE * FROM sua tabela WHERE Id = " & Me.aquitambém.Text
CurrentDb.Execute(strsql)
MsgBox("O Registro foi Excluido!", vbInformation, "Exclusão") 'Aqui eu limpo os campos do Formulário
Me.txtId = Null
Me.txtMotivo = DBNull.Value
Me.dtpFeriado.Focus()
Else
OleDb.CancelEvent()

Me.aquitambém = Null
Me.aquitambém = Null
Me.aquitambém.SetFocus
Else
DoCmd.CancelEvent
Me.aquitambém = Null
Me.aquitambém = Null
End If
End Sub

Saudações vieirasoft!

Pois então eu fiz a troca dos campos, mas ele dá esses erros que estão em vermelho.
Não sei o que mais posso mudar para corrigi-los e compilar pra ver se dá certo! Estou tentando de tudo! huahuhuah
Mas agradeço desde já pela resposta!

Os Erros que me aparecem:

- "IsNull" não está declarado. Pode-se inacessível devido a seu nível de proteção.
- "CancelarEvento" não é um membro de 'System.Data.OleDb.OleDbCommand'
- "SetFocus" não é um membro de 'System.Windows.Forms.TextBox'.
- "CurrentDb" não está declarado. Pode-se inacessível devido a seu nível de proteção.
- Valor do tipo 'System.DBNull' não pode ser convertido para 'System.Windows.Forms.TextBox.
- 'Nulo' não está declarado. 'Nulo' constante não é mais suportada; 'System.DBNull' utilizar.

Não compila devido a esses erros, o que eu posso mudar?

Vc pode verificar quais as Referências estão assinaladas?

Precisam estar entre elas principalmente:

Visual Basic For Applications
Microsoft DAO 3.6 Object Library
Microsoft Access 12.0 Object Library

Sds,

As que estão em vermelho... os erros chsestrem!
iii agora vc me pegou, desconheço as referencias...

Abra o construtor de codigos VBA (Alt+F11)

e na guia ferramentas clique em Referências

AO menos no 2003 é assim, no 2010 eu nunca vi

O pessoal aqui está ainda se adaptando ao 2007, 2010 é

desconhecido ainda.



Sds,

Me desculpem se eu estiver errado mas pelo que vi ela esta usando o Visual Basic .NET para acessar uma base de dados access, não?

Se for acho que as informações passadas não a ajudarão...

Também to achando que é isso.

Nesse caso vai ser muito mais facil fazer uma

rotina em ADODB

Sds,

Boa Tarde a todos, me desculpe a santa ignorancia, mas acho que é isso mesmo, pois tudo que me passarm eu tentei e não obtive sucesso...
o botão gravar eu consegui, mas o botão excluir não consegui até agora... alguém ae tem uma opinião de que maneira devo prosseguir? Obrigada pelas respostas pessoal!!!!

Saudações Carol!

Rapaz uma programadora bonita, até que enfim!!!!! rsrsrsrsr

Carol vc tem como disonibilizar o seu BD e o código ou parte dele para poder efetuar testes em cima do .Net?

Sds,


Pablo

Ah! Obrigada Pablo hauhauh

bom... vou tentar passar aqui porq minha pagina tah com erro.




Sub ExcluirDados()

If txtID.Text <> "" Then

Sql = "DELETE * FROM BDCliente WHERE ID=" & txtID.Text

Dim Conn As New OleDbConnection(connString)
Dim Cmd As New OleDbCommand(Sql, Conn)

Try

Conn.Open()
Cmd.ExecuteNonQuery()
MsgBox("Dados Excluídos !", MsgBoxStyle.Information, Me.Text)

Catch ex As OleDbException

Throw New Exception("Erro Banco de Dados : " + ex.Message)

Catch ex As Exception

Throw New Exception("Erro Run Time : " + ex.Message)

Finally

Conn.Close()
Conn.Dispose()
Cmd.Dispose()

End Try

End If




End Sub


PROGRAMADO NO BOTÃO:


Private Sub btnExcluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExcluir.Click

If MsgBox("Excluir Dados ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, Me.Text) = MsgBoxResult.No Then

Exit Sub

End If

MsgBox("Dados Excluídos !", MsgBoxStyle.Information, Me.Text)
Call ExcluirDados()

End Sub



MEU BANCO DE DADOS


CLIENTE

Código –
Nome – 50
Rg – 12
CPF – 12
CNPJ – 18
Sexo – 1
Data do Cadastro – 10
Endereço – 30
Cidade – 25
Estado – 2
Telefone – 13
Celular – 13
E-mail - 30
Data de Nascimento – 10
Inscr. Estadual – 30
Limite de Crédito – 20
Saldo Disponível – 20
Taxa de Juros – 20
Observações – 30


OS NÚMEROS SÃO APENAS QTDE DE CARACTERES


Se puder me ajudar agradeço desde já!!!

Muito obrigada!!!!

Só esqueci de acrescentar que o ID é chave primária e numeração automatica!

Passei a um amigo que é fera em .Net vamos aguardar um retorno dele ok!!

Obrigada Pablo, fico aguardando!

Carol a resposta que obtive foi essa:

O Código ta certo com um único problema no SQL. A instrução ta errada.
O Certo é
Sql = "DELETE FROM BDCliente WHERE ID=" & txtID.Text

O "*"gera um erro de SQL

Esse erro tb ocorre no access como estava atento a linguagem não me prendi a sintaxe, tem q matar esse "*"

Vê la e fala prá nós!!

Sds

Pablo

Deu certo Pabloooooo!!!!
Muito obrigada!!

Obrigada a todos que se dispuseram a me ajudar resolver!!

Saudações a todos!

Então damos o tópico por encerrado e obrigado pelo retorno