下面的sql 语句为什么为出错.

Question

var
  ADOTemp:TADOQuery;
begin
  ADOTemp:=TADOQuery.Create(nil);
  ADOTemp.Connection :=ADOCon;
  ADOTemp.SQL.Add('select * from AdminList where adLoginName=:Name and adPassword=:Password and popedom<>3');//看看这儿参数要用':'
  with ADOTemp do
  begin
    Parameters[0].Value :=AName;   //在这里出现错误
    Parameters[1].Value :=APassword;
    Active:=true;

Answer 1

var
  ADOTemp:TADOQuery;
begin
with adotemp do
  begin
  sql.close; sql.clear;
  SQL.Add('select * from AdminList where adLoginName=:adLoginName and adPassword=:adPassword and popedom<>3');//看看这儿参数要用':'
  Parameters[0].Value :=AName;   //在这里出现错误
  Parameters[1].Value :=APassword;
  open;
  end;你试试看！

Answer 2

var
  ADOTemp:TADOQuery;
begin
with adotemp do
  begin
  sql.close; sql.clear;
  SQL.Add('select * from AdminList where adLoginName=:adLoginName and adPassword=:adPassword and popedom<>3');
  Parameters.ParamByName(adLoginName ).Value :=AName;         
  Parameters.ParamByName(adPassword ).Value :=APassword;
  open;
  end;