用ADOQuery写的函数，改用ClientDataSet会报错
本帖最后由 ldjssoft 于 2012-10-08 00:56:01 编辑 以前用ADOQuery写的函数，现在改用ClientDataSet会报错，不知道是哪里有问题，请大家帮我看看，下面这个是ADO的
procedure TDtM.JsSearch(ADOQueryName:TADOQuery;sSql:string; const Param: array of Variant);
var
I, intLen: Integer;
begin
with ADOQueryName do
begin
Close;
SQL.Clear;
sqlstr:=sSql;
SQL.Text := sqlstr;
ParamCheck := True;
intLen := Length(Param);
if intLen > 0 then
begin
for I := 0 to intLen - 1 do
Parameters[I].Value := Param[I];
end;
Open;
end;
end;
procedure TDtM.JsSearch(ClientDataSetName:TClientDataSet;sSql:string; const Param: array of Variant);
var
I, intLen: Integer;
begin
with ClientDataSetName do
begin
Close;
CommandText := sqlstr;
// ParamCheck := True;
intLen := Length(Param);
if intLen > 0 then
begin
for I := 0 to intLen - 1 do
Parameters[I].Value := Param[I];
end;
Open;
end;
end;
