前言  
        经常有很多初学者问到在delphi中如何SQL Server存储过程？问题其实很好解决但问得多了也就不愿答了下面我将用例子进行介绍说明从在SQL Server中创建存储过程到完整例子
 
        首先,打开sql server管理器,在pubs数据库中建个测试表,表名为test,字段有id,name,和desc,全部为型,如果你不知道建表,那么打开sql查询分析器,贴上以下代码,然后按执行,就会自动生成test表.
use pubs
exists (select * from dbo.sysobjects where 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] (12) COLLATE Chinese_PRC_CI_AS NULL ,
 [descrip] [char] (30) COLLATE Chinese_PRC_CI_AS NULL  
) _disibledevent=>begin
  raiserror(\'error\',16,1)
  rollback transaction
end
end
GO
 
        接下来,新建个工程文件,在form1上放置如下Control控件,并设置属性(括号内):
个ADOConnection1: TADOConnection;
      (LoginPrompt:=false;
       connection:=Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=pubs;Data Source=(local);)

个ADOStoredProc1: TADOStoredProc;属性为:
      (connection:=adoconnection1;
       procedurename:=myinsert;//上面我们创建那个)

个ADOTable1: TADOTable;属性为:
      (connection:=adoconnection1;
      tablename:=test;    //上面我们创建那个)

个Datasource1,属性为:
     (data:=Tadotable;)

个 DBGrid1: TDBGrid;属性为
     (datasource:=datasource1;)

个Button1,在其Onclick中写到:
  with adoStoredproc1 do
  begin
    Parameters.ParamByName(\'@id\').Value := \'2\';
    parameters.ParamByName(\'@name\').Value := \'myname\';
    parameters.ParamByName(\'@descrip\').Value :=\'nosubject\';
    ExecProc;
  end;
  Adotable1.Close;
  adotable1.Open;
 
        好了,整个过程就是这样,明白了吗,嘿嘿