【搞定】存储过程错误

cdz0451

procedure TLYP.BizFormCreate(Sender: TObject);
var
   vProc:TStoredProcDataSet;
   vUserId:string;
   vDepId:string;
   lDataParam1, lDataParam2: TDataParam;
begin
     vUserId := 'TEST';
     vDepId := 'KJJYC';
     vProc := TStoredProcDataSet.Create(self);
     try
        vProc.ConnectionString := 'DATABASEURL=Biz:JTTXMJTTSJK.DATABASE';
        vProc.StoredProcName := 'dbo.proc_TotalExport';
        vProc.Params.Clear();

        lDataParam1 := vProc.Params.CreateParam(TFieldType.ftString, '@DepId', TParamType.ptInput);
        lDataParam1.AsString :=vDepId;

        lDataParam2 := vProc.Params.CreateParam(TFieldType.ftString, '@UserId', TParamType.ptInput);
        lDataParam2.AsString :=vUserId;

        vProc.Open();

     finally
        lDataParam1.Free();
        lDataParam2.Free();
     end;

数据库脚本
IF EXISTS (SELECT * FROM sysobjects WHERE name = 'proc_TotalExport' AND type = 'P')
   DROP PROCEDURE proc_TotalExport
GO
Create Proc proc_TotalExport
(
@DepId VARCHAR(32),
@UserId VARCHAR(32)
)
AS
BEGIN

RETURN select * from kcb

END
GO

这个问题很急，请给与答复

zfang

调试的时候，具体在那儿报错？
试试这样写
vProc.Params.ParamByName('@DepId').AsString := vDepId;
直接给参数赋值

lixy

楼主在窗体上放置TStoredProcDataSet控件。设置参数，运行。
不用动态创建的方法。

cdz0451

放了报错

cdz0451

想得到返回的结果集
select * from kcb 为固定表
不知道返回结果那个地方这么写对不！
        vProc.Params.CreateParam(TFieldType.ftDataSet,'@RETURN_VALUE',TParamType.ptResult);
去掉所有参数直接执行，也报错

zfang

procedure TLYP.BizFormCreate(Sender: TObject);
var
   vProc:TStoredProcDataSet;
   vUserId:string;
   vDepId:string;
begin
     vUserId := 'TEST';
     vDepId := 'KJJYC';
     vProc := TStoredProcDataSet.Create(nil);
     try
        vProc.ConnectionString := 'DATABASEURL=Biz:\JTTXM\JTTSJK.DATABASE';
        vProc.StoredProcName := 'dbo.proc_TotalExport';
        vProc.Params.ParamByName('@DepId').AsString := vDepId;
        vProc.Params.ParamByName('@DepId').AsString := vUserId;
        vProc.Active := True;
     finally

     end;
end;
试试上面的写法
调试一下，具体都报什么错？

cdz0451

运行系统初始化的时候发生异常：
error occur during invoke getRecords method,setVariantParam
error :Invalid parameter index 0;
类型错误。

代码如下：
procedure TLYP.BizFormCreate(Sender: TObject);
var
   vProc:TStoredProcDataSet;
   vUserId:string;
   vDepId:string;
   lDataParam1, lDataParam2: TDataParam;
   lParam: TDataParam;
begin
     vUserId := 'TEST';
     vDepId := 'KJJYC';
     vProc := TStoredProcDataSet.Create(self);
     try
        vProc.ConnectionString := 'DATABASEURL=Biz:\JTTXM\JTTSJK.DATABASE';
        vProc.StoredProcName := 'proc_TotalExport';

        vProc.Params.CreateParam(TFieldType.ftString, '@DepId', TParamType.ptInput);
        vProc.Params.ParamByName('@DepId').AsString := vDepId;

        vProc.Params.CreateParam(TFieldType.ftString, '@UserId', TParamType.ptInput);
        vProc.Params.ParamByName('@UserId').AsString := vUserId;
        vProc.Active := True;
     finally
     
     end;
end;

zfang

vProc.Params.CreateParam(TFieldType.ftString, '@DepId', TParamType.ptInput);
vProc.Params.CreateParam(TFieldType.ftString, '@UserId', TParamType.ptInput);

去掉这两个！！再试试

cdz0451

运行系统初始化的时候发生异常：
error occur during invoke getRecords method,Parameter #4 has not been set

zfang

var
   vProc:TStoredProcDataSet;
   vUserId:string;
   vDepId:string;
   lDataParam1, lDataParam2: TDataParam;
begin
     vUserId := 'TEST';
     vDepId := 'KJJYC';
     vProc := TStoredProcDataSet.Create(self);
     try
        vProc.ConnectionString := 'DATABASEURL=Biz:\SYSTEM\SYSTEM.DATABASE';
        vProc.StoredProcName := 'proc_TotalExport';
        //vProc.Params.Clear();

        {lDataParam1 := vProc.Params.CreateParam(TFieldType.ftString, '@DepId', TParamType.ptInput);
        lDataParam1.AsString :=vDepId;

        lDataParam2 := vProc.Params.CreateParam(TFieldType.ftString, '@UserId', TParamType.ptInput);
        lDataParam2.AsString :=vUserId;}
        vProc.Params.ParamByName('@DepId').AsString := vDepId;
        vProc.Params.ParamByName('@UserId').AsString := vUserId;

        vProc.Active := True;

     finally
        lDataParam1.Free();
        lDataParam2.Free();
     end;
----------------------------------------------------
修改你的存储过程
CREATE Proc proc_TotalExport
(
@DepId VARCHAR(32),
@UserId VARCHAR(32)
)
AS
BEGIN

select * from A

END
GO