Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.08;
Скачать: CL | DM;

Вниз

А как сделать Locate по полю типа GUID?   Найти похожие ветки 

 
Ega23 ©   (2005-11-14 16:55) [0]

сабж.


 
ANB ©   (2005-11-14 17:03) [1]

В одаке (оракл) можно. А что - не работает ?


 
Ega23 ©   (2005-11-14 17:11) [2]


> В одаке (оракл) можно. А что - не работает ?


Не, ты не понял. TdataSet.Locate. У меня ключевое поле - GUID.


procedure RefreshData;
var
dt:TDateTime;
begin
 With aqEventProto do
  begin
   dt:=FieldByName("DatIn").AsDateTime;
   DisableControls;
   Close;
   Open;
   Locate("DatIn", Dt, []);
   EnableControls;
  end;
end;


Сейчас спозиционировался по временному полю. Хотя это не есть правильно, ключевое поле - GUID.


 
stone ©   (2005-11-14 17:56) [3]

Почему нет?

procedure TForm1.Button1Click(Sender: TObject);
var
 MyGUID: Variant;
begin
 with ADOTable1 do
 begin
   MyGUID := FieldByName("MyID").Value;
   Close;
   Open;
   Locate("MyID", MyGUID, []);
 end;
end;


 
stone ©   (2005-11-14 17:59) [4]

таблица

CREATE TABLE [TestGUID] (
[myID] [uniqueidentifier] NOT NULL ,
CONSTRAINT [PK_TestGUID] PRIMARY KEY  CLUSTERED
(
 [myID]
)  ON [PRIMARY]
) ON [PRIMARY]
GO


 
Ega23 ©   (2005-11-14 18:17) [5]


> var
>  MyGUID: Variant;


Тьфу ты, блин!
Не подумал.
Спасибо!



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

Текущий архив: 2006.01.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.029 c
14-1134407867
Ксардас
2005-12-12 20:17
2006.01.08
Не повезло Англии...


2-1135092196
fast2
2005-12-20 18:23
2006.01.08
как убить процесс?


2-1134979390
AMD Andron64
2005-12-19 11:03
2006.01.08
Rar


1-1133936384
KvORubin
2005-12-07 09:19
2006.01.08
Как в МЕМО1 в первой строке


2-1134827315
TStas
2005-12-17 16:48
2006.01.08
Как перевести TColor в RGB