Выборка

@AXS · Регистрация: 28.10.2009

Author24 — интернет-сервис помощи студентам

Есть вот такая часть кода с SQL запросом

Delphi

procedure TFPrivateCard.Button1Click(Sender: TObject);
begin
  FSearch.Show;
  FSearch.ActiveControl:=FSearch.FindEdit;
  if FPrivateCard.RadioButton1.Checked=True then  //Поиск по фамилии
    begin
      FSearch.Label3.Caption:='Фамилия студента:';
      FData.ADOTStudents.FieldByName('Фамилия');
       With FData.ADOQuery1 do
         begin
           Active:=false;
           SQL.Clear;
           SQL.Add('SELECT *');
           SQL.Add('FROM "Личные данные студентов"');
           SQL.Add('WHERE Фамилия LIKE '''+FSearch.FindEdit.Text+'''');
           Active:=true;
           SQL.Add('WHERE Фамилия LIKE '''+FSearch.FindEdit.Text + '%' + '''');
         end;
      KeyFind:='Фамилия';
      FPrivateCard.ActiveControl:=DBEdit2;
      Exit;
    end;

По идее программа должна искать фамилию уже по первым вводимым символам. Но почему-то этого не происходит...Правильно ли всё написано?

@HyperZen · 09.09.2012, 19:42

Первая ошибка, посмотрите внимательно на эту часть кода:

Сообщение от AXS

Delphi

1
2
3

SQL.Add('WHERE Фамилия LIKE '''+FSearch.FindEdit.Text+'''');
 Active:=true;
 SQL.Add('WHERE Фамилия LIKE '''+FSearch.FindEdit.Text + '%' + '''');

Добавлено через 3 минуты
И, объясните, для чего Exit в конце процедуры?

@AXS · 09.09.2012, 21:13 **[ТС]**

А можно прям указать на данную ошибку?) Так сказать ткнуть носом)) Просто посмотреть на данную часть кода мне не поможет...

@HyperZen · 10.09.2012, 17:56

Попробуйте так:

Delphi

procedure TFPrivateCard.Button1Click(Sender: TObject);
begin
  FSearch.Show;
  FSearch.ActiveControl:=FSearch.FindEdit;
  if FPrivateCard.RadioButton1.Checked=True then  //Поиск по фамилии
    begin
      FSearch.Label3.Caption:='Фамилия студента:';
       With FData.ADOQuery1 do
         begin
           Active:=false;
           SQL.Clear;
           SQL.Add('SELECT *');
           SQL.Add('FROM "Личные данные студентов"');
           SQL.Add('WHERE Фамилия LIKE "%' + FSearch.FindEdit.Text + '%"');
           Active:=true;
         end;
      FPrivateCard.ActiveControl:=DBEdit2;
    end;

@AXS · 11.09.2012, 18:52 **[ТС]**

Спасибо за помощь, попробую))

@AXS · 13.09.2012, 20:30 **[ТС]**

На ваш вариант кода выдаёт ошибку. А если прописать вот так

('WHERE Фамилия LIKE ' '%'+FSearch.FindEdit.Text + '%' ' ');

То ошибки нет, но ничего не ищет...

@HyperZen · 13.09.2012, 20:56

Предлагаю выложить проект...

@AXS · 18.09.2012, 18:18 **[ТС]**

Вот сам проект

@AXS · 18.09.2012, 19:49 **[ТС]**

Для наглядности картинка...В маленькой форме ввожу фамилию, а в большой должны отобразиться все данные, связанные с этой фамилией. Маленькая форма вызывается по кнопке Поиск.

@xxbesoxx · 18.09.2012, 20:43

Сообщение от AXS

Есть вот такая часть кода с SQL запросом

Delphi

procedure TFPrivateCard.Button1Click(Sender: TObject);
begin
  FSearch.Show;
  FSearch.ActiveControl:=FSearch.FindEdit;
  if FPrivateCard.RadioButton1.Checked=True then  //Поиск по фамилии
    begin
      FSearch.Label3.Caption:='Фамилия студента:';
      FData.ADOTStudents.FieldByName('Фамилия');
       With FData.ADOQuery1 do
         begin
           Active:=false;
           SQL.Clear;
           SQL.Add('SELECT *');
           SQL.Add('FROM "Личные данные студентов"');
           SQL.Add('WHERE Фамилия LIKE '''+FSearch.FindEdit.Text+'''');
           Active:=true;
           SQL.Add('WHERE Фамилия LIKE '''+FSearch.FindEdit.Text + '%' + '''');
         end;
      KeyFind:='Фамилия';
      FPrivateCard.ActiveControl:=DBEdit2;
      Exit;
    end;

По идее программа должна искать фамилию уже по первым вводимым символам. Но почему-то этого не происходит...Правильно ли всё написано?

копировать и вставит чужие код. это не программирование , Язык надо учить ! смотрите если вы хотите по первым вводимым символам что ADOQuery не выполняет запрос SQL

@AXS · 18.09.2012, 21:33 **[ТС]**

так надо же на чём-то учиться)) вот и приходится на чьих-то кодах. А статьи про отдельные элементы типа select, from не помогают. Мне нужно в действии так сказать...И всё же прошу показать как это делается с помощью запроса? Наглядный код согласно этому проекту. Буду очень признателен)

@xxbesoxx · 18.09.2012, 22:29

Сообщение от AXS

так надо же на чём-то учиться)) вот и приходится на чьих-то кодах. А статьи про отдельные элементы типа select, from не помогают. Мне нужно в действии так сказать...И всё же прошу показать как это делается с помощью запроса? Наглядный код согласно этому проекту. Буду очень признателен)

Вы силку открывали ? мои предыдущие сообщения ? #10 (permalink там все подробно

@AXS · 19.09.2012, 19:45 **[ТС]**

да, читал. Я для проверки сделал DBGrid чтобы наглядно было видно идёт фильтрация или нет. Так вот. Сам запрос работает, выводит все фамилии и связанные с ними данные по первым вводимым буквам, но проблема не отображения данных в большой форме в соответствии с введённым текстом в маленькой ещё актуальна для меня....

@AXS -2 / 0 / 0 Регистрация: 28.10.2009 Сообщений: 150
	09.09.2012, 21:13 [ТС]	3
	А можно прям указать на данную ошибку?) Так сказать ткнуть носом)) Просто посмотреть на данную часть кода мне не поможет... 0

@AXS -2 / 0 / 0 Регистрация: 28.10.2009 Сообщений: 150
	11.09.2012, 18:52 [ТС]	5
	Спасибо за помощь, попробую)) 0

@AXS -2 / 0 / 0 Регистрация: 28.10.2009 Сообщений: 150
	13.09.2012, 20:30 [ТС]	6
	На ваш вариант кода выдаёт ошибку. А если прописать вот так ('WHERE Фамилия LIKE ' '%'+FSearch.FindEdit.Text + '%' ' '); То ошибки нет, но ничего не ищет... Миниатюры 0

@HyperZen 498 / 251 / 56 Регистрация: 16.06.2011 Сообщений: 904
	13.09.2012, 20:56	7
	Предлагаю выложить проект... 0

@AXS -2 / 0 / 0 Регистрация: 28.10.2009 Сообщений: 150
	18.09.2012, 19:49 [ТС]	9
	Для наглядности картинка...В маленькой форме ввожу фамилию, а в большой должны отобразиться все данные, связанные с этой фамилией. Маленькая форма вызывается по кнопке Поиск. Миниатюры 0

@AXS -2 / 0 / 0 Регистрация: 28.10.2009 Сообщений: 150
	18.09.2012, 21:33 [ТС]	11
	так надо же на чём-то учиться)) вот и приходится на чьих-то кодах. А статьи про отдельные элементы типа select, from не помогают. Мне нужно в действии так сказать...И всё же прошу показать как это делается с помощью запроса? Наглядный код согласно этому проекту. Буду очень признателен) 0

@xxbesoxx 1134 / 615 / 129 Регистрация: 13.02.2009 Сообщений: 3,553
	18.09.2012, 22:29	12
	Сообщение от AXS так надо же на чём-то учиться)) вот и приходится на чьих-то кодах. А статьи про отдельные элементы типа select, from не помогают. Мне нужно в действии так сказать...И всё же прошу показать как это делается с помощью запроса? Наглядный код согласно этому проекту. Буду очень признателен) Вы силку открывали ? мои предыдущие сообщения ? #10 (permalink там все подробно 1

@AXS -2 / 0 / 0 Регистрация: 28.10.2009 Сообщений: 150
	19.09.2012, 19:45 [ТС]	13
	да, читал. Я для проверки сделал DBGrid чтобы наглядно было видно идёт фильтрация или нет. Так вот. Сам запрос работает, выводит все фамилии и связанные с ними данные по первым вводимым буквам, но проблема не отображения данных в большой форме в соответствии с введённым текстом в маленькой ещё актуальна для меня.... 0

Опции темы