Главная страница
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
1-1133872723
Некто Аполло
2005-12-06 15:38
2006.01.08
Version Info для DLL


1-1133964987
MetalFan
2005-12-07 17:16
2006.01.08
функция, обратная format


4-1131079994
msgipss
2005-11-04 07:53
2006.01.08
Функция NtQuerySystemInformation - разве на win2000 не работает ?


14-1134270358
Думкин(_врем)
2005-12-11 06:05
2006.01.08
МВо, с Днем рождения!


2-1135085690
sanich
2005-12-20 16:34
2006.01.08
Сортировка в DbGridEh