Mega Code Archive

 

Categories / VB.Net by API / System Data Oledb

 

OleDbConnection ConnectionString

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("- 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          Console.WriteLine("Error: " & ex.ToString())       Finally          conn.Close()          Console.WriteLine("Connection Closed")       End Try    End Sub End Class