Parceiro o códgo que você exibiu acima provavelmente estará no Evenvto Load do formulário.
Provavelmente você terá dois botões um de salvar e um de excluir, você deve codificar o evento Click deles ou seja, um código que acontecerá sempre que o usuário clicar no botão, para isso basta que você clique duas vezes sobre o respectivo button:
Como a ação dos dois botões irá disparar uma execução no Banco de dados você pode criar um método que executa uma query e pode ser usado no clique dos dois botões, você criará o metódo para evitar duplicar o mesmo código em dois locais distintos:
Então na classe do formário forá de qualquer evento você coloca o seguinte código:
Public Class SeuFormulario
Public
Sub
ExecutaConsulta(ByVal
sql As
String
)
Using
conn As
New
OleDbConnection("stringdeConexao"
)
Dim
cmd As
New
OleDbCommand(sql, conn)
cmd.CommandType = CommandType.Text
Try
conn.Open()
cmd.Transaction = cmd.Connection.BeginTransaction()
cmd.ExecuteNonQuery()
cmd.Transaction.Commit()
Catch
ex As
Exception
cmd.Transaction.Rollback()
Throw
Finally
cmd.Dispose()
End
Try
End
Using
End
Sub
'Aqui terá outros eventos como o Load do formulário e o clique dos botões
End Class
FEito isto você irá codificicar o evento clique dos botões
Clique Salvar:
Dim
sql As
String
= string
.Fomart("UPDATE TABELA SET CAMPO1={0},CAMPO2={1} WHERE IDTABELA={2}"
,txtCampo1.Text,txtCampo2.Text,txtIDTabela.Text);
Try
'Chama o metodo mostrado acima que executárá uma açao de atualização na tabela
ExecutaConsulta(sql)
bs1.EndEdit()
MessageBox.Show("Salvo com Sucesso"
)
Catch
MessageBox.Show("Erro ao salvar"
)
End
Try
Clique Excluir:
Dim
sql As
String
= string
.Fomart("DELETE TABELA WHERE IDTABELA={0}"
,txtIDTabela.Text);
Try
ExecutaConsulta(sql)
bs1.RemoveCurrent()
MessageBox.Show("Excluido com Sucesso"
)
Catch
MessageBox.Show("Erro ao excluir"
)
End
Try
Lembrando que as linhas onde é efetuado o comando de banco de dados (UPDATE, DELETE) deve ser adaptado, onde por exemplo
string
.Fomart("UPDATE TABELA SET CAMPO1={0},CAMPO2={1} WHERE IDTABELA={2}"
,txtCampo1.Text,txtCampo2.Text,txtIDTabela.Text);
Tabela é o nome da tabela que deseja atualizar, CAMPO1 e CAMPO2 são nomes de exemplos para campos da tabela e IDTABELA é o campo chama primária.
repare ainda que o valor {0} será substituida pelo valor contino na TextBOx txtCampo1.Text, ou seja você deve substituir o nome dos campos e o nome da caixa de texto a qual se refere.
Se o post foi útil marque como resposta. - Advanced Web Application - MCP
