Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Remote view question
Message
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Miscellaneous
Thread ID:
00456273
Message ID:
00456372
Views:
22
The following does the trick.
* Program: ModiView.prg
* Author: George Tasker
* Date: December 22, 2000 - 12:19 PM
* Purpose: Updates a view

LPARAMETER tcView

LOCAL oShell
oShell = CREATEOBJECT('WScript.Shell')
oShell.Run('modiview.vbs')
MODIFY VIEW (tcview) 

* ======== Modiview.vbs =========

Dim oShell
Set oShell = CreateObject("WScript.Shell")
' Call Sleep to wait 1/2 second
WScript.Sleep(500)
' Use SendKeys to send Enter
oShell.SendKeys("~")
WScript.Sleep(200)
' Remove all fields
oShell.SendKeys("l")
WScript.Sleep(200)
' Restore all fields
oShell.SendKeys("d")
WScript.Sleep(200)
oShell.AppActivate("Microsoft Visual FoxPro")
' Open the menu
oShell.SendKeys("%")
WScript.Sleep(200)
oShell.SendKeys("F")
WScript.Sleep(200)
' Close the designer
oShell.SendKeys("C")
WScript.Sleep(200)
' Respond Yes to the changes
oShell.SendKeys("~")
Now all I have to do is write a short program with a loop to go through the databases passing it the view.

Thanks to all for their suggestions.
George

Ubi caritas et amor, deus ibi est
Previous
Reply
Map
View

Click here to load this message in the networking platform