adostoreproc使用方法
来源:互联网 发布:知乎客户端电脑版 编辑:程序博客网 时间:2024/06/03 00:00
方法一:
TJZB_SP.Close;
with TJZB_SP do
begin
Parameters.ParamByName('@riqi_start').Value :=datetostr(riqi_start.Date);
Parameters.ParamByName('@riqi_end').Value :=datetostr(riqi_end.Date);
Parameters.ParamByName('@sjd_start').Value :=sjd_start.Text;
Parameters.ParamByName('@sjd_end').Value := sjd_end.Text;
Parameters.ParamByName('@BSS').Value :=BSS_ed.Text;
Parameters.ParamByName('@Site').Value :='%'+Site_ed.Text+'%';
Parameters.ParamByName('@Cell').Value := Cell_ed.Text;
end;
tjzb_sp.Open;
//TJZB_SP 是控件ADOSTOREPROC的名字
//另外还要设置存储过程名和各个参数,类型
方法二:
TJZB_SP.ProcedureName:='wlwxxntj';
TJZB_SP.Close;
TJZB_SP.Parameters.Clear;
tp := TJZB_SP.Parameters.AddParameter;
tp.Name := '@riqi_start';
tp.DataType := ftdatetime;
tp.Value := datetostr(riqi_start.Date);
tp := TJZB_SP.Parameters.AddParameter;
tp.Name := '@riqi_end';
tp.DataType := ftdatetime;
tp.Value := datetostr(riqi_end.Date);
tp := TJZB_SP.Parameters.AddParameter;
tp.Name := '@sjd_start';
tp.DataType := ftString;
tp.Value := sjd_start.Text;
tp := TJZB_SP.Parameters.AddParameter;
tp.Name := '@sjd_end';
tp.DataType := ftString;
tp.Value := sjd_end.Text;
tp := TJZB_SP.Parameters.AddParameter;
tp.Name := '@BSS';
tp.DataType := ftString;
tp.Value := BSS_ED.Text;
tp := TJZB_SP.Parameters.AddParameter;
tp.Name := '@SITE';
tp.DataType := ftString;
tp.Value := '%'+SITE_ED.Text+'%';
tp := TJZB_SP.Parameters.AddParameter;
tp.Name := '@CELL';
tp.DataType := ftString;
tp.Value := CELL_ED.Text;
tp := TJZB_SP.Parameters.AddParameter;
tp.Name := '@orderby_key';
tp.DataType := ftwideString;
tp.Value := orderby_key.Text;
tp := TJZB_SP.Parameters.AddParameter;
tp.Name := '@pxfs';
tp.DataType := ftwideString;
tp.Value := pxfs_comb.Text;
tp := TJZB_SP.Parameters.AddParameter;
tp.Name := '@ysf';
tp.DataType := ftwideString;
tp.Value := ysf_comb.Text;
tp := TJZB_SP.Parameters.AddParameter;
tp.Name := '@ysf_z';
tp.DataType := ftString;
if ysf_z.Text='' then tp.Value :='0' else tp.Value := ysf_z.Text;
tp := TJZB_SP.Parameters.AddParameter;
tp.Name := '@top_z';
tp.DataType := ftString;
tp.Value := top_z.Text;
TJZB_SP.Open;
if tjzb_sp.Eof then jg_lab.Caption:='没有找到相关记录!';
tjzb_groupbox.Caption:='共找到'+Inttostr(TJZB_SP.RecordCount)+'条记录';
//第一次用第一个方法,有时会出错,所以改用了第二种方法,
//在查询时,有个查询二个日期间的数据时,当选择同一个日期时查不出来,后来发现要把日期类型转换为字符串类型。
- adostoreproc使用方法
- ADOQUERY,CLIENTDATASET,ADOSTOREPROC执行存储过程【多种方法】
- 使用方法
- CSDNBlog使用方法
- 游标使用方法
- Sappy使用方法
- NetSH使用方法
- 一般使用方法
- sp_addlinkedserver使用方法
- shutdown使用方法
- 缓存使用方法
- want使用方法
- log4j使用方法
- log4j使用方法
- vi 使用方法
- Velocity 使用方法
- Regsvr32使用方法
- NUnit使用方法
- 系统托盘的问题
- STK卡详解
- Pthread 与 Linux
- 掌握 Ajax,第 5 部分: 操纵 DOM
- 升级到SQL Server 2005 的10大理由
- adostoreproc使用方法
- 广告控件calendar的应用
- 一个XmlHttpRequest的小程序
- 偶也小I一族了:)
- 在DataGrid中跨页面实现多选
- ADOquery导入EXCEL表数据例子
- 基于IP的H.264关键技术
- 使用struts编写的bug管理(三)
- 控制图片按比例显示(1)