Connection to Access Database
Imports System Imports System.Data Imports System.Data.OleDb public class MainClass Shared Sub Main() Dim connString As String = "provider= microsoft.jet.oledb.4.0; " & _ "data source=Employee.mdb;" Dim conn As New OleDbConnection(connString) Try conn.Open() Console.WriteLine("Connection Opened") ' Display connection properties Console.WriteLine("Connection Properties") Console.WriteLine("- ConnectionString : {0}", conn.ConnectionString) Console.WriteLine("- Database : {0}",conn.Database) Console.WriteLine("- DataSource : {0}",conn.DataSource) Console.WriteLine("- ServerVersion : {0}",conn.ServerVersion) Console.WriteLine("- State : {0}", conn.State) Catch ex As OleDbException ' Display error Console.WriteLine("Error: " & ex.ToString()) Finally ' Close Connection conn.Close() Console.WriteLine("Connection Closed") End Try End Sub End Class
1. | Store Data from Access to a DataSet and display the data | ![]() |