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

來源:互聯網
上載者:User
access|預存程序 在VB.NET中使用MS Access預存程序 — 第一部份


作者: DavidWasserman,MCP
2/27/2002
譯者:Qianqian
(thousandvb@yeah.net)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


相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。