PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

Inicio | Mensagens recentes | Conecte-se... |  | Português FR
Inicio → WINDEV 25 → WD - Como se conectar e executar um gatilho de uma base de dados do Hyper Server Client arquivo?
WD - Como se conectar e executar um gatilho de uma base de dados do Hyper Server Client arquivo?
Iniciado por BOLLER ADRIANO, jun., 29 2016 11:37 PM - Sem resposta
#1
Membro registado
3.659 mensagems
Popularité : +175 (223 votes)
Publicado em junho, 29 2016 - 11:37 PM
Você deve, obviamente, primeiro criar o procedimento armazenado no l`analyse em seguida, gerar este procedimento de análise para enviar para o servidor. Meu procedimento ca s`appelle ProcedureTEST. Ele faz qu`une traçar para l`exemple.

Eis o conteúdo deste procedimento

//*******************************************************//

Procedure ProcedureTEST()
Trace("Test")
RENVOYER Vrai

//*******************************************************//

Voici Maintenant mon code WinDev

//*******************************************************//

//Création fichier
SI PAS HCreation(Cedex) ALORS
Erreur(HErreurInfo())
SINON
Info("Fichier cree")
FIN

//Changement de répertoire du fichier
SI PAS HChangeRep(Cedex,".FRANCE") ALORS Erreur(HErreurInfo())

//Création Trigger sur fichier Hyper File Client Serveur
//CNX_TEST est ma connexion HF CS dans l`analyse
SI PAS HDécritTriggerServeur("CNX_TEST", "TriggerTEST", "ProcedureTEST", hTriggerAprs, "Cedex", "HAjoute, HModifie") ALORS Erreur(HErreurInfo())

//Ajout d`enregistrements
Cedex.CodePostal = "26000"
Cedex.Ville = "VALENCE"
HAjoute(Cedex)

Cedex.CodePostal = "34000"
Cedex.Ville = "MONTPELLIER"
HAjoute(Cedex)

Cedex.CodePostal = "64000"
Cedex.Ville = "PAU"
HAjoute(Cedex)

//*******************************************************//


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
→ Voltar para WINDEV 25