New OleDbConnection : OleDbConnection « System.Data.OleDb « VB.Net by API

1. VB.Net by API
2. System.Data.OleDb
3. OleDbConnection

New OleDbConnection

  
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

   
    
  

Related examples in the same category