初学Delphi与sql server的存储过程

Posted 2020-10-28 一字节

照旧，先上delphi的界面控件布局：

1个adoconnection、1个adoquery、1个DataSource、1个button、1个dbgrideh（随意）

前期准备：1、设置adoconnection的connectionstring，为了方便：Provider=SQLOLEDB.1;Password=数据库登录密码;Persist Security Info=True;User ID=数据库登录名;Data Source=数据库服务器地址，设置LoginPrompt设置为False

                  2、adoquery的connection指向adoconnection

                  3、DataSource的dataset指向adoquery

开始：

1、打开sql server 2008，选择数据库-右键新建查询：

--新建存储过程
1 create proc SelectAddr
2 as
3 begin
4   select * from MTable
5 end

--修改存储过程
1 alter proc SelectAddr
    --增加一个入参
2   @addr varchar(50)
3 as
4 begin
5   select * from MTable t where t.Addr = @addr 
6 end

点击执行，就可以才数据库-可编程性-存储过程下看到新建的SelectAddr这个存储过程了

2、在Delphi设计好的界面双击Button按钮

1 procedure TForm4.Button1Click(Sender: TObject);
2 var
3   sSqlText:string;
4 begin
5   sSqlText := Format(\'exec SelectAddr %s\',[\'3606163310030817\']);
6   ADOQuery1.SQL.Clear;
7   ADOQuery1.SQL.Add(sSqlText);
8   ADOQuery1.Open;
9 end;

编译，结果如下图，查询出Addr的一条记录：