Query用DatabaseName后的查询

[lxq_del]

我在程序中用的是Query用DatabaseName连接的数据库
path:=ExtractFilePath(application.ExeName)+'DataBase';
Query1.DatabaseName:=path;
with Query1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from Login.db');
Open;
end;
Query1.Close;
这都可以但我在下面用条件查询时就出错
with Query1 do
begin
close;
SQL.Clear;
SQL.Add('select * from Login.db where PassWord ='+''''+Trim(PassWordE.Text)+'''');
Open
end;

[ztenv]

'select * from Login.db where PassWord ='+''''+Trim(PassWordE.Text)+''''//改成:


close;
SQL.Clear;
sql.add('select * from login.db where password=:psw');
parameters.parameterbyname('psw').value:=trim(passworde.text);
open;

试试;

[WoLaiWenWenTi]

错误提示是什么？

[lxq_del]

我试了 还是有错误
错误是数据表所查询的字段重载

[Teng_s2000]

连续用一个query查询两次而且是同一个表干什么呢

[看那山瞧那水]

不要用password做字段名

[chenxuqian]

顶

[lxq_del]

是不是Query1.DatabaseName:=path;出现的错误
当我用bde时就没有出现错误
请大家帮我解决一下

[copall]

password不要乱用、改一下字段名

[lxq_del]

为什么不能用password作字段

[hqhhh]

with Query1 do
begin
close;
SQL.Clear;
SQL.Add('select * from Login.db where [PassWord] ='+''''+Trim(PassWordE.Text)+'''');
Open
end;

//在password两边加中括号即可

[zhaoyxtaiyuan]

为什么不能用password作字段

[小安安]

SQL.Add('select * from Login.db where PassWord ='+''''+Trim(PassWordE.Text)+''''+');
你少了最后的+'

[erpang5021]

function Tdm.Login(AUserName, APassword: string): integer;
var
strSQL : String;
begin
Result := 0;
strSQL := 'select * from 口令 where name ='
+ QuotedStr(AUserName)// QuotedStr()等于在参数两边加""
+'And Password ='
+ QuotedStr(APassword);
with qryPassword do
begin
Close;//关闭数据集
SQL.Text := strSQL;
Open; //active=True
If not IsEmpty then
begin
Result := fieldbyname('ID').AsInteger;
end;
end;
end;