VB.Net/Database ADO.net/OleDbConnection
Connect to a Access mdb file directly using 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>
<A href="http://www.vbex.ru/Code/VBDownload/Employee.zip">Employee.zip( 7 k)</a>