Помогите с запросом

← →
din (2004-05-17 12:46) [0]

Добрый день Помогите пожалуйста с запросом. Есть такая процедурка

procedure Tpoi.Button1Click(Sender: TObject);
var pp,stroka1:string;

begin
pp:= poi.Edpoi.Text;

if poi.Edpoi.Text<>"" then
begin
dni_mod.find.SQL.Clear;
stroka1:="select f,i,o,dr from spis_tab where f like :pp";
dni_mod.find.SQL.Add(stroka1);
dni_mod.find.Parameters.Parambyname(pp);
dni_mod.find.Active:=true;
end;
end;
так вот запрос в гриде на форме не отображается или не выполняется (передача через параметр pp и поиск записи в бд)

← →
MIKE kouzmine © (2004-05-17 12:53) [1]

dni_mod.find.SQL.Clear;
dni_mod.find.SQL.Add("select f,i,o,dr from spis_tab where f like " + quotedstr("%:pp%"));
dni_mod.find.Parambyname("pp").asstring = "ПОПА";
dni_mod.find.Prepare;
dni_mod.find.Open;
end;
Может так?

← →
Johnmen © (2004-05-17 12:57) [2]

>MIKE kouzmine © (17.05.04 12:53) [1]

Обрамлять кавычками не надо. И = "%ПОПА%";

← →
MIKE kouzmine © (2004-05-17 12:59) [3]

Johnmen © (17.05.04 12:57) [2] Так я и говорю - ПОПА

← →
Stas © (2004-05-17 13:16) [4]

Установи тип параметра ftString, а не ftFixedChar либо передавай размер строки.

Тока интересно, а на фига параметр, если ты Sql генерируешь динамически ?
Можно прямо
"select f,i,o,dr from spis_tab where f like " +#39+pp+#39;

ADOCommand.CommandText := "select f,i,o,dr from spis_tab where f like :pp";
ADOCommand.CommandType := cmdText;
ADOCommand.Parameters.ParamByName("pp").Value := "%ПОПА%"
ADOCommand.Execute;

Помогите с запросом Найти похожие ветки