bakhcha

connection access2007 vb.net

May 8th, 2019
239
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 1.75 KB | None | 0 0
  1. connect database access2007 with visual studio 2010
  2.  
  3.  
  4. *******button previous*********
  5. //////////////////////////////////////
  6.  
  7. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  8.         InformationBindingSource.MovePrevious()
  9.  
  10.     End Sub
  11. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  12. *******button AddNew*********
  13. //////////////////////////////
  14.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  15.         InformationBindingSource.AddNew()
  16.     End Sub
  17.  
  18. *******button Next*********
  19. //////////////////////////////
  20.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  21.         InformationBindingSource.MoveNext()
  22.     End Sub
  23.  
  24. *******button save*********
  25. //////////////////////////////
  26.  
  27.     Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
  28.         'On Error GoTo saveErr
  29.        
  30.         InformationBindingSource.EndEdit()
  31.         InformationTableAdapter.Update(_data_accdbDataSet)
  32.  
  33.         MessageBox.Show("ok Boss")
  34.  
  35.         'saverr:
  36.  
  37.         Exit Sub
  38.  
  39.     End Sub
  40.  
  41. *******button Delete*********
  42. //////////////////////////////
  43.  
  44.     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
  45.         InformationBindingSource.RemoveCurrent()
  46.     End Sub
  47.  
  48. *******button Close*********
  49. //////////////////////////////
  50.  
  51.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  52.         Me.Close()
  53.  
  54.     End Sub
  55. End Class
Advertisement
Add Comment
Please, Sign In to add comment