Поиск по диапазону.

[D.O.G]

Есть sql запрос

SELECT * FROM zamena where datas>=(d1) and datas<=(d2)

хранится в процедуре mysql. Как передать перемные d1,d2 из формы delphi?

[new player]

SELECT * FROM zamena where datas>='''+d1+''' and datas<='''+d2+''''

или вместо d1, к примеру, Edit1.Text

[D.O.G]

Пошел другим путем. Сделал поиск по dbgrid

procedure TForm6.Button1Click(Sender: TObject);
 var
 d1,d2:string;
begin
 d1:=Edit1.Text;
 d2:=Edit2.Text;
 ClientDataSet1.Filtered:=false;
 ClientDataSet1.Filter:='cabin>=' + d1 + 'cabin<=' + d2;
 ClientDataSet1.Filtered:=True;

end;

в общем нужно сделать поиск по диапозону. Помогите плизз.

[new player]

Зачем поиск?

[D.O.G]

в общем надо найти данные в определенном диапазоне. полученные дынные будут формироваться и отправлятся в форму fastreport'а

[Dimasw]

При создании процедуры:

CREATE PROCEDURE `MyProcedure`(in D1 int,D2 int)
begin
SELECT * FROM zamena where datas>=(d1) and datas<=(d2)
end;

Я использую компоненты MyDAC, там есть компонент MyStoredProc, которому назначаю свойство StoredProcName=MyProcedure,
после чего могу назначать значения параметрам
MyStoredProc1.Params[0].value:=10
или
MyStoredProc1.Parambyname('d1').ass tring:='бла-бла'
или
MyStoredProc1.Parambyname('d1').asi nteger:=10

В ADO подозреваю, что тоже самое. Но с ADO я лично толком не работал, т.к. глюков много с MySQL. Сразу психанул и поставил MyDAC

[D.O.G]

Помогите написать обработчик. понять не могу. вот то что попробывал

 d1:=StrToInt(Edit1.Text);
 d2:=StrToInt(Edit2.Text);
 ClientDataSet1.Params.Clear;
 SQLDataSet1.Close;
 ClientDataSet1.Close;
 SQLStoredProc1.Params[0].Value:=d1;
 SQLStoredProc1.Params[1].Value:=d2;
 SQLStoredProc1.ExecProc;
 ClientDataSet1.Open;
 SQLDataSet1.Open;

Доброе утро. сделал обработчик событий

procedure TForm6.Button1Click(Sender: TObject);
var
 d1, d2:Integer;
begin
 d1:=StrToInt(Edit1.Text);
 d2:=StrToInt(Edit2.Text);
 ClientDataSet1.Close;
 SQLDataSet1.Close;
 MyStoredProc1.Prepare;
 MyStoredProc1.Params[0].AsInteger:=d1;
 MyStoredProc1.Params[1].AsInteger:=d2;
 MyStoredProc1.ExecProc;
 SQLDataSet1.Open;
 ClientDataSet1.Open;

ни каких действий не происходит по нажатию кнопки. помогите разобраться.

[artemavd]

Напишу пример:

procedure TForm6.Button1Click(Sender: TObject);
var
 d1, d2:Integer;
begin
 FIBQuery1.Close;
 FIBQuery1.SQLs.SelectSQL.Text:='select * from zamena where (datas >=:d1) and (datas<=:d2)';
 FIBQuery1.Open;
 FIBQuery1.ParamByName('d1').Value:=StrToInt(Edit1.Text);
 FIBQuery1.ParamByName('d2').Value:=StrToInt(Edit2.Text);
end;

Точно не помню, но как-то так. Смысл в том, что сначала нужно записать синтаксически правильно запрос и указать откуда будут браться значения в качестве параметром, а потом указать что и откуда будут в эти параметры передаваться. Мой код может быть неверн, т.к. писал на память. Камнями не кидать!

[Stilet]

хранится в процедуре mysql.

Функции может? Ты не ошибся?

[D.O.G]

сделал вот так:

SQLDataSet1.Close;
 SQLDataSet1.CommandText:='';
 SQLDataSet1.CommandText:='SELECT * FROM zamena WHERE cabin>=(d1) and cabin<=(d2)';
 SQLDataSet1.Open;
 SQLDataSet1.ParamByName('d1').Value:=StrToInt(Edit1.Text);
 SQLDataSet1.ParamByName('d2').Value:=StrToInt(Edit2.Text);

выдает ошибку

unknown column 'd1' in 'where clause'

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

Функции может? Ты не ошибся?

нет не ошибаюсь в процедуре