Programming in Visual Basic .NET How to Connect Access Database to VB.NET

👨‍🏫 Please watch the top 3 most popular videos on my channel.

🥇 33 Million Views : Programming in Visual Basic .Net How to Connect Access Database to VB.NET : https://youtu.be/cwDqjmSmtMQ

🥈 13 Million Views : Visual Basic .Net : Search in Access Database - DataGridView BindingSource Filter (Part 1/2) : https://youtu.be/UoT2oava9ns

🥉 2 Million Views : Visual Basic .Net : Search in Access Database - DataGridView BindingSource Filter (Part 2/2) : https://youtu.be/e5Dvkw7moWg

🚀 Visual Studio 2010 : Programming in Visual Basic .Net How to Connect Access Database to VB.Net

★ YouTube Playlist ★

✩ Visual Basic .NET (VB .NET) Programming ✩
» https://www.youtube.com/playlist?list=PLJiGI-KZnz3T9IMIAs1AyjgQ3k0XF2Evb

✩ Computer Programming ✩
» https://www.youtube.com/playlist?list=PLJiGI-KZnz3TuXaVe0uHKPUXodfhA6dSo

YouTube Video:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'TODO: This line of code loads data into the 'Your_DatabaseDataSet.Table1' table. You can move, or remove it, as needed.

        Me.Table1TableAdapter.Fill(Me.Your_DatabaseDataSet.Table1)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Table1BindingSource.MovePrevious()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Table1BindingSource.AddNew()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Table1BindingSource.MoveNext()

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        On Error GoTo SaveErr

        Table1BindingSource.EndEdit()

        Table1TableAdapter.Update(Your_DatabaseDataSet.Table1)

        MessageBox.Show("OK BOSS")

SaveErr:

        If Err.Number <> 0 Then

            MsgBox("Error No " & Err.Number & " Description " & Err.Description, vbCritical, "Error")

            Exit Sub

        End If

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Table1BindingSource.RemoveCurrent()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Me.Close()

    End Sub

End Class

🎯 You can find me on the other social media platforms:

📺 Amazon:

📍 https://www.amazon.com/shop/ibasskung

📺 Pages:

📍 https://www.facebook.com/CodeAMinute

📍 https://www.facebook.com/IbasskungTutorial

📍 https://www.facebook.com/codewithibasskung

📍 https://www.facebook.com/iBasskungAcademy

📺 YouTube:

📍 https://www.youtube.com/c/iBasskung

📺 Udemy:

📍 https://www.udemy.com/user/tanin-sangngam

📺 Twitter:

📍 https://twitter.com/IBasskung

📺 Pinterest:

📍 https://www.pinterest.com/ibasskung

📺 Blogger:

📍 .NET: https://codeaminute.blogspot.com

📍 JAVA: https://javacodeminutes.blogspot.com

📍 VBA: https://vbacodeminutes.blogspot.com

📺 WordPress: 

📍 http://myvbdotnet.wordpress.com


💯 THANK YOU SO MUCH 💯


#VisualBasic #CSharp #iBasskung