在delphi中怎么调用存储过程 怎么样在delphi调用存储过程,我是用ado连数据库的,最好有源码实例 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 ADoquery.sql.add('存储过程名 参数') try ADOStoredProc := TADOStoredProc.Create(nil); ADOStoredProc.Connection := ADOConnection; ADOStoredProc.ProcedureName := 'SCount'; ADOStoredProc.Parameters.CreateParameter('sid', ftInt, pdInput, 4, 0); ADOStoredProc.Parameters.CreateParameter('name', ftString, pdInput, 20, name); ADOStoredProc.Parameters.CreateParameter('Rcount', ftBoolean, pdReturnValue, 4, 0); ADOStoredProc.Prepared := True; ADOStoredProc.ExecProc; Result := ADOStoredProc.Parameters.ParamByName('Result').Value; finally ADOStoredProc.Free; end; try ADOStoredProc := TADOStoredProc.Create(nil); ADOStoredProc.Connection := ADOConnection; ADOStoredProc.ProcedureName := 'SCount'; ADOStoredProc.Parameters.CreateParameter('sid', ftInt, pdInput, 4, 0); ADOStoredProc.Parameters.CreateParameter('name', ftString, pdInput, 20, name); ADOStoredProc.Parameters.CreateParameter('Rcount', ftBoolean, pdReturnValue, 4, 0); ADOStoredProc.Prepared := True; ADOStoredProc.ExecProc; Result := ADOStoredProc.Parameters.ParamByName('Result').Value; finally ADOStoredProc.Free; end; adoStoredProc控件设置connection:=adoconnection1在adoStoredProc.ProcedureName:=对应数据库的存储过程名;设置相应的parametersadostoredProc1.active:=True;//返回结果adostoredProc1.execProc;//不返回结果 同意firetoucher(风焱) to Knight_yin(狂徒骑士)就这么点分,我看你没了啊 远程启动程序 怎么让PageControl的页面在无法全部显示控件时,出现滚动条! dephin跟VS一样是工具吗 程序结构问题 请大家帮忙看看我程序的启动代码。。。。。 医院门诊收费中药品计价窗口的实现。 DBGrid标题排序求救,帮帮我呀~! 如何在DBgrid中实现字段数据的下拉提示效果? 请教关于Delphi中的自定义消息 征求兼职,简单的数据库项目,要求人在上海。 clientdataset怎么执行sql语句? 能否限制Edit中的字符输入格式?
ADOStoredProc := TADOStoredProc.Create(nil);
ADOStoredProc.Connection := ADOConnection; ADOStoredProc.ProcedureName := 'SCount';
ADOStoredProc.Parameters.CreateParameter('sid', ftInt, pdInput, 4, 0);
ADOStoredProc.Parameters.CreateParameter('name', ftString, pdInput, 20, name);
ADOStoredProc.Parameters.CreateParameter('Rcount', ftBoolean, pdReturnValue, 4, 0); ADOStoredProc.Prepared := True;
ADOStoredProc.ExecProc;
Result := ADOStoredProc.Parameters.ParamByName('Result').Value;
finally
ADOStoredProc.Free;
end;
ADOStoredProc := TADOStoredProc.Create(nil);
ADOStoredProc.Connection := ADOConnection; ADOStoredProc.ProcedureName := 'SCount';
ADOStoredProc.Parameters.CreateParameter('sid', ftInt, pdInput, 4, 0);
ADOStoredProc.Parameters.CreateParameter('name', ftString, pdInput, 20, name);
ADOStoredProc.Parameters.CreateParameter('Rcount', ftBoolean, pdReturnValue, 4, 0); ADOStoredProc.Prepared := True;
ADOStoredProc.ExecProc;
Result := ADOStoredProc.Parameters.ParamByName('Result').Value;
finally
ADOStoredProc.Free;
end;
设置connection:=adoconnection1
在adoStoredProc.ProcedureName:=对应数据库的存储过程名;
设置相应的parameters
adostoredProc1.active:=True;//返回结果
adostoredProc1.execProc;//不返回结果
to Knight_yin(狂徒骑士)就这么点分,我看你没了啊