Actualités | Audio/Vidéo | Evènements | DIY | Domotique | Informatique | Maison | Mobile | Sécurité

Tutorial pour sauver des données Homeseer dans une base de données Mysql - Création d'un script spécifique

Envoyer Imprimer PDF
Note des utilisateurs: / 15
MauvaisTrès bien 
Index de l'article
Tutorial pour sauver des données Homeseer dans une base de données Mysql
Installation de Mysql
Création de la base de données
Test avec le framework Domotics
Création d'un script spécifique
En conclusion
Toutes les pages

Création d'un script spécifique

Pour sauver spécifiquement des données d'un module, il suffit de créer un script de ce style. Le script fait juste une requête SQL de type INSERT. Cette commande va ajouter la valeur du device A1 dans la table events de la base de données que nous venons de créer. Vous pouvez bien sur modifier ce script pour traiter vos codes de module...

Créez le script test.vbs dans le répertoire HOMESEER/scripts/modules/

#include ..\lib\framework_domotics.vbs

Sub main
'Sub saveDeviceChangeWithAuthor(astrDevice,astrAuthor) Dim aobjConn                ' Connection to the database Dim astrConnectionString        ' Connection String Dim astrDatabase            ' Path + File to find the database Dim astrSQL                ' Query to be executed Dim aevtLast                ' Last event trigered Dim acodeLast                ' Last code changed Dim aDateTime                ' Current Date and Time Dim astrDevice
astrDevice="A1"
Set aobjConn = CreateObject("ADODB.Connection") aobjConn.Open(G_CONNECTION_STRING) aDateTime = Now()
astrSQL = "INSERT INTO EVENTS (STRING, DEVICE, STATUS, VALUE, DATE, NOTES) VALUES (" astrSQL = astrSQL & "'" & replace(hs.DeviceString(aStrDevice),"'","''") & "'," astrSQL = astrSQL & "'" & astrDevice & "'," astrSQL = astrSQL & "'" & hs.DeviceStatus(astrDevice) & "',"       astrSQL = astrSQL &  hs.DeviceValue(astrDevice) & "," astrSQL = astrSQL & "'" & Year(aDateTime) &"/"& Month(aDateTime) &"/"& Day(aDateTime) astrSQL = astrSQL & " " & Hour(aDateTime) &":"& Minute(aDateTime) &":"& Second(aDateTime) & "'," astrSQL = astrSQL & "'" & replace(astrAuthor,"'","''") & "')"
aobjConn.Execute astrSQL aobjConn.Close Set aobjConn = Nothing
End Sub

 

Créez ensuite un évènement Homeseer. Et utilisez le fichier test.vbs.

Enfin, ouvrez votre client MySQL et vérifiez que les données sont bien sauvées dans la table EVENTS. Utilisez pour celà la commande SQL " select device, date from events;"

 



Mise à jour le Mercredi, 15 Août 2012 20:03  

Ajouter un Commentaire


Code de sécurité
Rafraîchir

Recherche

Les Flux RSS de TLD
Instagram

Produits Partenaires

GCE Electronics est partenaire de Touteladomotique.com RFXCOM.com est partenaire de Touteladomotique.com



Liens Utiles

Boutiques Partenaires

Liens Utiles

Un don pour TLD ?

Pourquoi faire un don ?

Publicité

Espaces publicitaires à louer
Contactez-nous

Connexion