怎樣在表單調用sql中的存儲過程,帶參數的呢?在後台用exec+存儲過程名我知道。可前台呢? thk 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 query.close;query.sql.add('exec proc_name ....');query.open'//如果不返回数据集,用query.exec 我用adostroeproc然後用open;對不對? with adoquery1 dobegin Close ; sql.Clear ; SQL.Add('exec proc_personcount_month :Time,:strn'); Parameters.ParamByName('Time').DataType := ftDate; Parameters.ParamByName('Time').Value := now; Parameters.ParamByName('strn').DataType := ftstring; Parameters.ParamByName('strn').Value := edit1.text; Prepared := True; try Open ; except exec; end; First ; showmessage(inttostr(adoquery6.Fields[0].AsInteger ));//显示返回值。end;哈哈,保你满意,给分吧 你可以直接将参数写进去,比如query.sql.add('exec pro_name ' + edit1.text + ',' + edit2.text);或者用parameters:with query1 dobeginsql.add(exec proc_name :a,:b)');parameters.ParamByName('a').values:=edit1.text;//赋参数值parameters.ParamByName('b').values:=edit2.text;....end; adoproc的用法和上面第二种相似,不想再写了:) 在fastreport3脚本中如何让frxdataset滚动到下一行, Delphi2009 Pos('..', S)居然是错的!而Pos('.', S)却是可以的! 取记录某个字段值不成功 打印的一个小问题,在线等 菜鸟问题:在程序中怎样解压rar压缩包? 一个大难题,100分求解 难道单元不可以重命名 谁有Delphi第三方控件(II)光盘的安装序列号? internet上互传数据的问题,请专家援手!!!!! 如何象winzip一样可以在文件的右键菜单中显示Add to zip? Delphi也能开发游戏?效率和VC相比怎样?? 请问怎样截断字符?
query.sql.add('exec proc_name ....');
query.open'//如果不返回数据集,用query.exec
然後用open;對不對?
begin
Close ;
sql.Clear ;
SQL.Add('exec proc_personcount_month :Time,:strn');
Parameters.ParamByName('Time').DataType := ftDate;
Parameters.ParamByName('Time').Value := now;
Parameters.ParamByName('strn').DataType := ftstring;
Parameters.ParamByName('strn').Value := edit1.text;
Prepared := True;
try
Open ;
except
exec;
end;
First ;
showmessage(inttostr(adoquery6.Fields[0].AsInteger ));//显示返回值。end;哈哈,保你满意,给分吧
query.sql.add('exec pro_name ' + edit1.text + ',' + edit2.text);
或者用parameters:
with query1 do
begin
sql.add(exec proc_name :a,:b)');
parameters.ParamByName('a').values:=edit1.text;//赋参数值
parameters.ParamByName('b').values:=edit2.text;
....
end;