delphi存儲過程

1、delphi 存儲過程 2009 年 02 月 26 日 星期四 16:36首先,打開 sql server 管理器,在 pubs 數(shù)據(jù)庫中建一個測試表,表名為 test,字段有id,name,和 desc,全部為字符型,如果你不知道建表,那么打開 sql 查詢分析器,貼上以下的代 碼,然后按執(zhí)行,就會自動生成 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 然后,我們來創(chuàng)建一個存儲過程,其功能為在 test 中插入一條新記錄.創(chuàng)建存儲過程的代碼如下,同樣的,你也可以復(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 接下來,新建一個工程文件,在

5、 form1 上放置如下控件,并設(shè)置屬性(括號內(nèi)): 一個 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)用有返回值和無返回值的都可以,StroProc 用起來要比 Query 方便些, 必竟他是專門用于執(zhí)行存儲過程的,它會自動讀入存儲過程所需要傳入的叁數(shù),--------------------------------------------------------------------------------如果要執(zhí)行有返回數(shù)據(jù)集的視圖,只能用

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

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

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

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