在 VB.NET 中使用 MS Access 存储过程 — 第一部份
作者： DavidWasserman ， MCP
2/27/2002
译者： Qianqian
3/8/2002
** 文章源代码 ** ** : ** msaccess_ sp.zip
** 介绍 ** ** **
最新发布的 MS Access 中，微软已经尽努力使这种产品成为一个真正全功能的关系数据库系统。 存储过程，一个通常和企业数据库系统例如 SQLServer 相关的功能，现在也可以在 Access 里找到了。 自从 Access2000 以来， Access 已经具备了存储过程的功能，而且是 Jet 4 Database Engine 自带的。如果你习惯于在 SQL SERVER 里使用存储过程，那么你就会很熟悉它们如何在 Access 里使用。 但是要记住有一些限制。我会稍后作讨论。
这篇文章分成两个部份。 第一部份会详细描述如何在使用 ADO.NET 和 Visual Basic.NET 在 Access 里创建存储过程。 第二部份则会示范如何利用在第一部分创建的存储过程来创建一个数据访问层，并且在你自己的应用程序中使用。 这篇文章中的代码已经在 Access2002 种测试通过，即使如此，它也应该能运行于 Access2000 。
** 存储过程如何在 ** ** Access ** ** 里工作 ** ** ? ** ** **
不像在 Access 里的其它的对象，存储过程没有用户界面，并且不能在 Access 的界面里创建。 要建立它们的方法只有编码。我将示范如何在 ADO.NET 中实现这些代码。
当一个存储过程被添加到 Access 数据库时， JET Engine 会把存储过程转换到一个查询对象。 对一个 Access 开发者而言，这就象编写一个简单的查询，是不必要的工作。 然而，它确实有它的优点。考虑一下，一个应用系统必须为了分开 Access 版和 SQL SERVER 版而分成 2 个系统的情况吧。 使用存储过程会使为应用程序的数据库访问层写代码变得更容易，程序在不同的版本之间区别很小。
** 创建存储过程 ** ** **
为了示范，我会先显示如何使用 SQL 语句来创建存储过程。 在文章末尾我会给列出需要在数据库执行的所有语句的代码。 当使用和 Access 包含的 Northwind 数据库时，它会创建 4 个存储过程。 它们都集中于 Prodcut 表，让我们从最容易的那个开始 : 选择表格里所有行的数据。 为了创建这个存储过程，在数据库执行下列 SQL 语句 :
"CREATE PROC procProductsList AS SELECT * FROM Products;"
语句“ CREATE PROC procCustomerList” 是实际上创建存储过程的部份。 在 ”AS” 下面的部分可以为任何有效的 SQL 语句。
经常性的，你会需要传递参数到存储过程去用于查询。 例如你可能想要根据某一个 ProductID 删除一个记录。 下列存储过程显示如何实现这个目的 :
"CREATE PROC procProductsDeleteItem(inProductsID LONG)" & _"AS DELETE FROM Products WHERE ProductsID = inProductsID;"
在第一行，注意 CREATE PROC 声明右边的括号。 有一个定义为长整型的参数。 这是需要你输入的变量，用于删除记录。
下项两个分开的语句显示了如何为 Product 表创建一个 add 和一个 update 储存过程。注意，为了文章的简短，过程中没有包括所有的字段 :
"CREATE PROC procProductsAddItem(inProductName VARCHAR(40), " & _"inSupplierID LONG, inCategoryID LONG) " & _"AS INSERT INTO Products (ProductName, SupplierID, CategoryID) " & _"Values (inProductName, inSupplierID, inCategoryID);"
"CREATE PROC procProductsUpdateItem(inProductID LONG, " & _" inProductName VARCHAR(40)) " & _"AS UPDATE Products SET ProductName = inProductName " & _" WHERE ProductID = inProductID;
注意：当参数数量超过一个的时候，用逗号分开。
** 限制 ** ** **
在这里，你可能会碰到一些限制，尤其是如果当你已经非常习惯于 SQL SERVER 的强大功能的时候。
不能使用输出参数。
不要使用 @ 字符。 @ 字符通常用于 Transaction SQL( SQL SERVER) ，代表一个本地变量 。 Access 不总是会转换这个字符， 有时会将它省略。这个问题可能导致很难找的 BUG, 会使你多掉几把头发。
Access 无法存取临时表。
我怀疑在很多 Transaction SQL 里有的选项在 Access 里是没有的，因为它不是 Transaction SQL 兼容的。
** 结论 ** ** **
希望这篇文章能提供在一个几乎是 Access 的未公开领域的一些指引，而对 JET 引擎则没有多做探讨。 如果需要知道 ADO.NET 代码在 CreateStoredProc 子程序里是如何工作的更多信息，请参见 Gurneet Singh 写的 Getting Started with ADO.NET 。 下面是在这篇文章里用到的所有代码的完整列表 :
|
Imports System
Imports System.Data
Imports System.Data.OleDb
Module CreateSP
Sub Main()
ProductsProcs()
End Sub
' Products Stored Procs to be added to the db.
Sub ProductsProcs()
Dim sSQL As String
' procProductsList - Retrieves entire table
sSQL = "CREATE PROC procProductsList AS SELECT * FROM Products;"
CreateStoredProc(sSQL)
' procProductsDeleteItem - Returns the details (one record) from the
' JobTitle table
sSQL = "CREATE PROC procProductsDeleteItem(@ProductID LONG) AS " _
& "DELETE FROM Products WHERE ProductID = @ProductID;"
CreateStoredProc(sSQL)
' procProductsAddItem - Add one record to the JobTitle table
sSQL = "CREATE PROC procProductsAddItem(inProductName VARCHAR(40), " _
& "inSupplierID LONG, inCategoryID LONG) AS INSERT INTO " _
& "Products (ProductName, SupplierID, CategoryID) Values " _
& "(inProductName, inSupplierID, CategoryID);"
CreateStoredProc(sSQL)
' procProductsUpdateItem - Update one record on the JobTitle table
sSQL = "CREATE PROC procProductsUpdateItem(inProductID LONG, " _
& "inProductName VARCHAR(40)) AS UPDATE Products SET " _
& "ProductName = inProductName WHERE ProductID = inProductID;"
CreateStoredProc(sSQL)
End Sub
' Execute the creation of Stored Procedures
Sub CreateStoredProc(ByVal sSQL As String)
Dim con As OleDbConnection
Dim cmd As OleDbCommand = New OleDbCommand()
Dim da As OleDbDataAdapter
' Change Data Source to the location of Northwind.mdb on your local
' system.
Dim sConStr As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data " _
& "Source=C:\Program Files\Microsoft " _
& "Office\Office10\Samples\Northwind.mdb"
con = New OleDbConnection(sConStr)
cmd.Connection = con
cmd.CommandText = sSQL
con.Open()
cmd.ExecuteNonQuery()
con.Close()
End Sub
End Module