ADO SQL delete 日期条件参数
标签：
查看更多关于ADO SQL delete 日期条件参数的详细内容...
声明：本文来自网络，不代表【好得很程序员自学网】立场，转载请注明出处：http://haodehen.cn/did119309
ADO SQL delete 日期条件参数
Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids;
type
TForm1 = class (TForm)
Button1: TButton;
ADOQuery1: TADOQuery;
Memo1: TMemo;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
Form1: TForm1;
implementation
var
tfdate: string ;
{ $R *.dfm }
procedure TForm1.Button1Click(Sender: TObject);
const
FROMWhereStr = ‘ from tbtest WHERE tfDate=:tfDate ‘ ;
ParamBuyDateTime = ‘ tfDate ‘ ;
begin
ADOQuery1.SQL.Text : = ‘ select * ‘ + FROMWhereStr ;
ADOQuery1.Parameters.ParamByName(ParamBuyDateTime).Value : = ‘ 2015-05-15 20:34:00 ‘ ;
ADOQuery1.Open;
Memo1.Lines.Add( ADOQuery1.Parameters.ParamByName(ParamBuyDateTime).Value + ‘ 行 ‘ + IntToStr(ADOQuery1.RecordCount));
end ;
procedure TForm1.Button2Click(Sender: TObject);
const
FROMWhereStr = ‘ from tbtest WHERE tfDate < #2015-05-15 20:34:00# ‘ ;
ParamBuyDateTime = ‘ tfDate ‘ ;
begin
ADOQuery1.SQL.Text : = ‘ select * ‘ + FROMWhereStr ;
ADOQuery1.Open;
Memo1.Lines.Add( ADOQuery1.SQL.Text + ‘ 行 ‘ + IntToStr(ADOQuery1.RecordCount));
end ;
end .
阅读：25次