VB.Net by API/System.Data.OleDb/OleDbConnection

New OleDbConnection

<source lang="vbnet"> Imports System Imports System.Xml Imports System.Xml.Schema Imports System.IO Imports System.Data.OleDb Imports System.Collections Imports System.Data

Public Class MainClass

   Shared Sub Main()
       Try
           " Define a connection object
           Dim dbConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Password=;User ID=Admin;Data Source=Employee.mdb")
           " Create a data adapter to retrieve records from db
           Dim strSELECT As String = "SELECT ID AS EmployeeID, FirstName AS FirstName, LastName AS LastName FROM Employee"
           Dim daUsers As New OleDbDataAdapter(strSELECT, dbConn)
           Dim dsUsers As New DataSet("Employee")
           " Fill the dataset
           daUsers.Fill(dsUsers)
           " Go through the records and print them using the mapped names
           Dim r As DataRow
           For Each r In dsUsers.Tables(0).Rows
               Console.WriteLine("ID: {0}, FirstName: {1}, LastName: {2}", r("EmployeeID"), r("FirstName"), r("LastName"))
           Next
       Catch ex As Exception
           " An error occurred. Show the error message
           Console.WriteLine(ex.Message)
       End Try
   End Sub

End Class

 </source>

OleDbConnection.ConnectionString

<source lang="vbnet"> 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

 </source>

OleDbConnection.Database

<source lang="vbnet"> 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

 </source>

OleDbConnection.DataSource

<source lang="vbnet"> 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

 </source>

OleDbConnection.ServerVersion

<source lang="vbnet">

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

 </source>

OleDbConnection.State

<source lang="vbnet">

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

 </source>