Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Local servers
Message
De
08/05/2006 09:24:27
 
 
À
08/05/2006 09:02:07
Neil Mc Donald
Cencom Systems P/L
The Sun, Australie
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP
Network:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01119977
Message ID:
01120008
Vues:
20
hi,
i mean you want me to write , from where i must get excl sheet from local server(name server) , and wher i must sent it after convert....
>Hi,
>If you don't know how are we supposed to know.
>
>>hi,
>>thank you for reply, sorry, i don't understand ...
>>the source and target machines should be?
>>
>>
>>
>>
>>>Hi,
>>>To make things easier for us, can you specify what you think the source and target machines should be.
>>>
>>>>hi all,
>>>>
>>>>at my pc it works but when i run it as project.exe ihave this problems.
>>>>
>>>>i try to make many operations via this code below, and move from local server to another ,it open getfile('xls') many times at the same directory not convert,
>>>>when i try to run anther form from my main menue, i got error message invalid path or file name
>>>>
>>>>
>>>>SET CENTURY on
>>>>SET DELETED on
>>>>SET EXCLUSIVE off
>>>>SET safety off
>>>>
>>>>SELECT 2
>>>>USE main2
>>>>GO TOP IN main2
>>>>IF NOT EOF("main2")
>>>>
>>>>    gcDelimName = ALIAS( ) + '.xls'
>>>>    gcPath = [w:\Quality Test 01\mtest\]
>>>>    gcDelimName =  gcPath +   DTOS(file_date) +  ".XLS"
>>>>    lcFile=gcDelimName
>>>>
>>>>    if adir(dummy,lcFile)>0
>>>>        MESSAGEBOX(" file exists")
>>>>    else
>>>>        COPY  TO (gcDelimName) XL5
>>>>    endif
>>>>
>>>>*******
>>>>
>>>>SET DEFAULT TO [z:\smd\INFORMATIONTECHNOLOGYFOLDER\Programs\New Folder\]
>>>>DROP table main1
>>>>insert INTO mstr ;
>>>>                 SELECT * FROM main2 WHERE file_date NOT IN (SELECT file_date FROM mstr)
>>>>DROP table main2
>>>>endif
>>>>
>>>>******
>>>>
>>>>SET DEFAULT TO [w:\Quality Test 01\Source Data]
>>>>GETFILE('xls')
>>>>thisform.text9.Value=GETFILE('xls')
>>>>
>>>>
>>>>CREATE TABLE [\\Cctfil01\HRD-SpData\smd\INFORMATIONTECHNOLOGYFOLDER\Programs\New Folder\main1.dbf];
>>>>(msisdn n(15),num n(8),date d(8) ,flag n(2) )
>>>>APPEND FROM (thisform.text9.Value) TYPE xl5
>>>>Replace Date  with thisform.text1.value ;
>>>>        flag   with 0 ;
>>>>               num with RecNo() ALL
>>>>
>>>>*********************************************
>>>>
>>>>
>>>>
>>>>CREATE TABLE [\\Cctfil01\HRD-SpData\smd\INFORMATIONTECHNOLOGYFOLDER\Programs\New Folder\main2.dbf];
>>>>(num n(8),survey_num n(2),msisdn n(15),file_date d(8) ,intervdate d(8),status n(2),othersst c(100),con_type c(20) )
>>>>*************************************************
>>>>*****SET DEFAULT to [z:\smd\INFORMATIONTECHNOLOGYFOLDER\Programs\New Folder\]
>>>>SET DEFAULT TO [w:\Quality Test 01\Source Data]
>>>>COPY FILE thisform.text9.Value.xls TO [w:\Quality Test 01\MTEST\(thisform.text9.Value).xls]
>>>>ERASE (thisform.text9.Value).xls
>>>>
>>>>another form at..
>>>>SET DEFAULT to [z:\smd\INFORMATIONTECHNOLOGYFOLDER\Programs\New Folder\]
>>>>
>>>>thanks.
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform