delphi存儲(chǔ)過(guò)程

1、delphi 存儲(chǔ)過(guò)程 2009 年 02 月 26 日 星期四 16:36首先,打開(kāi) sql server 管理器,在 pubs 數(shù)據(jù)庫(kù)中建一個(gè)測(cè)試表,表名為 test,字段有id,name,和 desc,全部為字符型,如果你不知道建表,那么打開(kāi) sql 查詢分析器,貼上以下的代 碼,然后按執(zhí)行,就會(huì)自動(dòng)生成 test 表. use pubs if exists (select * from dbo.sysobjects where

2、 id = object_id(N'[dbo].[test]') and OBJECTPROPERTY(id, N'IsUserTable') = 1) drop table [dbo].[test] GO CREATE TABLE [dbo].[test] ( [id] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL , [name] [char] (

3、12) COLLATE Chinese_PRC_CI_AS NULL , [descrip] [char] (30) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] GO 然后,我們來(lái)創(chuàng)建一個(gè)存儲(chǔ)過(guò)程,其功能為在 test 中插入一條新記錄.創(chuàng)建存儲(chǔ)過(guò)程的代碼如下,同樣的,你也可以復(fù)制到查詢分析器里直接執(zhí)行就可以: CREATE PROCEDURE myInsert @id char(10

4、) , @name varchar(12), @descrip varchar(30) AS begin insert into test (id,name,descrip) values (@id,@name,@descrip) if @@rowcount=0 begin raiserror('error',16,1) rollback transaction end end GO 接下來(lái),新建一個(gè)工程文件,在

5、 form1 上放置如下控件,并設(shè)置屬性(括號(hào)內(nèi)): 一個(gè) ADOConnection1: TADOConnection; (LoginPrompt:=false; connectionstring:=Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=pubs;Data Source=(local);) ② Query 類型組件,同樣

6、,BDE 里有,DBG 里有,DBExpress 里也有Query,StroProc 是調(diào)用有返回值和無(wú)返回值的都可以,StroProc 用起來(lái)要比 Query 方便些, 必竟他是專門用于執(zhí)行存儲(chǔ)過(guò)程的,它會(huì)自動(dòng)讀入存儲(chǔ)過(guò)程所需要傳入的叁數(shù),--------------------------------------------------------------------------------如果要執(zhí)行有返回?cái)?shù)據(jù)集的視圖,只能用

7、Query 類的組件,其實(shí)視圖與表的用法是一樣 的,Select * From 視圖文件 --------------------------------------------------------------------------------如何用 Query,StoredProc 組件去執(zhí)行一個(gè)存儲(chǔ)過(guò)程呢?-------------------------------------------------------------

8、-------------------下面是一個(gè)用存儲(chǔ)過(guò)程增加記錄的例子存儲(chǔ)過(guò)程代碼如下: --------------------------------------CREATE PROCEDURE ADDMENU(@ID VARCHAR(10),@WINENAME VARCHAR(20)) ASBEGINSet NoCount OnInsert Into 菜單 (酒水編號(hào),酒水名稱) Values (@ID,@WINENAME)Se

9、t NoCount OffENDGO ---------------用 Query 來(lái)執(zhí)行是這樣子的(必須動(dòng)態(tài)傳入叁數(shù))------------------------------------------------應(yīng)用程序中用 ADOQuery 來(lái)執(zhí)行這個(gè)存儲(chǔ)過(guò)程(不要去給 ADOQuery->Parameters 設(shè)叁數(shù)名稱)procedure TForm1.Button1Click(Sender: TObject); beg

10、in ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('ADDMENU;1:@ID,:@WineName');//存儲(chǔ)過(guò)程名稱后面加上(;1),后面跟 的就是要傳入的叁數(shù)ADOQuery1.Parameters.ParamByName('@ID').Value := Edit1.Text;//為叁數(shù)賦值 ADOQuery1.Parameters.ParamByName('