не выполняется запрос

[NewUser]

выполняется код по нажатии на кнопку

Код: Выделить всё

SQLQuery1.DataBase := DM.IBConnection;
   SQLQuery1.Transaction := DM.SQLTransaction;
   
   SQLQuery1.SQL.Text := 'SELECT * FROM USERS, SOTRUDNIKI WHERE USER_PAS=' + EditUserPas.Text + ' AND USER_SOTR=SOTR_ID';
   
   SQLQuery1.Active := true;
   SQLQuery1.Open;

   ... далее продолжение

при запуске программы все проходит нормально, при нажатии на кнопку выполняется код и постоянно ошибка в SQLQuery1.Active := true;

вот ее текст:
IBConnection: Fetch:
-conversion error from string ''petrov ''.

запрос уже писал и так
SQLQuery1.SQL.Text := 'SELECT * FROM USERS, SOTRUDNIKI WHERE USER_PAS=1 AND USER_SOTR=SOTR_ID';

и так
SQLQuery1.SQL.Text := 'SELECT * FROM USERS, SOTRUDNIKI WHERE USER_PAS=' + #41 + #39 + EditUserPas.Text + #39 + #41 + ' AND USER_SOTR=SOTR_ID';

[NewUser]

если делаю так, то все нормально, но свопадений в
SQLQuery1.RecordCount всегда 0, хотя указываю верное значение для AS

Код: Выделить всё

SQLQuery1.Params.ParamByName('PAS').Value := EditUserPas.Text;
   SQLQuery1.SQL.Text := 'SELECT * FROM USERS, SOTRUDNIKI WHERE USER_PAS=:PAS AND USER_SOTR=SOTR_ID';

[NewUser]

в последнем варианте все ясно, сначала параметр присвоил ...
а вот почему первые не работают

[Attid]

SQLQuery1.Active := true;
SQLQuery1.Open;

так не делай просто

Код: Выделить всё

SQLQuery1.Open;

непараметизированые запросы это вообще грех, но если хочится тогда как нибуть так:

Код: Выделить всё

   SQLQuery1.SQL.Text := 'SELECT * FROM USERS, SOTRUDNIKI WHERE USER_PAS=''' + EditUserPas.Text + ''' AND USER_SOTR=SOTR_ID';

[Astralis]

Код: Выделить всё

SQLQuery1.Params.ParamByName('PAS').Value := EditUserPas.Text;
   SQLQuery1.SQL.Text := 'SELECT * FROM USERS, SOTRUDNIKI WHERE USER_PAS=:PAS AND USER_SOTR=SOTR_ID';

По разным причинам лучше писать наоборот:

Код: Выделить всё

SQLQuery1.SQL.Text := 'SELECT * FROM USERS, SOTRUDNIKI WHERE USER_PAS=:PAS AND USER_SOTR=SOTR_ID';
SQLQuery1.Params.ParamByName('PAS').Value := EditUserPas.Text;