若想使用SQL命令，筛选出位于一定时间段内的Record，为何如下命令不行，(100分)

SolidSnake · 2000-07-14

若想使用SQL命令，筛选出位于一定时间段内的Record，为何如下命令不行，
--------------------------------------------------------------------------------
dstart:=strtodate(combobox1.text+'-'+combobox2.text+'-'+edit2.text);
dend:=strtodate(combobox3.text+'-'+combobox4.text+'-'+edit3.text);

with query1 do
begin
close;
sql.clear;
sql.add('select * from "jinhuo.db" where Date between :dates and :datee');
parambyname('dates').Value:=dstart;
parambyname('datee').Value:=dend;
open;
end;
--------------------------------------------------------------------------------
哪里有错误？应如何修改？十万火急！！！急盼您的回答！！！

R_Baggio · 2000-07-14

parambyname('dates').AsDateTime:=dstart

追命 · 2000-07-14

不要用date做字段名，date是保留关键字

烂泥 · 2000-07-14

我试了以上代码没有任何问题
procedure TForm1.Button1Click(Sender: TObject);
var dstart:Tdatetime;
dend:Tdatetime;
begin
dstart:=strtodate(combobox1.text+'-'+combobox2.text+'-'+edit1.text);
dend:=strtodate(combobox3.text+'-'+combobox4.text+'-'+edit2.text);

with query1 do
begin
close;
sql.clear;
sql.add('select * from "events.db" where event_date between :dates and :datee');
parambyname('dates').Value:=dstart;
parambyname('datee').Value:=dend;
open;
end;

end;

你的错误提示是什么？

SolidSnake · 2000-07-14

查询后，没有得到结果！（肯定有符合条件的记录）

烂泥 · 2000-07-14

用Database deskTop 可有数据？

SolidSnake · 2000-07-14

当然有!!!

wgpan · 2000-07-14

两个可能的错误已经被 R_Baggio 和追命指出来了。
还有一个要注意的是: dates>=datee

yck · 2000-07-14

会不会你把日期搞错了？dStart>dEnd?

CJ · 2000-07-14

dstart := cbxMounth.Text + '/' + cbxDay.Text + '/' + cbxYear.Text;
dsEnd := cbxMounth1.Text + '/' + cbxDay1.Text + '/' + cbxYear1.Text;

with query1 do
begin
close;
sql.clear;
sql.add('select * from "jinhuo.db" where myDate Between ''' + dStart + ' and ' + dEnd + '''';
open;
end;

Tab · 2000-07-18

我记得对于Date类型的字段，用SQL语句时应在字段变量前加"#"号
试试看，我以前在VB中是这样用的。

yunshang · 2000-07-19

Try this :

dstart:=combobox1.text+'-'+combobox2.text+'-'+edit1.text; //string type
dend:=combobox3.text+'-'+combobox4.text+'-'+edit2.text;
with query1 do
begin
close;
sql.clear;
sql.add('select * from "events.db" where string(event_date) between :dates and :datee');
parambyname('dates').AsString:=dstart;
parambyname('datee').AsString:=dend;
open;
end;

千中元 · 2000-07-19

改用datetimepicker

LiuYangCD · 2000-07-19

BDE缺省的日期格式为“MM/DD/YY”（注意分隔符是“/”）
编程时必须用DecodeDate和EncodeDate函数拆分及组合成上诉的日期格式。
再引入到SQL查询中

zwhc · 2000-07-19

1、如果Date 字段的数据类型是 string 型

select *
from jinhuo.db
where convert(datetime,date) between convert(datetime,:dateS)
and convert(datetime,dateE)

2、如果Date 字段的数据类型是 string 型

select *
from jinhuo.db
where date between convert(datetime,:dateS)
and convert(datetime,dateE)

zwhc · 2000-07-19

sorry

>>2、如果Date 字段的数据类型是 string 型

改为 2、如果Date 字段的数据类型是 datetime 型
~~~~~~~~

黑雪人 · 2000-07-29

谢谢大家！
有事请联络！

陈君凯 · 2000-07-29

试试sqlbuilder吧.他会让你满意的

小菜 · 2000-08-26

Local SQL 可以接受的日期格式与Delphi默认的日期格式不同，
应自己在程序中进行转换。查一下Local SQL Guide 对日期格式
的要求就明白了。

wang3003 · 2000-08-26

这样做肯定行.
用两个DateTimePicker,即DateTimePicker1和DateTimePicker2.
(而不用很多的ComboBox进行合成.)
将DateTimePicker1的Time设为:0:00:00
将DateTimePicker2的Time设为:23:59:59
dStart:=DateTimePicker1.DateTime;
dEnd:=DateTimePicker2.DateTime;
然后执行后面的程序.

若想使用SQL命令，筛选出位于一定时间段内的Record，为何如下命令不行，(100分)

SolidSnake

Unregistered / Unconfirmed

R_Baggio

Unregistered / Unconfirmed

追命

Unregistered / Unconfirmed

烂泥

Unregistered / Unconfirmed

SolidSnake

Unregistered / Unconfirmed

烂泥

Unregistered / Unconfirmed

SolidSnake

Unregistered / Unconfirmed

wgpan

Unregistered / Unconfirmed

yck

Unregistered / Unconfirmed

CJ

Unregistered / Unconfirmed

Tab

Unregistered / Unconfirmed

yunshang

Unregistered / Unconfirmed

千中元

Unregistered / Unconfirmed

LiuYangCD

Unregistered / Unconfirmed

zwhc

Unregistered / Unconfirmed

zwhc

Unregistered / Unconfirmed

黑雪人

Unregistered / Unconfirmed

陈君凯

Unregistered / Unconfirmed

小菜

Unregistered / Unconfirmed

wang3003

Unregistered / Unconfirmed

Similar threads