rayangostar_co
چهارشنبه 15 آذر 1391, 09:27 صبح
با سلام خدمت دوستان
خط 15 این کد مشکلش چیه |؟
لطفا راهنمایی کنید. ممنون میشم
function TSqlManager.select(procedureName: string; table_name: string)
: TDataSource;
var
objParameter: TParameters;
objSp: TADOStoredProc;
objDS: TDataSource;
begin
objSp := TADOStoredProc.create(nil);
with objSp do
begin
Connection := objConnection;
procedureName := procedureName;
Parameters.Refresh;
Parameters.ParamByName('@TableName').Value := table_name;
open;
objDS.DataSet := objSp;
end;
Result := objDS;
end;
خط 15 این کد مشکلش چیه |؟
لطفا راهنمایی کنید. ممنون میشم
function TSqlManager.select(procedureName: string; table_name: string)
: TDataSource;
var
objParameter: TParameters;
objSp: TADOStoredProc;
objDS: TDataSource;
begin
objSp := TADOStoredProc.create(nil);
with objSp do
begin
Connection := objConnection;
procedureName := procedureName;
Parameters.Refresh;
Parameters.ParamByName('@TableName').Value := table_name;
open;
objDS.DataSet := objSp;
end;
Result := objDS;
end;