Oraquery Поиск

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

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

Всем здорова! в общем изучая 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

    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 **[ТС]**

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

@Mirhat89 9 / 9 / 1 Регистрация: 12.10.2011 Сообщений: 148
		1
	Oraquery Поиск 31.10.2011, 08:17. Показов 1216. Ответов 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

@rdama 569 / 292 / 12 Регистрация: 28.01.2011 Сообщений: 1,326
	31.10.2011, 08:25	2
	хочу произвести поиск через Oraquery Ну это хорошо. Вот только не совсем понятно по каким параметрам вы хотите искать. Точнее у вас не получается искать по одному из указанных параметров, по 2 или более параметрам? Блин и вот ну хоть убей я не вижу в твоем коде оператор WHERE. 1

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

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

Опции темы