Query参数parameter的操作

Query参数parameter的操作

一、静态设置

1.  设置参数

      

    

2.  设置sql

     

注意:=cxybm中间是不能有空格的,否则报错(这个错误搞得我好晕)

二、动态设置

procedure TForm1.Button1Click(Sender: TObject);

var

  czybm : TParameter;

begin

  //参加参数及设置属性

  //ADOQuery1.Parameters.Clear;

  try

    czybm := ADOQuery1.Parameters.AddParameter;

    czybm.DataType := ftString;

    czybm.Direction := pdInput;

    //czybm.Value := '001';  这样赋值是错误的

    //ADOQuery1.Parameters.ParamByName('czybm').Value := '001';  //这里赋值是错误

 

    //ShowMessage(IntToStr(ADOQuery1.Parameters.Count));

 

    ADOQuery1.Close;

    ADOQuery1.SQL.Clear;

    ADOQuery1.SQL.Add('select * from tb_czyda where f_czybm =:czybm');

    //czybm.Value := '001';  这样赋值是错误的

    ADOQuery1.Parameters.ParamByName('czybm').Value := '001';  //这里用ParamByName赋值才是正确的

    //ADOQuery1.Parameters.FindParam('czybm').Value := '001';  //FindParam也正确

 

    ADOQuery1.Prepared := true;  //可以提高程序的执行效率

 

    ADOQuery1.Open;

  finally

    //czybm.Free;  //不正确

    ADOQuery1.Parameters.ParamByName('czybm').Free;

    //ADOQuery1.Parameters.FindParam('czybm').Free;   //也正确

  end;

end;

 该代码在Windows 2000 + delphi 6 通过

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值