可用分押宝游戏火热进行中...	专题改版：Java Web 专题

vb.net在access中如何设置和使用存储过程.

楼主SuccessMan（jzy）2005-03-02 13:38:39 在 .NET技术 / VB.NET 提问

Imports System
Imports System.Data
Imports System.Data.OleDb

' Functions and subroutines for executing Stored Procedures in Access.
Public Class DBTier

' Change Data Source to the location of Northwind.mdb on your local system.
Shared connectionString As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Office\Office10\Samples\Northwind.mdb"
' This function returns a dataset containing all records in
' the Products Table.

'CREATE PROC procProductsList AS SELECT * FROM Products;
'CREATE PROC procProductsDeleteItem(inProductsID LONG) AS DELETE FROM Products WHERE ProductsID = inProductsID;
'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;

Function ProductsList() As DataSet
Dim con As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
Dim sSQL As String

sSQL = "EXECUTE procProductsList"

con = New OleDbConnection(connectionString)
da = New OleDbDataAdapter(sSQL, con)
ds = New DataSet()
da.Fill(ds, "Products")

Return ds

End Function

' This Function adds one record to the Products table.
Sub ProductsAddItem(ByVal ProductName As String, ByVal SupplierID As Integer, ByVal CategoryID As Integer)
Dim con As OleDbConnection
Dim cmd As OleDbCommand = New OleDbCommand()
Dim paramProductName As New OleDbParameter()
Dim paramSupplierID As New OleDbParameter()
Dim paramCategoryID As New OleDbParameter()

con = New OleDbConnection(connectionString)
cmd.Connection = con

With paramProductName
.ParameterName = "inProductName"
.OleDbType = OleDbType.VarChar
.Size = 40
.Value = ProductName
End With
cmd.Parameters.Add(paramProductName)

With paramSupplierID
.ParameterName = "inSupplierID"
.OleDbType = OleDbType.Integer
.Size = 4
.Value = SupplierID
End With
cmd.Parameters.Add(paramSupplierID)

With paramCategoryID
.ParameterName = "inCategoryID"
.OleDbType = OleDbType.Integer
.Size = 4
.Value = CategoryID
End With
cmd.Parameters.Add(paramCategoryID)

cmd.CommandText = "EXECUTE procProductsAddItem"
con.Open()
cmd.ExecuteNonQuery()
con.Close()

End Sub

' This function Updates a specific JobTitle Record with new data.
Sub ProductsUpdateItem(ByVal ProductID As Integer, ByVal ProductName As String)
Dim con As OleDbConnection
Dim cmd As OleDbCommand = New OleDbCommand()
Dim paramProductName As New OleDbParameter()
Dim paramProductID As New OleDbParameter()

con = New OleDbConnection(connectionString)
cmd.Connection = con

With paramProductID
.ParameterName = "inProductID"
.OleDbType = OleDbType.Integer
.Size = 4
.Value = ProductID
End With
cmd.Parameters.Add(paramProductID)

With paramProductName
.ParameterName = "inProductName"
.OleDbType = OleDbType.VarChar
.Size = 40
.Value = ProductName
End With
cmd.Parameters.Add(paramProductName)

cmd.CommandText = "EXECUTE procProductsUpdateItem"
con.Open()
cmd.ExecuteNonQuery()
con.Close()

End Sub

' This function deletes one record from the Products table.
Sub ProductsDeleteItem(ByVal ProductID As Integer)
Dim con As OleDbConnection
Dim cmd As OleDbCommand = New OleDbCommand()
Dim paramProductID As New OleDbParameter()

con = New OleDbConnection(connectionString)
cmd.Connection = con

With paramProductID
.ParameterName = "inProductID"
.OleDbType = OleDbType.Integer
.Size = 4
.Value = ProductID
End With
cmd.Parameters.Add(paramProductID)

cmd.CommandText = "EXECUTE procProductsDeleteItem"
con.Open()
cmd.ExecuteNonQuery()
con.Close()

End Sub

End Class

如何在这段代码中设置和调用存储过程
下面是定义的存储过程.如何放在上面一段代码和调用

'CREATE PROC procProductsList AS SELECT * FROM Products;
'CREATE PROC procProductsDeleteItem(inProductsID LONG) AS DELETE FROM Products WHERE ProductsID = inProductsID;
'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;
问题点数：20、回复次数：20Top

1 楼huhaodn（）回复于 2005-03-02 13:45:41 得分 0

存储过程用于SQL等关系数据库Top

2 楼zwxrain（Lilo）回复于 2005-03-02 13:49:16 得分 0

Accdess好像不能寫procedure ....Top

3 楼SuccessMan（jzy）回复于 2005-03-02 13:51:29 得分 0

Access中也可以用,上面一段代码就是网上摘的.
不过没有用过存储过程.
在access中的存储过程与sql server有些不同.Top

4 楼zhuming26（zhuming）回复于 2005-03-02 13:51:41 得分 0

应该可以写在VB.net的代码中,然后调用,不过ACCDESS好像还是不支持.没办法Top

5 楼pinkybs（bs）回复于 2005-03-02 13:55:46 得分 5

好像和这有关
OleDbDataAdapter
OleDbParameterCollection
学习中...........Top

6 楼SuccessMan（jzy）回复于 2005-03-02 14:00:04 得分 0

应该可以吧.Top

7 楼lk_cool（Loken _ 超级无敌小地主）回复于 2005-03-02 17:06:33 得分 0

Access也支持存储过程？Top

8 楼youlongzaitian（游龙在天）回复于 2005-03-02 18:16:46 得分 0

没有用过！
Top

9 楼SuccessMan（jzy）回复于 2005-03-02 23:12:17 得分 0

access支持,我在google中搜索到的
已VB.NET和access连接就可以搜到Top

10 楼leeyeefeng2004（leeyeefeng）回复于 2005-03-03 09:08:00 得分 0

靠~!路过,顺便学习一下如何写Access存储过程:D
Top

11 楼xxuu503（中国没有prison break只是因为the company不让拍）回复于 2005-03-04 10:30:59 得分 0

access写的不叫做存储过程，叫查询，在access里新建一个查询，

然后点击左上角sql视图，加入sql语句，不过access没有听说编程建立查询的说法

没听说access有create proc这么一说Top

12 楼usersmj（狼之舞）回复于 2005-03-04 11:00:28 得分 0

学习中Top

13 楼mathsword（梦在流浪）回复于 2005-03-04 14:22:17 得分 0

你是不是问存储过程放在什么地方？Top

14 楼cqhxd（）回复于 2005-03-07 00:42:03 得分 5

没有具体用过Access的存储过程，不过在网上找到这篇文章。大家看看

在VB.NET中使用MS Access存储过程

最新发布的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兼容的。

Top

15 楼MSTOP（陈建华）回复于 2005-03-07 10:09:43 得分 5

在VB.NET中使用MS Access存储过程
www.mycodes.net 2002-7-9 MYCODES.NET

介绍

最新发布的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。文章所有代码请到下载栏目下载。Top

16 楼fangpeng2003（阿房公(阿房制造，http://work.ahfun.net)）回复于 2005-03-07 23:30:31 得分 0

关注一下Top

17 楼yufenfeila（雨纷飞啦）回复于 2005-03-07 23:40:05 得分 5

参考：

在VB.NET中使用MS Access存储过程
http://www.csdn.com.cn/database/109.htmTop

18 楼gcp1980（阿彬哥）回复于 2005-03-08 00:00:02 得分 0