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

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

← →
progger   (2003-08-14 10:48) [0]

Ув. знатоки помогите с поиском в таблице, где одно из полей типа Memo. Как правильно написать команду поиска в такой таблице, если нужно искать по двум полям (доп. Area и Discript). И еще такой вопрос: когда я пишу table1.locate("Area",123,[loPartialKey]), то мне выдает, что loPartialKey - неизвестный идентификатор. Как исправить положение? Заранее спасибо.

---

← →
Fuelfire   (2003-08-14 10:50) [1]

>когда я пишу table1.locate("Area",123,[loPartialKey]), то мне выдает, что loPartialKey - неизвестный идентификатор.
Используй модуль DB в uses

---

← →
Fuelfire   (2003-08-14 10:52) [2]

Read The F***ing Manual!!!
with CustTable do
Locate("Company;Contact;Phone", VarArrayOf(["Sight Diver", "P", "408-431-1000"]), [loPartialKey]);

---

← →
DenK_vrtz ©   (2003-08-14 10:56) [3]

исользовать для поиска SQL запрос

---

← →
progger   (2003-08-14 11:01) [4]

Спасибо. Но когда я указываю в VarArrayOf, допустим "Sight Diver", то у меня выдает Constant is not correct type Sight Diver. У меня же одно из полей (в д. случае Company) имеет тип Memo...

---

← →
progger   (2003-08-14 11:01) [5]

Спасибо. Но когда я указываю в VarArrayOf, допустим "Sight Diver", то у меня выдает Constant is not correct type Sight Diver. У меня же одно из полей (в д. случае Company) имеет тип Memo...

---

← →
DenK_vrtz ©   (2003-08-14 11:13) [6]

progger, используй SQL запрос

---

← →
Desdechado ©   (2003-08-14 11:16) [7]

по мемо-полю поиск возможен только ручками, а не через Locate
ручками - это: считать в строку, сделать в ней Pos

---

← →
DenK_vrtz ©   (2003-08-14 11:20) [8]

progger,

select * from таблица
where поле не меmo = значение
and поле memo LIKE "%значение искомой подстроки%"

---

← →
Fuelfire   (2003-08-14 11:23) [9]

Может пригодится:

Function TForm1.FindStr( Value : String; var List : TLists) : Boolean ;
Begin
List.Clear;
tbl.First;
While NOT tbl.EOF Do Begin
IF Pos(UpperCase(Value) , UpperCase(tbl.FieldByName(""xxx"").AsString)) > 0 Then
List.AddItem(tbl.FieldByName(""ID"").AsInteger);
tbl.Next;
End;
Result:=List.Count > 0;
End;

---

← →
Fuelfire   (2003-08-14 11:24) [10]

Либо через запрос...
См. DenK_vrtz ©

---

← →
VAleksey ©   (2003-08-14 11:26) [11]

> 2 DenK_vrtz ©

При всем уважении Ваш подход будет работать не всегда. Для более подробной справки см. LocalSQL.hlp.

---

← →
progger   (2003-08-14 12:00) [12]

Спасибо. Надеюсь получиться

---

← →
DenK_vrtz ©   (2003-08-14 12:54) [13]

VAleksey ©, для моего общего развития и дабы не мониторить LocalSQL.hlp можно привести ситуацию когда это не будет работать?

С уважением

---

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

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



Память: 0.47 MB
Время: 0.017 c