VB.Net/Database ADO.net/Access Database

Материал из VB Эксперт
Версия от 15:44, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

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

End Class

      </source>

<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

<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>