Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Бази";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

Вниз

Доброго времени суток, потребую раді, плз Знайти схожі гілки


DeadMoroz   (2001-12-03 15:21) [0]

Для пошуку в таблиці використовую стандартну проц:

procedure TForm1.Edit1Change (Sender: TObject);
починати
if Edit1.Text <> "" then
починати
Table1.Locate ( "NUM", Edit1.Text, loCaseInsensitive, loPartialKey]);
end;
end;

але, в даному випадку поле "NUM" типу Int ... Коротше, курсор переповзає на запис тільки при повному збігу Text зі значенням поля, тобто як би ніякого loPartialKey і немає, а дуже хотілося б. Перепробував всі інші методи (і Pos теж) ... в результаті прийшов сюди.

Цей порадить, хто чим може, заздалегідь Дякую :-).



Deniz   (2001-12-03 15:50) [1]

procedure TForm1.Edit1Change (Sender: TObject); var i: integer; begin if Edit1.Text <> "" then begin TmpQuery.SQL.Clear; TmpQuery.SQL.Add ( "select num from table1 where cast (num as varchar (20)) like: aNum "); TmpQuery.Prepare; TmpQuery.Params [0] .asString: = Edit1.Text; TmpQuery.Open; if TmpQuery.IsEmpty then begin TmpQuery.Close; ShowMessage ( "Not found."); Exit; end else begin i: = TmpQuery.Fields [0] .asInteger; TmpQuery.Close; Table1.Locate ( "NUM", i, []); end; end; end;
TmpQuery - тимчасова Query
Удачи.



DeadMoroz   (2001-12-03 16:09) [2]

Справа в тому, що мій Table1 є Майстром і все одно курсор потрібно переміщати в його DataSet "e .... хоча спробую TmpQuery зав'язати на той самий DataSet1 ...



DeadMoroz   (2001-12-04 09:16) [3]

Спробував ..... працює, але моторошний тормозняк ...

Є ще поради?



сторінки: 1 вся гілка

Форум: "Бази";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.81 MB
Час: 0.023 c
1-22082
Chak
2001-12-19 10:07
2002.01.08
Як правильно передати параметр функції в DLL-ке.


1-22175
voyager
2001-12-20 16:06
2002.01.08
про Hint е


14-22317
Tosov
2001-10-31 23:58
2002.01.08
Delphi 6


4-22495
ридати
2001-11-05 09:57
2002.01.08
основи WinAPI


1-22022
переможець
2001-12-18 08:05
2002.01.08
Потрібен Label для відображення формул





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в&#39;єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська