在用ADOStoredProc的時候,參數除了用數組的形式,還有其它方法引用參數嗎?
例如:我們可以這樣來增加參數,
ADOStoredProc.Parameters.Add;
ADOStoredProc.Parameters[3].DataType:=ftString;
ADOStoredProc.Parameters[3].Direction :=pdInput;
ADOStoredProc.Parameters[3].Name:='@ClassID';
ADOStoredProc.Parameters[3].Size :=11;
ADOStoredProc.Parameters[3].Value:=trim(Edit1.Text);
但我想當 Eidt1.Text = '' 的時候不添加這個參數。
但這樣的話,ADOStoredProc.Parameters這個數組便沒有增加,其後面的參數表示就是ADOStoredProc.Parameters[3]
如果 Edit1.Text <> '' 則 ADOStoredProc.Parameters數組加1,其後面的參數表示就是ADOStoredProc.Parameters[4]
當然,如果參數隻有一兩個,用if 語名就可以解決了,但參數多的話,如何是好呢?
敬請高手賜教其解法。
例如:我們可以這樣來增加參數,
ADOStoredProc.Parameters.Add;
ADOStoredProc.Parameters[3].DataType:=ftString;
ADOStoredProc.Parameters[3].Direction :=pdInput;
ADOStoredProc.Parameters[3].Name:='@ClassID';
ADOStoredProc.Parameters[3].Size :=11;
ADOStoredProc.Parameters[3].Value:=trim(Edit1.Text);
但我想當 Eidt1.Text = '' 的時候不添加這個參數。
但這樣的話,ADOStoredProc.Parameters這個數組便沒有增加,其後面的參數表示就是ADOStoredProc.Parameters[3]
如果 Edit1.Text <> '' 則 ADOStoredProc.Parameters數組加1,其後面的參數表示就是ADOStoredProc.Parameters[4]
當然,如果參數隻有一兩個,用if 語名就可以解決了,但參數多的話,如何是好呢?
敬請高手賜教其解法。
解决方案 »
- delphi查询数据库的一个小程序
- 如何把一个vcl组件(直接继承TComponent而非TWinControl)改写成activex方式?
- QReport中GroupHeader的Expression是什么意思啊?
- 请问哪里有李维的《inside VCL 架构剖析》电子版的下载地址啊?
- 哈尔滨的朋友进来坐坐
- 各位大侠们请迅速救救我, 5个问题,高分送!!!!十万火急!!!各位大侠们请迅速救救我, 5个问题,高分送!!!!十万火急!!!可送1000分,分几次送
- 怎么把这段C++程序转换成DELPHI啊 有的请加我QQ告诉我好吗
- ?窗体上有n个Edit,如何通过消息处理的方法实现下面的效果,当鼠标移到某一Edit上时,使它的背景色变为黄色,当离开时EDIT的背景又变为白色?
- 如何判断某一目录是否存在?
- 如何实现ImageList中的所有Images输出到同一个bmp文件中,就象Delphi的ImageList Editor一样。
- 大师们!adoquery的查询结果另存为文件 给些方法!!!!
- 555,没分了!好心人,请问点击DBNavigator1控制dbgrid中的记录指针流动,但用DBImage显示各个记录中的图片如何做?
data.asp_common.Parameters.Refresh;//这样就可以了
data.asp_common.Parameters[1].Value :=username;
data.asp_common.Parameters[2].Value :=ls_str;
data.asp_common.ExecProc;
ls_str:=data.asp_common.Parameters[1].value
()中是参数信息
用法看帮助,是创建一个参数,就怎么OK!
---------------------------
落魄文士穷书生
.....