Всем доброе время суток, нужно было сделать кнопку, которая по зарегистрированному номеру из базы данных MySQL(через денвер) доставала его айди и писала в лейбл, но я выполняя запрос SQL на выборку Id по номеру телефона столкнулся с тем, что вылетает ошибка если поле пустое или номера нету в бд, а хотелось бы сделать проверку, что бы если номер не тот или пустой, выдавало сообщение Что мол такого пользователя с таким номером нету.
Я так понимаю что SQL запрос не может принять 0 или не подходящий номер, т.к. Select тогда ничего не сможет взять из за того что по данным параметрам найдено 0 ID. Пробовал мудрить с переносом
Код:
DataModule1.ADOQuery1.ExecSQL;
DataModule1.ADOQuery1.Active:=true;
IdCode:=DataModule1.ADOQuery1.FieldValues['Id'];
в условие IF(которое есть в коде ниже) - ничего не выполняется тогда, кажется нельзя разрывать всю конструкцию с Query1... Если у кого есть идеи как реализовать, подскажите плиз (=
Код:
procedure TForm2.Button1Click(Sender: TObject);
begin
TelNom:=Edit1.Text;
DataModule1.ADOQuery1.SQL.Clear;
DataModule1.ADOQuery1.SQL.Add ('SELECT Id FROM uchastniki WHERE uchastniki.NomTel = '+ TelNom);
DataModule1.ADOQuery1.ExecSQL;
DataModule1.ADOQuery1.Active:=true;
IdCode:=DataModule1.ADOQuery1.FieldValues['Id'];
if IdCode=True then
begin
Label1.Visible:=True;
Label3.Caption:=IntToStr(DataModule1.ADOQuery1.FieldValues['Id']);
end
else
begin
ShowMessage('Пользователя с таким Номером телефона не зарегестрированно в нашем гольф клубе');
end;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
Close;
Form1.Show;
end;
end.
