关于日期查询(50分)

心

心心

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-19

• #1

使用ACCESS数据库用ADOQUERY进行查询,如果打出数据库中日期字段超过某一日期的所有字段?

如当前日期是2001-5-11日,如果找到超过这一日期的所有记录?请给一个详细例子

 

S

sportsman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-19

• #2

select * from yourtable where date1 > '2001-5-11'

 

心

心心

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-19

• #3

with DM.DataQuery do
begin
close;
sql.Clear;
sql.Add('select * from data where jyqx>' +
MainForm.StatusBar1.Panels[1].Text);/这个的值为当前日期now
open;
end;
这样写法对吗??

 

S

sportsman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-19

• #4

呵呵，大约就是这个意思了 ：）
Delphi我不懂啊 ：（

 

心

心心

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-19

• #5

他会返回我全部的记录值,呵,那位知道是我哪里写错了??

 

三

三岁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-19

• #6

你还是写成
sql.Add('select * from data where jyqx>:temp');
parambyname('temp').asdate:= STRTODATE(MainForm.StatusBar1.Panels[1].Text);
吧.

 

心

心心

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-19

• #7

ADOQuery好像没有parambyname,

 

S

slicker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-19

• #8

sql.Add('select * from data where jyqx>' +
''' + MainForm.StatusBar1.Panels[1].Text + ''')

 

S

slicker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-19

• #9

错了,少了一个'
sql.Add('select * from data where jyqx>' +
'''' + MainForm.StatusBar1.Panels[1].Text + '''')

 

心

心心

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-19

• #10

出现错误提示,"标准表达式的类型不匹配"
我的jyqx字段为FormatDateTime('yyyy-mm-dd', DateTimePicker1.Date)
MainForm.StatusBar1.Panels[1].Text := FormatDateTime('yyyy-mm-dd', DateTimePicker2.Date);

是哪里错了??

 

D

dabaosod

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-19

• #11

Query.sql.add('Select * from data where 时间=：A')；
Query.sql.ParamByName('A').AsDate：=StrtoDate(Edit.text)；
Query.Prepare；
Query.Open；

 

心

心心

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-20

• #12

是adoquery,不是query

 

L

liuxiaouo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-20

• #13

如果是adoquery1必须是这样：
ADOQuery1.Close;
ADOQuery1.SQL.Text := 'select * from DateTest where mydate = atetimeParam';
ADOQuery1.Parameters.ParamValues['DatetimeParam'] := Date;
ADOQuery1.Open;
给分吧！

 

心

心心

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-20

• #14

谢谢liuxiaouo,现在测试正常的代码贴上,
with DM.DataQuery do
begin
close;
sql.Clear;
SQL.Text := 'select * from Data where jyqx <=atetimeParam';
Parameters.ParamValues['DatetimeParam'] := MainForm.StatusBar1.Panels[1].Text;
Open;
end;
//该段代码用是检测数据库中的日期是否超过当前日期