adoquery 对SQL怎样绑定参数??

adoquery 对SQL怎样绑定参数?? Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiDB/html/delphi_20061222162013160.html
例如;在   ADOQuery   的SQL   语句中'SELECT   *   FROM   TABLE1   WHERE   '   WHERE   后面的值如果是个参数怎么办?如果这个参数是整数,又办??

一般偶都是使用Format函数来格式化Sql的  
  AdoQuery.Sql.Text:=Format('中'SELECT   *   FROM   TABLE1   WHERE   field1=''%s''   and   field2=%d',['aa',12]);  
   
  %s,   %d   的意思可以参考Format的帮助

ADOQuery.SQL.Text   :=   'SELECT   *   FROM   TABLE1   WHERE   AField   =   :AField   '  
   
  ADOQuery.Parameters.ParamByName('AField').Value   :=   xxxxxx;

Where   FieldName   =   :MyParam;  
   
   
  运行时  
  DataSet.ParamByName('MyParam')   :=   1;  
  DataSet.Open;  
   
  这样的问题,应该找书快些,不会LZ没Delphi   书?只是临时搞下Delphi?

谢谢,我用了":变量"的方法,但是好象不行,没有任何反映.我是初学DELPHI    
  用ADOQuery.params.parambyname()行吗??我不太会用这个,还请多帮帮忙!!谢谢!!

居然多了个“中”字,重新回帖  
   
  一般偶都是使用Format函数来格式化Sql的  
  AdoQuery.Sql.Text:=Format('SELECT   *   FROM   TABLE1   WHERE   field1=''%s''   and   field2=%d',['aa',12]);  
   
  %s   指参数是字符串,   %d   指参数是Integer;   其他参数可以参考Format的帮助  
 

转载于:https://www.cnblogs.com/delphi2007/archive/2008/12/11/1352486.html

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Menus, DB, ADODB, ComCtrls; type TForm1 = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; ADOConnection1: TADOConnection; ListView1: TListView; Panel1: TPanel; Button1: TButton; Button2: TButton; DataSource1: TDataSource; ADOQuery1: TADOQuery; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure DisplayDataInListView(ListView: TListView); var Connection: TADOConnection; Query: TADOQuery; Field: TField; ListItem: TListItem; begin // 创建ADO连接和查询组件 Connection := TADOConnection.Create(nil); Query := TADOQuery.Create(nil); try // 设置连接字符串 Connection.ConnectionString := 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=G:\tongbugongju\DBSync.mdb;Persist Security Info=False;'; Connection.LoginPrompt := False; Connection.Connected := True; // 绑定连接到查询组件 Query.Connection := Connection; // 执行查询语句获取数据 Query.SQL.Text := 'SELECT * FROM tasklist'; Query.Open; // 清空ListView ListView.Clear; // 遍历查询结果并将数据显示到ListView中 while not Query.Eof do begin ListItem := ListView.Items.Add; // 遍历查询结果的字段,并将数据添加到ListItem的各列中 for Field in Query.Fields do begin ListItem.SubItems.Add(Field.AsString); end; Query.Next; end; finally // 释放资源 Query.Close; Connection.Connected := False; Connection.Free; Query.Free; end; end; end.
最新发布
07-10
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值