Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.016 c