Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Hide()
frmMenu = New frmMenu
frmMenu.Show()
End Sub
--------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
If DataSet11.HasChanges Then
OleDbDataAdapter1.Update(DataSet11)
MessageBox.Show("Update eseguito")
Else
MessageBox.Show("Update non effettuato
End If
End Sub
--------------------------------
Private Sub btnCancella_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancella.Click
Dim cm As CurrencyManager = CType(Me.BindingContext(DataGrid1.DataSource, DataGrid1.DataMember), CurrencyManager)
Dim dv As DataView = CType(cm.List, DataView)
Dim dr As DataRow
dr = dv.Item(cm.Position).Row
dr.Delete()
OleDbDataAdapter1.Update(DataSet11)
End Sub
--------------------------------
Private Sub btnMostra_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMostra.Click
OleDbDataAdapter1.Fill(DataSet11)
End Sub
---------------------------------
Private Sub btnRicerca_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRicerca.Click
' qui devi inserire il codice per la ricerca
Dim dv As New DataView(tuodatatable?????)
dv.RowFilter = String.Format("campo='{0}'", textBox.Text
End Sub
End Class
ecco nell'ulima esiste la sezione dedicata al tasto ricerca, è li nasce il problema