Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Timestamps (binary) and SQL-Server/ADO-Clientside but using queries/Delphi

Posted on 2003-12-05
1
Medium Priority
?
467 Views
Last Modified: 2010-04-03
I'm using SQL-Server 2k and Delphi-ADO/ClientSide Cursors but use queries...

I populate a combobox with all the records.  

I have included a timestamp column in my table.  ( i understand its not for date/time values)

What i need is whenever I select an item from the combobox, to check if the time stamp changed from the last time it was read, and if that's true then to remove and reinsert the value inside the combobox... At the moment i'm doing it like this:

x := Combo.ItemIndex;

if Combo.Text <> Query.FieldByName('ColumnName').AsString then
   begin
      Combo.Items.Delete(x);
      Combo.Items.Insert(x,Query.FieldByName('ColumnName').AsString);
      Combo.ItemIndex := x;
   end;

But i need to use TimeStamps...

Any ideas appreciated...

0
Comment
Question by:nick-p
1 Comment
 
LVL 22

Accepted Solution

by:
Mohammed Nasman earned 1500 total points
ID: 9891461
Hello

  I found this function in borland newsgroups that will allow you to read the TimeStamp field as string,

type
  SQLTimestamp = array [0..7] of Byte;
  PSQLTimestamp = ^SQLTimestamp;

function TSToStr(const vTS: Variant): string;
  var
    p: PSQLTimestamp;
begin
  p := VarArrayLock(vTS);
  try
    Result := Format('0x%.2x%.2x%.2x%.2x%.2x%.2x%.2x%.2x',
    [p^[0], p^[1], p^[2], p^[3], p^[4], p^[5], p^[6], p^[7]]);
  finally
     VarArrayUnlock(vTS);
  end;
end;

and you can easily read the TimeStamp field and convert it string, that you compare it or doing whatever you want

procedure TForm1.Button1Click(Sender: TObject);
var
  V : Variant;
begin
  V := AdoTable1['MyTimeStamp'];
  ShowMessage(TSToStr(V));
end;

HTH

Regards,
Mohammed
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
Video by: ITPro.TV
In this episode Don builds upon the troubleshooting techniques by demonstrating how to properly monitor a vSphere deployment to detect problems before they occur. He begins the show using tools found within the vSphere suite as ends the show demonst…
this video summaries big data hadoop online training demo (http://onlineitguru.com/big-data-hadoop-online-training-placement.html) , and covers basics in big data hadoop .
Suggested Courses

927 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question