Botões editar, atualizar ou apagar em VB .NET

Pergunta
Como posso criar os típicos botões de atualizar, editar ou apagar em VB .NET?

Valorize esta FAQ:
A FAQ Botões editar, atualizar ou apagar em VB .NET tem Pertence à categoria:
Resposta
Aqui lhes deixo o código dos botões atualizar ou editar e eliminar em um banco de dados em Access 2003, desde VB .NET, espero que lhes interesse...

<br><br>
Código de Botões:
<br>
exemplo de atualizar:
<br>
<br>
<span class=codigo>
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br />
Dim i, rwno As Integer<br />
Dim colname As String<br />
Dim value As Object<br />
colname = InputBox("Digite o nome da coluna que deseja modificar"<br />
rwno = InputBox("Digite o Número de fila, lembre que começa de (0)"<br />
value = InputBox("Escreva a Mudança que deseja aplicar"<br />
Try<br />
DataSet11.Tables(0).Rows(rwno).Item(colname) = value<br />
i = OleDbDataAdapter1.Update(DataSet11)<br />
Catch ex As Exception<br />
MessageBox.Show(ex.Message)<br />
End Try<br />
MessageBox.Show("O número de atualizações é = " & i)<br />
End Sub<br />
<br />
e o de eliminar:<br />
<br />
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click<br />
Dim i As Integer<br />
Dim rno As Integer<br />
rno = InputBox("Digite o número de fila que deseja eliminar começando de: 0"<br />
Try<br />
DataSet11Tables(0).Rows(rno).Delete()<br />
i = OleDbDataAdapter1.Update(DataSet11)<br />
Catch ex As Exception<br />
MsgBox(ex.Message)<br />
End Try<br />
MessageBox.Show("Número de filas eliminadas = " & i)<br />
End Sub
</span>
<br><br>
e o de eliminar:
<br><br>
<span class=codigo>
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click<br />
Dim i As Integer<br />
Dim rno As Integer<br />
rno = InputBox("Digite o número de fila que deseja eliminar començando de: 0"<br />
Try<br />
DataSet11Tables(0).Rows(rno).Delete()<br />
i = OleDbDataAdapter1.Update(DataSet11)<br />
Catch ex As Exception<br />
MsgBox(ex.Message)<br />
End Try<br />
MessageBox.Show("Número de filas eliminadas = " & i)<br />
End Sub
</span>

Por Fabián Soto Mora

Voltar à árvore de categorias Voltar à árvore de categorias

 
FAQs relacionadas
  + Web user control
  + Recarregar a página cada vez que um cliente clique o botão para retroceder
  + Variáveis globais em VB .NET
  + O que é .NET?
  + Tipos de dados em .NET
  + Formato com datalist
  + Evento KeyUp e limpar buffer em C#.net
  + Contar caracteres dentro de datalist
  + O que é MVC
  + [...]

Ver todas las FAQS de .NET

Usuários :    login / registro

Home | Sobre nós | Copyright | Anuncie | Entrar em contato