VB.Net/Database ADO.net/Access Database — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Версия 19:40, 26 мая 2010
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>