Организация поиска через DBGrid

@Ppz · Регистрация: 22.04.2017

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

Компонент DBGrid показывает значения из БД SQL Servera Таблицу школьник. При вводе в Edit1 должно искать по всем перечисленным полям. Но программа выдает ошибку : не правильный синтаксис возле конструкции 'like'.
Прошу исправить ошибки или предложить другой вариант кода, для поиска по всему компоненту DBGrid.

Delphi

procedure TForm19.Edit1Change(Sender: TObject);
var
h1, h2: string;
begin
h1:='%'+Form19.Edit1.Text+'%';
h2:=QuotedStr(h1);
with Form19.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select*from ШКОЛЬНИК where ФИО_шк_ка like'+ h2 +' or Адрес_шк_ка like'+ h2 +' or Тел_шк_ка like'+ h2 +' or Класс likе);
open;
end;
end;

Выдает ошибку like

@TFullControl · 22.04.2017, 10:05

А пробелы кто ставить будет между LIKE h2?

Добавлено через 5 минут
И после последнего LIKE ничего нет.

@Ppz · 22.04.2017, 10:20 **[ТС]**

Если ввожу так:

Delphi

procedure TForm19.Edit2Change(Sender: TObject);
var
h1, h2: string;
begin
if Edit1.Text = '' then Exit;
h1:='%'+Form19.Edit2.Text+'%';
h2:=QuotedStr(h1);
with Form19.ADOQuery1 do
begin
close;
sql.Clear;
sql.text:='select*from ШКОЛЬНИК where Инд_ном_шк_ка like'+ h2;
open;
end;
end;

То все норм. Но мне нужен поиск по нескольким столбцам.

а ввожу :

Delphi

procedure TForm19.Edit1Change(Sender: TObject);
var
h1, h2: string;
begin
if Edit1.Text = '' then ShowMessage ('Введите значение !');
h1:='%'+Form19.Edit1.Text+'%';
h2:=QuotedStr(h1);
with Form19.ADOQuery1 do
begin
close;
sql.Clear;
sql.text:='select*from ШКОЛЬНИК where ФИО_шк_ка like'+ h2 +' or Адрес_шк_ка like'+ h2 +' or Тел_шк_ка like'+ h2 +' or Класс likе';
open;
end;
end;

Выводит ту же ошибку:
Рядом с like в контексте где ожидается условие указано выражение типа отличного от логического.

@TFullControl · 22.04.2017, 10:24

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

И после последнего LIKE ничего нет.

!!!

@Ppz · 23.04.2017, 07:47 **[ТС]**

Разобралась.

Delphi

procedure TForm19.Edit2Change(Sender: TObject);
var
h1, h2: string;
begin
if Edit2.Text = '' then Exit;
h1:='%'+Form19.Edit2.Text+'%';
h2:=QuotedStr(h1);
with Form19.ADOQuery1 do
begin
close;
//sql.Clear;
sql.text:='select*from ШКОЛЬНИК where Инд_ном_шк_ка like'+ h2;
open;
end;
end;

Такой код работает. Как сделать чтобы при вводе значений в одно поле Эдит происходил поиск по нескольким полям таблицы?

Добавлено через 7 минут
Спасибо, что помогли! Разобралась. Теперь работает .

Добавлено через 21 час 0 минут
Хочу применить данный поиск к компоненту DBGrid который связан в делфи 7 через диаграмму с другим DBGrid.
Почему то данный поиск не работает. На данной форме есть только два компонента DataSourse и ADOTable-два компонента. Добавила ADOQuery и соединила его c ADOConnection.
Код тот же:

Delphi

procedure TForm10.Edit1Change(Sender: TObject);
var
h1, h2: string;
begin
if Edit1.Text = '' then Exit;
h1:='%'+Form10.Edit1.Text+'%';
h2:=QuotedStr(h1);
with Form10.ADOQuery1 do
begin
close;
//sql.Clear;
sql.text:='select*from ШКОЛЬНИК where Инд_ном_шк_ка like'+ h2+' or Тел_шк_ка like'+ h2+' or ФИО_шк_ка like'+ h2+' or Адрес_шк_ка like'+ h2+' or Класс like'+ h2+' or Буква_кл like'+ h2;
open;
end;
end;

Как сделать поиск рабочим в данной форме?

@YuryK · 23.04.2017, 07:58

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

Добавила ADOQuery и соединила его c ADOConnection.

от того, что запрос выполнится и выберет нужные записи кому станет легче? Гриды как отображали данные из ADOTable так и отображают. Надо у DataSource заменить DataSet c ADoTableX на ADOQuery1, чтобы в гриде отображались результаты вашего запроса

@Ppz · 23.04.2017, 08:11 **[ТС]**

Выдает ошибку : ADOQuery1 : СommandText does not return a result set.

@YuryK · 23.04.2017, 08:17

в дизайне? Ну так запишите и туда SQL хотя бы select * from ШКОЛЬНИК предже, чем начнете править в рантайм

@Ppz · 23.04.2017, 10:00 **[ТС]**

Разобралась, потому что в sql запросе не чего не было... Спасибо. Теперь работает данный поиск.

Добавлено через 1 час 40 минут
Есть компонент DBGrid, в нем происходит поиск ( Но поиск может производиться по всему компоненту DBGrid через компонент Edit) .Курсор стоит на одном конкретном человеке, с конкретным индивидуальным номером, при нажатии на кнопку удалить-происходить удаление выбранного чел-ка из БД, но хочется чтобы еще и удалялась другая информация из другого DBGrid.
Т.е. в одной таблице информация о человеке, она удаляется. А в другой таблице выдача книг, дата выдачи, дата возврата кн инд ном читателя и др. поля.

При нажатии на кнопку хочется, чтобы удалялась не только информация о читателе, но и данные из другой таблицы (вся информация с выбранным индивид ном читателя).

Добавлено через 1 минуту
есть вариант удалять по одной записи, но это очень долго.

@YuryK · 23.04.2017, 10:37

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

при нажатии на кнопку удалить-происходить удаление выбранного чел-ка из БД, но хочется чтобы еще и удалялась другая информация из другого DBGrid.

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

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

есть вариант удалять по одной записи, но это очень долго.

если удалять не из грида, а из таблицы, то можно одним запросом

@Ppz · 23.04.2017, 11:35 **[ТС]**

Напишите пожалуйста код, как можно сделать запрос через удаление из таблицы. (Это же через компонент ADOTable?)

Добавлено через 18 минут
А на счет того что при удалении школьника из БД его информация о выдаче книги не удаляется, так и должно быть. Нельзя чтобы шуольника удалили из БД если у него есть не возвращенные книги.

@YuryK · 23.04.2017, 12:12

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

Это же через компонент ADOTable?

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

SQL

1
2
3

DELETE FROM НесданныеКниги WHERE Школьник = :Id
DELETE FROM ВзятыеКниги WHERE Школьник = :Id
DELETE FROM ЗаказанныеКниги WHERE Школьник = :Id

и перед удалением записи из главной таблицы, в BeforeDelete подставить значения параметра и выполнить (ExecSQL)

@Ppz · 23.04.2017, 13:31 **[ТС]**

есть запрос но он на другой форме и нужен он для удаления,изменения добавления. Можно же через этот же запрос сделать так чтобы при нажатии кнопки удалялись данные из таблицы ШКОЛЬНИК и из таблицы АБОНЕМЕНТ . Можно сделать такой код (указанный ниже) для кнопки ?

Delphi

if Edit3.Text = '' then Exit; 
Form8.adoquery2.Delete;
 
withe Form_.ADOQuery_ do
begin
close;
sql.text:='delete from АБОНЕМЕНТ where Инд_ном_шк_ка=: ' Form_.Edit3';
open;
end;

@YuryK · 23.04.2017, 13:46

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

Можно же через этот же запрос сделать

если вы ограничены в количестве ADOQuery, можете. Это же так удобно

тогда уж

Delphi

  withe TADOQuery.Create do begin
    Connection := ...
    SQL := ...
    ExecSQL; 
    Free;
  end

@Ppz · 23.04.2017, 13:57 **[ТС]**

withe TADOQuery.Create do begin
Connection := ...
SQL := ...
ExecSQL;
Free;
end

SQL :=delete from АБОНЕМЕНТ where Инд_ном_шк_ка=: Form_.Edit3
Такое же не прокатит .
а Connection какое значение присваивать?

@YuryK · 23.04.2017, 14:08

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

а Connection какое значение присваивать?

такое же, как и во всех остальных ADOQuery и ADOTable. Или оно у всех разное

параметрический запрос в таком случае тоже будет уже не нужен, можно будет

Delphi

1	SQL :='delete from АБОНЕМЕНТ where Инд_ном_шк_ка=' + DataSet.FieldByName('имя ключевого поля').AsString;

@Ppz · 24.04.2017, 14:14 **[ТС]**

А если в другой форме у меня связано с компонентом DataSoerse Что делать?

@YuryK · 25.04.2017, 15:06

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

А если в другой форме у меня связано с компонентом DataSoerse Что делать?

Если вы его удалите, что что пойдете его рассматривать на другой форме? На другую форму вы уже зайдете с другим школьником, ещё не удаленным. Или вы вываливаете таблицы целиком? безо всякой фильтрации и отбора?

@Ppz · 25.04.2017, 17:44 **[ТС]**

вываливаю таблицы целиком =(.

Как написать запрос sql , удалять из таблица Абонемент , пока инд_ном_школьника = Едиту 1 с другой формы???

SQL.Text:='delete from АБОНЕМЕНТ where Инд_ном_шк_ка...

@Delphi_Chaynik · 28.04.2017, 21:17

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

Как написать запрос sql , удалять из таблица Абонемент , пока инд_ном_школьника = Едиту 1 с другой формы???

соедините с формой в которой находится Adoquery

@TFullControl 500 / 346 / 200 Регистрация: 20.10.2016 Сообщений: 1,101
	22.04.2017, 10:05	2
	А пробелы кто ставить будет между LIKE h2? Добавлено через 5 минут И после последнего LIKE ничего нет. 1

@TFullControl 500 / 346 / 200 Регистрация: 20.10.2016 Сообщений: 1,101
	22.04.2017, 10:24	4
	Сообщение от TFullControl И после последнего LIKE ничего нет. !!! 1

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	23.04.2017, 07:58	6
	Сообщение от Ppz Добавила ADOQuery и соединила его c ADOConnection. от того, что запрос выполнится и выберет нужные записи кому станет легче? Гриды как отображали данные из ADOTable так и отображают. Надо у DataSource заменить DataSet c ADoTableX на ADOQuery1, чтобы в гриде отображались результаты вашего запроса 1

@Ppz 0 / 0 / 0 Регистрация: 22.04.2017 Сообщений: 20
	23.04.2017, 08:11 [ТС]	7
	Выдает ошибку : ADOQuery1 : СommandText does not return a result set. 0

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	23.04.2017, 08:17	8
	в дизайне? Ну так запишите и туда SQL хотя бы select * from ШКОЛЬНИК предже, чем начнете править в рантайм 1

@Ppz 0 / 0 / 0 Регистрация: 22.04.2017 Сообщений: 20
	23.04.2017, 10:00 [ТС]	9
	Разобралась, потому что в sql запросе не чего не было... Спасибо. Теперь работает данный поиск. Добавлено через 1 час 40 минут Есть компонент DBGrid, в нем происходит поиск ( Но поиск может производиться по всему компоненту DBGrid через компонент Edit) .Курсор стоит на одном конкретном человеке, с конкретным индивидуальным номером, при нажатии на кнопку удалить-происходить удаление выбранного чел-ка из БД, но хочется чтобы еще и удалялась другая информация из другого DBGrid. Т.е. в одной таблице информация о человеке, она удаляется. А в другой таблице выдача книг, дата выдачи, дата возврата кн инд ном читателя и др. поля. При нажатии на кнопку хочется, чтобы удалялась не только информация о читателе, но и данные из другой таблицы (вся информация с выбранным индивид ном читателя). Добавлено через 1 минуту есть вариант удалять по одной записи, но это очень долго. 0

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	23.04.2017, 10:37	10
	Сообщение от Ppz при нажатии на кнопку удалить-происходить удаление выбранного чел-ка из БД, но хочется чтобы еще и удалялась другая информация из другого DBGrid. значит совсем неважная у вас структура данных, если из главной таблицы запись удалилась, а из подчиненных - нет. Да Сообщение от Ppz есть вариант удалять по одной записи, но это очень долго. если удалять не из грида, а из таблицы, то можно одним запросом 0

@Ppz 0 / 0 / 0 Регистрация: 22.04.2017 Сообщений: 20
	23.04.2017, 11:35 [ТС]	11
	Напишите пожалуйста код, как можно сделать запрос через удаление из таблицы. (Это же через компонент ADOTable?) Добавлено через 18 минут А на счет того что при удалении школьника из БД его информация о выдаче книги не удаляется, так и должно быть. Нельзя чтобы шуольника удалили из БД если у него есть не возвращенные книги. 0

@Ppz 0 / 0 / 0 Регистрация: 22.04.2017 Сообщений: 20
	23.04.2017, 13:57 [ТС]	15
	withe TADOQuery.Create do begin Connection := ... SQL := ... ExecSQL; Free; end SQL :=delete from АБОНЕМЕНТ where Инд_ном_шк_ка=: Form_.Edit3 Такое же не прокатит . а Connection какое значение присваивать? 0

@Ppz 0 / 0 / 0 Регистрация: 22.04.2017 Сообщений: 20
	24.04.2017, 14:14 [ТС]	17
	А если в другой форме у меня связано с компонентом DataSoerse Что делать? 0

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	25.04.2017, 15:06	18
	Сообщение от Ppz А если в другой форме у меня связано с компонентом DataSoerse Что делать? Если вы его удалите, что что пойдете его рассматривать на другой форме? На другую форму вы уже зайдете с другим школьником, ещё не удаленным. Или вы вываливаете таблицы целиком? безо всякой фильтрации и отбора? 0

@Ppz 0 / 0 / 0 Регистрация: 22.04.2017 Сообщений: 20
	25.04.2017, 17:44 [ТС]	19
	вываливаю таблицы целиком =(. Как написать запрос sql , удалять из таблица Абонемент , пока инд_ном_школьника = Едиту 1 с другой формы??? SQL.Text:='delete from АБОНЕМЕНТ where Инд_ном_шк_ка... 0

@Delphi_Chaynik 0 / 0 / 0 Регистрация: 28.04.2017 Сообщений: 4
	28.04.2017, 21:17	20
	Сообщение от Ppz Как написать запрос sql , удалять из таблица Абонемент , пока инд_ном_школьника = Едиту 1 с другой формы??? соедините с формой в которой находится Adoquery 0