Question

Delphi 怎么通过ADOStoredProc 连接SQl数据库的进行查询数据

表如下：
编号 姓名
001 小张

我要的结果是在Edit1.text里输入'001'，然后点击按钮'查询'，Edit2.text显示查询结果'小张'

。用的是ADOStoredProc控件，求告诉在sql Server 里怎么写？在delphi里又怎么写？
不需要完整，关键语句就行了

Answer 1

1、新建sql存储过程

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[test]
    @instr varchar(50),   --定义传入变量
    @outstr varchar(50) output    --定义传出变量
AS
BEGIN
    SET NOCOUNT ON;
    set @outstr=(SELECT name from t where no=@instr)
END

2、delphi代码：

var s:string;
begin
  ADOConnection1.Connected:=True;
  with ADOStoredProc1 do
  begin
    Close;
    ProcedureName:='test';    //指定存储过程名称
    Parameters.Clear;
    Parameters.CreateParameter('@instr',ftString,pdInput,50,null);   //创建一个传入参数
    Parameters.CreateParameter('@outstr',ftString,pdOutput,50,null); //创建一个传出参数
    Parameters.ParamByName('@instr').Value :=Edit1.Text;             //传入变量
    ExecProc;
    s:= parameters.ParamByName('@outstr').Value;     //获取传出变量
  end;
  ShowMessage(s);