Oh! Mike,
that maybe your VFP run quickly, please add line:
RUN NET TIME \\GJS >C:\TEMP\CURRTIME.TXT
=INKEY(1, "H") &&Slow VFP down so windows can make the file first
MODIFY FILE C:\TEMP\CURRTIME.TXT
Thuvan
In all most DOS-version, the symbol ">" on dos-command line send result to text-file.
My computer with Windows-XP, VFP7; and this function (command line) is working normaly.
May be you explain your code that give wrong result?
Thanks
ThuVan
I just have checked this function in EXE file.
1) The empty file Result.TXT might occur when wrong server name (wrong computer name).
2) Need a little corect:
ServerTime= CTOT(STRTRAN(SUBSTR(cServerTime,AT("is",cServerTime)+3,18),CHR(13),""))
to delete chr(13) on line 1 from Result.TXT
ThuVan
this function to help you:
Time1= Get_Server_Time("192.168.1.33")
?Time1
**************************************************
* Get server time:
* Server name may be Name of any computer on LAN
* or IP of any computer on LAN ...
**************************************************
FUNCTION...
My problem consist in that: I cann't read 16-bit data text from access table (in MDB file). This text automatical converted to UTF8 (when I do command: select * from Mytable or Open-recordset ) and I cann't modify text in unicode format (16bit), after that update new-value revert to table! Can...
Tamar !
I am read this article, but this code do not work on VFP-7.0 and ADO, this code for VFP 9.0 and SQL-Serve:
LOCAL oCA as CursorAdapter
oCA = CREATEOBJECT("CursorAdapter")
oCA.ADOCodePage = 65000
oCA.Alias = "TSqlQUery"
oCA.DataSourceType = "ADO"
oCA.DataSource = oRS
...
TEXT TO lcSQL...
? strtran(o_value, chr(0), "")
dosn't help, because o_value - 8-bit format,
C_name - 16 bit-format. I need read 16-bit format from C_name (text is in a 16-bit format vietnamese language)
Can you help me, Mike ? That realy very difficult!!!
Thanks
Thu Van
I have table customer in access file MyDATA.MDB , that have column C_Name in unicode form (2byte-font). I need read original data from this column. Any one have me?
Thanks
PS: The folow-code dosn't help:
strConn = "DRIVER=Microsoft Access Driver (*.mdb);" ;
+"ADOCodePage=65001;" ...
(Assume the relation expr. is Code)
In the Parent alias:
SET SKIP TO (chindren alias)
GO RECN()
m.Code= Code
COUNT TO NumberOfRec WHILE chindren.Code = m.Code
(that ~ move to next record in Parent alias)
My stand along EXE file on VFP6.0 run on custumer computer (not from VFP6.EXE) and standard tool bar is displayed on screen. How to hide it programatically?
Please have me.
Thanks
Try:
push key clear
Select ... Into Cursor Creport
select creport
report form rptForm to printer Prompt preview
pop key
to disable ON KEY LABEL RIGHTMOUSE
ThuVan
I'm sorry, You are all right:
The table STAFF need have field GRP:
SELECT DISTINCT Client.sysref, Client.Surname,
Client.FirstName, Client.GRP ;
INTO TABLE STAFF ;
FROM CLIENT ;
WHERE CLIENT.GRP = 1 ;
ORDER BY 1
then program work right
ThuVan
wadesnj,
if You SET TALK OFF then the program runs more quickly !
SET TALK ON take 8 secconds of 10 secconds in total !
You may write:
WAIT WINDOWS "Please wait for ..." nowait
&_COMM
WAIT CLEAR
...
Good luck
ThuVan
Wadesnj,
You can also use the following construct:
_COMM = "REPLACE FIELDS "
FOR x=32 to 242
IF x <> 33 AND x <> 193 && Do not clear field 33 or 193
If Type(FIELD(x))="C"
_COMM= _COMM + FIELD(x)+" WITH [],"
Endif
If...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.