关闭

Data Access Application Block(Enterprise Library 3.1)的下载以及使用方法介绍

标签: accessapplicationlibrarystring数据库database
3009人阅读 评论(1) 收藏 举报
分类:

Data Access Application Block(Enterprise Library 3.1)的下载以及使用方法介绍

Enterprise Library 3.1 中的Data Access Application Block已经支持OleDb,这意味着支持Data Access Application Block可以访问ACCESS、Oracle等数据库了。
这篇文章我以ACCESS数据库为例,简单介绍下Data Access Application Block的使用方法。

Enterprise Library 3.1的下载地址为:
http://www.microsoft.com/downloads/details.aspx?FamilyID=4c557c63-708f-4280-8f0c-637481c31718&DisplayLang=en
下载后安装在C盘,会创建目录C:/Program Files/Microsoft Enterprise Library 3.1 - May 2007,里面有四个子目录:
Bin-生成的程序集,也是我们的应用程序需要引用的
Docs-文档
src-源代码,里面还有使用示例
Visual Studio Integration-里面有两个程序集,暂时用不到

使用方法:
1.准备工作:建立一个ACCESS数据库,创建表“用户信息表”,其中两个字段:用户名、密码,均为文本类型
2.建立一个VB.NET的Windows应用程序
3.添加应用程序配置文件app.config,将如下内容拷贝至该文件:

<configuration>
 <configSections>
  <section name="dataConfiguration" type="Microsoft.Practices.EnterpriseLibrary.Data.Configuration.DatabaseSettings, Microsoft.Practices.EnterpriseLibrary.Data" />
 </configSections>
 <connectionStrings>
    <add name="DataAccessQuickStart" connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS数据库的路径"
   providerName="System.Data.OleDb" />
  </connectionStrings>
 <dataConfiguration defaultDatabase="DataAccessQuickStart"/>
</configuration>

注意add元素的connectionString属性,是我们熟悉的ACCESS数据库连接字符串,其他数据库写法当然不一样,我这里就不例举了。

4.添加对Microsoft.Practices.EnterpriseLibrary.Common.dll和Microsoft.Practices.EnterpriseLibrary.Data.dll引用
5.添加新类EnterpriseLibraryTest,将如下代码拷贝至新类文件EnterpriseLibraryTest.vb

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Imports System.Data.Common
Imports Microsoft.Practices.EnterpriseLibrary.Data

Public Class EnterpriseLibraryTest

    '从用户表中删除指定用户名的用户记录
    Public Shared Sub DeleteUser(ByVal uname As String)
        Dim db As Database = DatabaseFactory.CreateDatabase()
        Dim sqlCommand As String = String.Format("Delete From 用户信息表 Where 用户名='{0}'", uname)
        Dim dbCommand As DbCommand = db.GetSqlStringCommand(sqlCommand)
        db.ExecuteNonQuery(dbCommand)
    End Sub

    '添加用户tom,密码为123
    Public Shared Sub AddUser(ByVal uname As String, ByVal upwd As String)
        Dim db As Database = DatabaseFactory.CreateDatabase()
        Dim sqlCommand As String = "Insert Into 用户信息表(用户名,密码) Values(?,?)"
        Dim dbCommand As DbCommand = db.GetSqlStringCommand(sqlCommand)
        '添加参数
        db.AddInParameter(dbCommand, "用户名", DbType.String, 50)
        db.AddInParameter(dbCommand, "密码", DbType.String, 50)
        '参数赋值
        db.SetParameterValue(dbCommand, "用户名", uname)
        db.SetParameterValue(dbCommand, "密码", upwd)
        db.ExecuteNonQuery(dbCommand)
    End Sub

    '返回所有用户信息
    Public Shared Function GetUsers() As IDataReader
        Dim sql As String = "Select * From 用户信息表"
        Dim db As Database = DatabaseFactory.CreateDatabase()
        Dim dbCommand As DbCommand = db.GetSqlStringCommand(sql)
        Dim dr As IDataReader
        dr = db.ExecuteReader(dbCommand)
        Return dr
    End Function
End Class
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
6.调用方法
因为都是共享方法,调用简单,如下就行
'删除用户名为Tom的记录
EnterpriseLibraryTest.DeleteUser("Tom") 

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:310914次
    • 积分:4369
    • 等级:
    • 排名:第7197名
    • 原创:104篇
    • 转载:28篇
    • 译文:1篇
    • 评论:133条
    实用站点
    最新评论