Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How can I add table(s) to the form DE at runtime
Message
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00955199
Message ID:
00955219
Views:
19
Soykan If You have a DBC in the current folder for application the application ALWAYS will open that data :o((( no metter what path You set, no metter whet is the path to DB in DE.

>Hi Again Boris,
>i've and using below codes at my start_prep.prg its "set main" file in my project. it first controls the lokal pathcont.dbf then works what is situation. as your method when i delete or rename that data03 and data folder (data folder has a some free tables) from client PC its automatically runs SelectFolder form and continioue with which is selected and saved path via set path ... but i've never tried with subfolders that's way i asked this question if its still solve my need i am on the right way :)
>
>
>LcDBC='data1.dbc'
>
>Do DataPathControl
>Do Start
>**********************************************************************************************************************
>Procedure DataPathControl
>**********************************************************************************************************************
>Local lnYol, lcYol
>
>Use pathcont IN 0
>If !PathControl()
>	Do ProgEnd
>	Quit
>	Return
>Endif
>lnYol = Rat("\", Alltrim(pathcont.datadir))
>lcYol = Alltrim(pathcont.datadir) + "," + Left(Alltrim(pathcont.datadir), lnYol - 1)
>
>lnPrmYol = Rat("\", Alltrim(pathcont.paramdir))
>lcPrmYol = Alltrim(pathcont.paramdir) + "," + Left(Alltrim(pathcont.paramdir), lnYol - 1)
>
>Set Path To (lcYol) + ";" + (lcPrmYol)
>Return
>
>***********************************************************************************************Procedure PathControl
>***********************************************************************************************Local llDon, lcYol
>llDon = .T.
>If File(Justpath(Sys(16,1)) + "\" + LcDBC)
>	Replace datadir With Justpath(Sys(16,1)) In pathcont
>Endif
>lcYol=Alltrim(pathcont.datadir)
>If !File(lcYol+ "\" + LcDBC)
>	Messagebox("DATA Folder or PARAMETERS Folder Not Selected!",16,"Error !")
>	Do Form Form\SelectFolder
>	lcYol = Alltrim(pathcont.datadir)
>	If !File(lcYol+ "\" + LcDBC)
>		llDon = .F.
>	Endif
>Endif
>Return llDon
>************************************************
>
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform