在VB.NET中使用MS Access存储过程 — 第一部份

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

在 VB. NET 中使用 MS Access 存储过程 — 第一部份


作者： DavidWasserman，MCP
2/27/2002
译者：Qianqian
(thousand VB@yeah. NET)3/8/2002

文章源代码 : MS Access_ 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
 <script type="text/javascript"> 
                                                                  </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script> 
                                                                 

                                                                   <script type="text/javascript"> 
                                                                   </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>