Проверка логина и пароля

[Ardarik]

Пишет что SQL запрос не верен

procedure TForm2.Button1Click(Sender: TObject);
 var
log,pass:string[20];
begin
log:= ComboBox1.Text;
pass:=Edit1.Text;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT resolution FROM Users WHERE log='+log +'and pass='+pass+';');
ADOQuery1.Open;
if ADODataSet1.Recordset.RecordCount>0 then
begin
ShowMessage('Вы вошли');
Form2.Close;
end
else ShowMessage('Неправильно введены Login Pass. Пожалуйста, пройдите регистрацию');
end;

Как правильно проверить логин и пароль?

[Stilet]

'and pass='

Пробел нужен и скорее всего ковычки

ADOQuery1.SQL.Add('SELECT resolution FROM Users WHERE log='+QuotedStr(log) +' and pass='+QuotedStr(pass));

[Yurk@]

параметры использовать нужно ... пароль может быть какой угодно, косяков потом не оберешься

ADOQuery1.Close;
ADOQuery1.SQL.Text := 'SELECT resolution FROM users WHERE log = :p_log AND pass = :p_pass';
ADOQuery1.Parameters.ParamByName('p_log').Value := log;
ADOQuery1.Parameters.ParamByName('p_pass').Value := pass;
ADOQuery1.Open;

[Ardarik]

Stilet твой код выдает первая картинка. Yurk@ вторая.

[Аватар]

ADOQuery1.Open;             
if ADODataSet1.Recordset.RecordCount>0 then

Открываем ADOQuery1, проверяем ADODataSet1 - так задумано? Не в этом ли причина?

[Ardarik]

ADOQuery1.Open;
if ADOQuery1.Recordset.RecordCount>0 then

Так заработало. А не подскажите как сохранить в переменную возвращаемое значение, будет только одно значение

[Аватар]

s:=ADOQuery1.FieldByName('resolution').AsString; //если resolution varchar типа, s: String
i:=ADOQuery1.FieldByName('resolution').AsInteger; //если resolution int типа, i: Integer

[Ardarik]

Спасибо всем