请问这样的 sql 语句为什么行不通?如何更改(100分)

K

kisse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #1

ado 已经配置正确
procedure TForm1.Button1Click(Sender: TObject);
var time1,time2 : string;
begin
time1 := '2001-12-01';
time2 := '2001-12-30';
ADOQuery1.Close;
ADOQuery1.sql.clear;
ADOQuery1.sql.add('select * from 工资管理 where 发款日期 between');
ADOQuery1.sql.add('"' + time1 + '"' + 'and' + '"' + time2 +'"');
ADoquery1.Open;
end;

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #2

begin
time1 := '2001-12-01';
time2 := '2001-12-30';
ADOQuery1.Close;
ADOQuery1.sql.clear;
ADOQuery1.sql.add('select * from 工资管理 where 发款日期 between');
ADOQuery1.sql.add(' :a and :b');
adoquery.parameters.parambyname('a').value:=strtodate(time1);
adoquery.parameters.parambyname('b').value:=strtodate(time2);
ADoquery1.Open;
end;

 

天

天真

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #3

这样就好
ado 已经配置正确
procedure TForm1.Button1Click(Sender: TObject);
var time1,time2 : string;
begin
time1 := '2001-12-01';
time2 := '2001-12-30';
ADOQuery1.Close;
ADOQuery1.sql.clear;
ADOQuery1.sql.add('select * from 工资管理 where 发款日期 between');
ADOQuery1.sql.add('''' + time1 + '''' + 'and ' + '''' + time2 +'''');
ADoquery1.Open;
end;

 

G

gudong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #4

你的数据库中的字段一定是时间型的，你用字符型的去查当然错了，即使
查出来结果也是错误的，楼上的已经帮你完成了，来晚一步。

 

E

Eva

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #5

是'的表达问题，在delphi的字符串中两个'表示一个'，即''表示'
正确表达方式如 天真 的回答
procedure TForm1.Button1Click(Sender: TObject);
var time1,time2 : string;
begin
time1 := '2001-12-01';
time2 := '2001-12-30';
ADOQuery1.Close;
ADOQuery1.sql.clear;
ADOQuery1.sql.add('select * from 工资管理 where 发款日期 between');
ADOQuery1.sql.add('''' + time1 + '''' + 'and ' + '''' + time2 +'''');
ADoquery1.Open;
end;

 

X

xudongya

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #6

ado 已经配置正确
,不知用什么数据库，如果还不行，可能表名和字段名不能为汉字。
procedure TForm1.Button1Click(Sender: TObject);
var str : string;
begin
time1 := ;
time2 := '2001-12-30';
ADOQuery1.Close;
ADOQuery1.sql.clear;
str:='select * from 工资管理 where 发款日期>=''2001-12-01'' and 发款日期<=''2001-12-30''';
ADOQuery1.sql.add(str);
ADoquery1.Open;
end;

 

B

bingjian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #7

问题出在
ADOQuery1.sql.add('"' + time1 + '"' + 'and' + '"' + time2 +'"');
这一行
前两位的都是对的

 

K

kisse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #8

多人接受答案了。

 

Y

Yujx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #9

begin
time1 := '2001-12-01';
time2 := '2001-12-30';
ADOQuery1.Close;
ADOQuery1.sql.clear;
ADOQuery1.sql.add('select * from 工资管理 where 发款日期 ');
ADOQuery1.sql.add(' >=:a and 发款日期 <=:b');
adoquery.parameters.parambyname('a').value:=strtodate(time1);
adoquery.parameters.parambyname('b').value:=strtodate(time2);
ADoquery1.Open;
end;

 

X

xudongya

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #10

ado 已经配置正确
,不知用什么数据库，如果还不行，可能表名和字段名不能为汉字。
procedure TForm1.Button1Click(Sender: TObject);
var str : string;
begin
time1 := ;
time2 := '2001-12-30';
ADOQuery1.Close;
ADOQuery1.sql.clear;
str:='select * from 工资管理 where 发款日期>=''2001-12-01'' and 发款日期<=''2001-12-30''';
ADOQuery1.sql.add(str);
ADoquery1.Open;
end;