Mega Code Archive
OleDbDataAdapter Tables
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
Dim dbConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Password=;User ID=Admin;Data Source=Employee.mdb")
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")
daUsers.Fill(dsUsers)
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
Console.WriteLine(ex.Message)
End Try
End Sub
End Class