Помогите с поиском

← →
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]

← →
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]

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

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

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

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

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

С уважением

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