VB.Net/Database ADO.net/Access Database

Материал из VB Эксперт
Перейти к: навигация, поиск

Connection to Access Database

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)
         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())
         " Close Connection
         Console.WriteLine("Connection Closed")
      End Try
   End Sub
End Class

<A href="http://www.vbex.ru/Code/VBDownload/Employee.zip">Employee.zip( 7 k)</a>

Store Data from Access to a DataSet and display the data

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()
            " 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
            " 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"))
        Catch ex As Exception
            " An error occurred. Show the error message
        End Try
    End Sub
End Class

<A href="http://www.vbex.ru/Code/VBDownload/Employee.zip">Employee.zip( 7 k)</a>