DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: a12315
今日帖子: 53
在线用户: 9
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 chateau (大脸猫) ★☆☆☆☆ -
普通会员
2003/7/7 14:58:36
标题:
parambyname用错了吗? 浏览:2645
加入我的收藏
楼主: 我想对数据库中的记录按照时间进行查找!代码如下!
var searchtime:stirng;
 begin
 parambyname('searchtime'):=datetostr(datetimepicker1.date); 
 with query1 do
  close;  
  sql.clear;
  sql.add('select * from 表 where 日期=searchtime');
  open;
  end;
编译时为什么总提示parambyname没有定义呢,问题出在哪里呢?感谢各位!
----------------------------------------------
-
作者:
男 fans4000 (狼啸九天) ★☆☆☆☆ -
盒子活跃会员
2003/7/7 16:02:12
1楼: 肯定不能这样用的啊~~
我不知道你为什么要用parambyname
直接写不久行了嘛
我给你个例子吧~~我自己的程序:)
procedure TNMHT.FlatButton1Click(Sender: TObject);
var
  strsql:string;
  i,j:integer;
begin
  //***内贸合同信息入库***
  strsql:='insert into NMHT ';
  strsql:=strsql+'values(:scontractno,:sdate,:area,:province,:calling,:man,:buyername,:buyeradd,';
  strsql:=strsql+':buyertel,:buyerman,:goodadd,:goodman,:goodtel,:total,:jhq,:fkfs,:fktj,:check)';
  with main.qryedit do
  begin
    close;
    sql.clear;
    sql.add(strsql);
    parambyname('scontractno').value:=uppercase(self.FlatEdit1.Text);
    parambyname('sdate').value:=datetostr(datetimepicker1.date);
    parambyname('area').value:=self.Flatcombobox1.text;
    parambyname('province').value:=Flatcombobox2.text;
    parambyname('calling').value:=Flatcombobox3.text;
    parambyname('man').value:=Flatcombobox4.text;
    parambyname('buyername').value:=FlatEdit2.text;
    parambyname('buyeradd').value:=FlatEdit8.text;
    parambyname('buyertel').value:=FlatEdit9.text;
    parambyname('buyerman').value:=FlatEdit10.text;
    parambyname('goodadd').value:=FlatEdit11.text;
    parambyname('goodman').value:=FlatEdit12.text;
    parambyname('goodtel').value:=FlatEdit13.text;
    parambyname('total').value:=strtofloat(FlatEdit7.text);
    parambyname('jhq').value:=FlatEdit3.text;
    parambyname('fkfs').value:=Flatcombobox5.text;
    parambyname('fktj').value:=FlatEdit4.text;
    if self.FlatCheckBox1.Checked then
      parambyname('check').value:=1
    else
      parambyname('check').value:=0;
    try
      execsql;
    except;
      showmessage('库中已有该内贸合同号,不能重复插入!');
      exit;
    end;
  end;

  if (trim(stringgrid1.cells[1,stringgrid1.RowCount-1])=') then
    j:=stringgrid1.RowCount-2
  else
    j:=stringgrid1.RowCount-1;
  for i:=1 to j do
  begin
    strsql:='insert into NMHTCP ';
    strsql:=strsql+'values(:HTH,:ID,:NAME,:COUNT,:PRICE)';
    with main.qryedit do
    begin
      close;
      sql.clear;
      sql.add(strsql);
      parambyname('HTH').asstring:=uppercase(self.FlatEdit1.Text);
      parambyname('ID').asstring:=stringgrid1.cells[1,i];
      parambyname('NAME').asstring:=stringgrid1.cells[2,i];
      parambyname('COUNT').asstring:=stringgrid1.cells[3,i];
      parambyname('PRICE').asstring:=stringgrid1.cells[4,i];
      try
        execsql;
      except;
        showmessage('error');
        exit;
      end;
    end;
    end;
    showmessage('该合同信息已成功入库!');
end;

----------------------------------------------
==DELPHI是我的生命==
作者:
女 haikely (阿) ★☆☆☆☆ -
盒子活跃会员
2003/7/7 16:04:54
2楼: with query1 do
  begin
    .close;
    .sql.clear;
    .sql.add('select * from 表 where 日期:searchtime ')
    .params[0].AsStrig:=datetimetostr(DataTimePicker1.date);
    .Prepare;
    .open;
  end;
end;

----------------------------------------------
-
作者:
男 chateau (大脸猫) ★☆☆☆☆ -
普通会员
2003/7/8 8:34:43
4楼: 首先感谢各位亲爱的朋友,我忘记了说明,我用的是ADO数据库,我查了一下有关于sql的资料,在ADO里查询时间要用如下格式# ~#,我试了一下,果然成功。怎么再使用datetimepicker1又提示参数等的错误呢?thanks!
procedure TForm1.Button2Click(Sender: TObject);
 var
 //gh:tdatetime;
begin
 // gh:=datetimepicker1.DateTime;
  with adoquery1 do
  begin
  close;
  sql.clear;
//parameters.ParamByName('gh').Value:=datetostr(DateTimePicker1.DateTime);
  sql.Add('select * from 表1 where 日期=#2002-08-21#');
  open;
  end;
end;
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行132.8125毫秒 RSS