在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(狂徒骑士)就这么点分,我看你没了啊 delphi怎么画趋势线(弧型图) delphi为什么修改dbgrid会出错 简单代码分析 我用这个函数将导入excel中出现这个问题,请帮忙看看 怎样创建? 如何实现QBASIC自动计算的数据显示在DELPHI的FORM模板上 用SQL语句转换表里的数据问题 注销当前用户,用另一用户名登录windows,这程序怎么编? 请问sReport控件应该装在哪个目录,在哪个组件面板可以找到 如何把上下标存储到数据库中 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(狂徒骑士)就这么点分,我看你没了啊