Главная страница
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.018 c
14-1134372111
Pave/\
2005-12-12 10:21
2006.01.08
Citrix


2-1135102926
Lenik
2005-12-20 21:22
2006.01.08
Как сделать недоступным элемент combobox а


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


10-1111013938
val_5
2005-03-17 01:58
2006.01.08
Как работать с TwebConnection ?


2-1135107674
Soff
2005-12-20 22:41
2006.01.08
Какой это Класс исключений?