Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Increment time() by 1 minute
Message
From
10/06/2005 23:05:55
 
 
To
10/06/2005 20:02:34
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 8 SP1
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01020951
Message ID:
01022399
Views:
12
>>Check Dragan's sample for example and try it a few times.

I thought that was Dragan's sample I was working with???

>>Also try to SQL select with equality operator.

I just did and yes... againsts SQL Server it is buggy. And... it was buggy against free tables in VFP.
CLOSE DATABASES ALL
SET SAFETY OFF 
CREATE TABLE Test1 (dt t)
=RAND(234)
FOR X = 1 TO 1000
  INSERT INTO Test1 (dt) VALUES (DATETIME()+ROUND((RAND()*10000),0))
ENDFOR
COPY TO Test2
SCAN
  m.tDate = Test1.dt
  REPLACE Test1.dt WITH m.tDate
  m.tDate = Test1.dt
  SELECT * FROM Test2 WHERE dt=tDate INTO CURSOR Temp
  IF RECCOUNT()#1
    USE 
    SELECT Test2
    LOCATE FOR TTOC(Test1.dt)=TTOC(Test2.dt)
    ? FOUND(),Test1.dt,Test2.dt,Test1.dt=Test2.dt
    CANCEL
  ENDIF
  USE 
  SELECT Test1
ENDSCAN
RETURN
It was interesting to note that Test1.dt=Test2.dt does return .T. even though the select fails to locate the matching record.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform