Головна сторінка
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.56 MB
Час: 0.037 c
1-22109
avr555
2001-12-19 17:17
2002.01.08
ComboBox в Grid


1-22067
DNT
2001-12-15 16:20
2002.01.08
Dialog & dll


1-22057
AlexeyV
2001-12-19 03:34
2002.01.08
Як викликати діалог


14-22347
roman001
2001-11-06 18:09
2002.01.08
Хостинг


1-22015
мисливець
2001-12-17 13:17
2002.01.08
Картинку на принтер





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