|
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
|
Employee.zip( 7 k)