照旧,先上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的一条记录: