Total de visitas: 53189
Incluir, alterar e excluir
Para acessar as ações principais de um banco de dados Acess, basta incluir as rotinas abaixo e fazer as devidas alterações nos nomes dos campos, tabelas e objetos de textos.
‘INCLUSÃO DE DADOS
Esta Rotina inclui um registro em um banco de dados.
Private Sub INCLUIR()
Dim cn As New OleDbConnection
Dim cmd As New OleDbCommand
cmd.Connection = cn
cmd.CommandType = CommandType.Text
Try
' Define a string de conexão
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:CAMINHObancodados.mdb"
' Abre a conexao.
cn.ConnectionString = cn.ConnectionString
cn.Open()
'Define as propriedades do objeto COmmand
cmd.Connection = cn
' Cria um DataReader
cmd.CommandText = "insert into TABELA(CAMPO)values('" & textbox.Text & "')"
cmd.ExecuteNonQuery()
cn.Close()
Catch ex As Exception
MsgBox(ex.Message())
End Try
End Sub
' ALTERAR REGISTRO
Esta Rotina altera um registro salvo em um banco de dados por meio de um critério.
Private Sub ALTERAR()
Dim cn As New OleDbConnection
Dim cmd As New OleDbCommand
cmd.Connection = cn
cmd.CommandType = CommandType.Text
Try
' Define a string de conexão
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:CAMINHObancodados.mdb"
' Abre a conexao.
cn.ConnectionString = cn.ConnectionString
cn.Open()
'Define as propriedades do objeto COmmand
cmd.Connection = cn
' Cria um DataReader
cmd.CommandText = "UPDATE TABELA SET CAMPO = '" & TEXTBOX.Text & "' where CAMPO like '*" & TEXTBOX.Text & "*'"
cmd.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message())
End Try
cn.Close()
MsgBox("REGISTRO ALTERADO COM SUCESSO!")
End Sub
'EXCLUIR REGISTROS
Esta Rotina exclui um registro salvo em um banco de dados por meio de um critério.
Private Sub EXCLUIR()
Dim cn As New OleDb.OleDbConnection
Dim cmd As New OleDb.OleDbCommand
cmd.Connection = cn
cmd.CommandType = CommandType.Text
If nome.Text > "" Then
Try
' Define a string de conexão
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:C:CAMINHObancodados.mdb"
' Abre a conexao.
cn.ConnectionString = cn.ConnectionString
cn.Open()
'Define as propriedades do objeto COmmand
cmd.Connection = cn
' Cria um DataReader
' importante ressaltar que no caso da exclusão você precisa estabelecer um critério
' senão serão excluídos todos os registros do banco de dados
cmd.CommandText = "DELETE FROM TABELA where CAMPO like '*" & TEXTBOX.Text & "*'"
cmd.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message())
End Try
Else : MsgBox("REGISTRO EXCLUIDO COM SUCESSO!")
End If
cn.Close()
End Sub
Não se esqueça de agradecer recomendando o Blog.
Jacob Samuel