Oraquery Поиск

@Mirhat89 · Регистрация: 12.10.2011

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

Всем здорова! в общем изучая oracle я начал делать тестовую прогу на Delphi! хочу произвести поиск через Oraquery вот код:

procedure TForm2.BitBtn2Click(Sender: TObject);
VAR b,a : string;
begin
b:='where';
a:='and';
Form2.Show;
Form2.BringToFront;
Form2.SetFocus;
form2.Caption:='Поиск по ФИО';
form1.OraQuery1.SQL.Clear;
form1.OraQuery1.SQL.Add('select * from dance');
if Form2.Edit1.Text<>'' then
form1.OraQuery1.SQL.Add(''+b+' name like '''+Form2.Edit1.Text+'%''');
if Form2.Edit2.Text<>'' then
form1.OraQuery1.SQL.Add(''+a+' Clubtip like '''+Form2.Edit2.Text+'%''');
if Form2.Edit3.Text<>'' then
form1.OraQuery1.SQL.Add(''+a+' Music like '''+Form2.Edit3.Text+'%''');
form1.OraQuery1.Open;
end;

она находит запись только по столбцу "Name"

помогите пожалуйста в чем ошибка!!

@rdama · 31.10.2011, 08:25

хочу произвести поиск через Oraquery

Ну это хорошо.
Вот только не совсем понятно по каким параметрам вы хотите искать.
Точнее у вас не получается искать по одному из указанных параметров, по 2 или более параметрам?
Блин и вот ну хоть убей я не вижу в твоем коде оператор WHERE.

@Mirhat89 · 31.10.2011, 08:33 **[ТС]**

b:='where'
я ставлю её перед 'name' вот типа так '+b+'

@rdama · 31.10.2011, 09:31

Точно не заметил. Извиняюсь.
Ты знаешь я вот для человека писал процедуру.
Может и тебе поможет.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
    flds : array[1..3] of string=('Fullname','Course', 'Sex');
    pars : array of string;
 
function GetSQLText(par1,par2, par3:string):string;
var SQL:TStrings;
    i, j : integer;
begin
  try
    SetLength(pars,4);
    pars[1] := par1;
    pars[2] := par2;
    pars[3] := par3;
    SQL:=TStringList.Create;
    SQL.Clear;
    j := 0;
    SQL.Add('SELECT *, strftime(' + QuotedStr('%Y') + ',Birthday) as year FROM _uchenik_ ');
    for i := 1 to Length(flds) do
    begin
      if Length(trim(pars[i])) > 0 then
      begin
        if j = 0 then SQL.Add('WHERE')
        else SQL.Add('AND');
        SQL.Add(flds[i] + ' = ' + QuotedStr(pars[i]));
        j := 1;
      end;
    end;
    SQL.SaveToFile('sql.txt');
    Result:=SQL.Text;
  finally
    SQL.Free;
  end;
end;

Смысл процедуры в том, что можно искать по неогранниченному количеству параметров.
Надор полей по которым будет производиться поиск находится в массиве flds.
А набор параметров в массиве pars.
Между 2 массивами четкое соответствие. Т.е. flds[i] = pars[i].
Пары поле - значение.

@Mirhat89 · 31.10.2011, 10:23 **[ТС]**

спасибо друг! разобрался со своим кодом

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@Mirhat89 9 / 9 / 1 Регистрация: 12.10.2011 Сообщений: 148

	Oraquery Поиск 31.10.2011, 08:17. Показов 1373. Ответов 4 Метки нет (Все метки) Всем здорова! в общем изучая oracle я начал делать тестовую прогу на Delphi! хочу произвести поиск через Oraquery вот код: procedure TForm2.BitBtn2Click(Sender: TObject); VAR b,a : string; begin b:='where'; a:='and'; Form2.Show; Form2.BringToFront; Form2.SetFocus; form2.Caption:='Поиск по ФИО'; form1.OraQuery1.SQL.Clear; form1.OraQuery1.SQL.Add('select * from dance'); if Form2.Edit1.Text<>'' then form1.OraQuery1.SQL.Add(''+b+' name like '''+Form2.Edit1.Text+'%'''); if Form2.Edit2.Text<>'' then form1.OraQuery1.SQL.Add(''+a+' Clubtip like '''+Form2.Edit2.Text+'%'''); if Form2.Edit3.Text<>'' then form1.OraQuery1.SQL.Add(''+a+' Music like '''+Form2.Edit3.Text+'%'''); form1.OraQuery1.Open; end; она находит запись только по столбцу "Name" помогите пожалуйста в чем ошибка!! 0

@Mirhat89 9 / 9 / 1 Регистрация: 12.10.2011 Сообщений: 148
	31.10.2011, 08:33 [ТС]
	b:='where' я ставлю её перед 'name' вот типа так '+b+' 0

@Mirhat89 9 / 9 / 1 Регистрация: 12.10.2011 Сообщений: 148
	31.10.2011, 10:23 [ТС]
	спасибо друг! разобрался со своим кодом 0