可以,在取得记录后,设置 function GetDs(aSqlStr:string;aDbCn:string='CND';aCursorType:Integer=1;aLockType:Integer=3):TADODataSet; var MyDs:TADODataSet; begin Result := nil; MyDs:=TADODataSet.Create(nil); SetDsCN(MyDs,aDbCn); MyDs.CommandText:=aSqlStr; try MyDs.Active:=True; //该语句与MyDs.Open功能一样 MyDs.Connection:=nil; //关闭连接, Result := MyDs; except on E: exception do ShowMessage(E.Message); //由此触发的错误不要通用代码处理... end; end;
function GetDs(aSqlStr:string;aDbCn:string='CND';aCursorType:Integer=1;aLockType:Integer=3):TADODataSet;
var
MyDs:TADODataSet;
begin
Result := nil;
MyDs:=TADODataSet.Create(nil);
SetDsCN(MyDs,aDbCn);
MyDs.CommandText:=aSqlStr;
try
MyDs.Active:=True; //该语句与MyDs.Open功能一样
MyDs.Connection:=nil; //关闭连接,
Result := MyDs;
except
on E: exception do ShowMessage(E.Message); //由此触发的错误不要通用代码处理...
end;
end;
我试过好多次,用CLIENTDATASET都不能进行排序!