5个回答
展开全部
使用TADOStoredProc组件,可以,给你举个例子好了
with ADOStoredProc1 do
begin
Close;
Parameters.Clear;
ProcedureName:='SaveDate_dbzsm'; //存储过程名称
Parameters.CreateParameter('v_wlid', ftString, pdInput, 20, fgUnassigned);//传入参数(数字代表长度)
Parameters.CreateParameter('v_ddid', ftString, pdInput, 20,fgUnassigned); //传入参数
Parameters.CreateParameter('v_tm', ftString, pdInput, 500,fgUnassigned); //传入参数
Parameters.CreateParameter('v_returnstr', ftString, pdoutput, 30,fgUnassigned); //返回值
//为参数赋值
Parameters[0].Value :=trim(edit1.text);
Parameters[1].Value := trim(edit2.text);
Parameters[2].Value := trim(edit2.text);
Parameters[3].Value := ' ';
ExecProc;
reuturn:= Trim(Parameters.ParamByName('v_returnstr').Value);
end;
reuturn就是返回值,你可以放到stringgrid 里面。
也可以用adoquery 连接存储过程。
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('exec SaveDate_dbzsm :wlid,:ddid,:tm,:returnstr output');
Parameters.ParamByName('wlid').Value :=trim(edit1.text);
Parameters.ParamByName('ddid').Value :=trim(edit2.text);
Parameters.ParamByName('tm').Value := trim(edit3.text);
Parameters.ParamByName('returnstr').Value := ' ';
Open;
reuturn:= Parameters.ParamByName('returnstr').Value;
end;
http://zhidao.baidu.com/question/316727588.html
with ADOStoredProc1 do
begin
Close;
Parameters.Clear;
ProcedureName:='SaveDate_dbzsm'; //存储过程名称
Parameters.CreateParameter('v_wlid', ftString, pdInput, 20, fgUnassigned);//传入参数(数字代表长度)
Parameters.CreateParameter('v_ddid', ftString, pdInput, 20,fgUnassigned); //传入参数
Parameters.CreateParameter('v_tm', ftString, pdInput, 500,fgUnassigned); //传入参数
Parameters.CreateParameter('v_returnstr', ftString, pdoutput, 30,fgUnassigned); //返回值
//为参数赋值
Parameters[0].Value :=trim(edit1.text);
Parameters[1].Value := trim(edit2.text);
Parameters[2].Value := trim(edit2.text);
Parameters[3].Value := ' ';
ExecProc;
reuturn:= Trim(Parameters.ParamByName('v_returnstr').Value);
end;
reuturn就是返回值,你可以放到stringgrid 里面。
也可以用adoquery 连接存储过程。
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('exec SaveDate_dbzsm :wlid,:ddid,:tm,:returnstr output');
Parameters.ParamByName('wlid').Value :=trim(edit1.text);
Parameters.ParamByName('ddid').Value :=trim(edit2.text);
Parameters.ParamByName('tm').Value := trim(edit3.text);
Parameters.ParamByName('returnstr').Value := ' ';
Open;
reuturn:= Parameters.ParamByName('returnstr').Value;
end;
http://zhidao.baidu.com/question/316727588.html
展开全部
最好用
adoStoredProc.close;
adoStoredProc.ProcedureName := '过程名';
adoStoredProc.Parameters.refresh;
adoStoredProc.Parameters.ParamByName('过程变量1').value := 变量1;
adoStoredProc.Parameters.ParamByName('过程变量2').value := 变量2;
try
adoStoredProc.execproc;
except
//执行过程失败处理代码;
end;
if adoStoredProc.parameters[0].value <> 0 then
begin
//存储过程返回值错误 处理代码
end;
不要用
Parameters[1].Value 这种形式 有如果存储过程增加参数 改起来不直观。
adoStoredProc.close;
adoStoredProc.ProcedureName := '过程名';
adoStoredProc.Parameters.refresh;
adoStoredProc.Parameters.ParamByName('过程变量1').value := 变量1;
adoStoredProc.Parameters.ParamByName('过程变量2').value := 变量2;
try
adoStoredProc.execproc;
except
//执行过程失败处理代码;
end;
if adoStoredProc.parameters[0].value <> 0 then
begin
//存储过程返回值错误 处理代码
end;
不要用
Parameters[1].Value 这种形式 有如果存储过程增加参数 改起来不直观。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
delphi 中如何调用sql 存储过程
使用TADOStoredProc组件,可以,给你举个例子好了
with ADOStoredProc1 do
begin
Close;
Parameters.Clear;
ProcedureName:='SaveDate_dbzsm'; //存储过程名称
Parameters.CreateParameter('v_wlid', ftString, pdInput, 20, fgUnassigned);//传入参数(数字代表长度)
Parameters.CreateParameter('v_ddid', ftString, pdInput, 20,fgUnassigned); //传入参数
Parameters.CreateParameter('v_tm', ftString, pdInput, 500,fgUnassigned); //传入参数
Parameters.CreateParameter('v_returnstr', ftString, pdoutput, 30,fgUnassigned); //返回值
//为参数赋值
Parameters[0].Value :=trim(edit1.text);
Parameters[1].Value := trim(edit2.text);
Parameters[2].Value := trim(edit2.text);
Parameters[3].Value := ' ';
ExecProc;
reuturn:= Trim(Parameters.ParamByName('v_returnstr').Value);
end;
reuturn就是返回值,你可以放到stringgrid 里面。
也可以用adoquery 连接存储过程。
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('exec SaveDate_dbzsm :wlid,:ddid,:tm,:returnstr output');
Parameters.ParamByName('wlid').Value :=trim(edit1.text);
Parameters.ParamByName('ddid').Value :=trim(edit2.text);
Parameters.ParamByName('tm').Value := trim(edit3.text);
Parameters.ParamByName('returnstr').Value := ' ';
Open;
reuturn:= Parameters.ParamByName('returnstr').Value;
end;
http://zhidao.baidu.com/question/316727588.html
使用TADOStoredProc组件,可以,给你举个例子好了
with ADOStoredProc1 do
begin
Close;
Parameters.Clear;
ProcedureName:='SaveDate_dbzsm'; //存储过程名称
Parameters.CreateParameter('v_wlid', ftString, pdInput, 20, fgUnassigned);//传入参数(数字代表长度)
Parameters.CreateParameter('v_ddid', ftString, pdInput, 20,fgUnassigned); //传入参数
Parameters.CreateParameter('v_tm', ftString, pdInput, 500,fgUnassigned); //传入参数
Parameters.CreateParameter('v_returnstr', ftString, pdoutput, 30,fgUnassigned); //返回值
//为参数赋值
Parameters[0].Value :=trim(edit1.text);
Parameters[1].Value := trim(edit2.text);
Parameters[2].Value := trim(edit2.text);
Parameters[3].Value := ' ';
ExecProc;
reuturn:= Trim(Parameters.ParamByName('v_returnstr').Value);
end;
reuturn就是返回值,你可以放到stringgrid 里面。
也可以用adoquery 连接存储过程。
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('exec SaveDate_dbzsm :wlid,:ddid,:tm,:returnstr output');
Parameters.ParamByName('wlid').Value :=trim(edit1.text);
Parameters.ParamByName('ddid').Value :=trim(edit2.text);
Parameters.ParamByName('tm').Value := trim(edit3.text);
Parameters.ParamByName('returnstr').Value := ' ';
Open;
reuturn:= Parameters.ParamByName('returnstr').Value;
end;
http://zhidao.baidu.com/question/316727588.html
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
给出一段例子,可以参考下
with adoStoredProc do//TadoStoredProc
begin
parameters.clear;
parameters.CreateParameter( '@m1 ',ftsmallint,pdinput,0,8);
parameters.CreateParameter( '@m2 ',ftsmallint,pdinput,0,12);
parameters.CreateParameter( '@result ',ftsmallint,pdinputoutput,0,0);
execproc;
end;
with adoStoredProc do//TadoStoredProc
begin
parameters.clear;
parameters.CreateParameter( '@m1 ',ftsmallint,pdinput,0,8);
parameters.CreateParameter( '@m2 ',ftsmallint,pdinput,0,12);
parameters.CreateParameter( '@result ',ftsmallint,pdinputoutput,0,0);
execproc;
end;
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Parameters[1].Value 这种形式 有如果存储过程增加参数 改起来不直观。
采用这种方式调试相对麻烦,但有利防注
采用这种方式调试相对麻烦,但有利防注
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |