Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Remote view question
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Divers
Thread ID:
00456273
Message ID:
00456372
Vues:
24
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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform