Скачать: CL | DM;

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

← →
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 либо передавай размер строки.

---

← →
Stas ©   (2004-05-17 13:20) [5]

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

---

← →
Соловьев ©   (2004-05-17 13:30) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c