stocker des donnée sur Access avec VBScript de indusoft web studio

Partie du forum pour tout ce qui concerne les automates industriels B&R, Beckhoff, Phoenix Contact etc...
Répondre
hocine
Apprend le binaire
Apprend le binaire
Messages : 7
Enregistré le : 22 juil. 2020, 09:15

stocker des donnée sur Access avec VBScript de indusoft web studio

Message par hocine » 22 juil. 2020, 09:23

Bonjour a tous

je viens de commander à travailler avec un logiciel de supervision Indusoft Web Studio, et j'aimerai faire une sauvegarde automatique des données d'essai dans une base de donnée Microsoft Access, pour cela im faut un programme sur VBScript afin de déclarer la création de ce fichier et enregistrement automatique des données.
merci pour votre aide.

Avatar de l’utilisateur
itasoft
Mi homme - Mi automate
Mi homme - Mi automate
Messages : 4064
Enregistré le : 20 oct. 2015, 10:15
Localisation : Lyon
Contact :

Re: stocker des donnée sur Access avec VBScript de indusoft web studio

Message par itasoft » 22 juil. 2020, 10:28

Slts,
Difficile d’expliquer ici, disons que si tu as Office Access dans l’aide en ligne c’est bien expliqué comment créer une base de données avec des exemples en VB. A moins que quelqu’un as une application de base standard toute prête à te refiler.
(Moi je n'ai que des applications Spécifiques de grandes tailles)
Automaticien privé (de tout)
itasoft@free.fr

hocine
Apprend le binaire
Apprend le binaire
Messages : 7
Enregistré le : 22 juil. 2020, 09:15

Re: stocker des donnée sur Access avec VBScript de indusoft web studio

Message par hocine » 22 juil. 2020, 10:34

merci pour votre repense, le truque c'est que la base de donnée sur Access est prête mais mon problème c'est comment je vais connecter Indusoft a cette base de donnée afin de d'enregistrer les donnée d'essai.

Avatar de l’utilisateur
itasoft
Mi homme - Mi automate
Mi homme - Mi automate
Messages : 4064
Enregistré le : 20 oct. 2015, 10:15
Localisation : Lyon
Contact :

Re: stocker des donnée sur Access avec VBScript de indusoft web studio

Message par itasoft » 22 juil. 2020, 10:43

slts,
la base de données n'est pas sur le même PC que la supervision ??
Automaticien privé (de tout)
itasoft@free.fr

hocine
Apprend le binaire
Apprend le binaire
Messages : 7
Enregistré le : 22 juil. 2020, 09:15

Re: stocker des donnée sur Access avec VBScript de indusoft web studio

Message par hocine » 22 juil. 2020, 10:47

si, je travail sur un réseau directement l’emplacement de la base de donnée est le même que le projet de supervision

hocine
Apprend le binaire
Apprend le binaire
Messages : 7
Enregistré le : 22 juil. 2020, 09:15

Re: stocker des donnée sur Access avec VBScript de indusoft web studio

Message par hocine » 22 juil. 2020, 10:49

Code : Tout sélectionner

'ECRITURE DE LA FICHE PRODUIT
'-------------------------------------------------------------------------------
' Si le test du frein est concluant, un fichier "Fiche Produit.txt" est généré
' Déclenchement : ???????????
' Les fichiers se trouveront dans le répertoire C:\ESSAI\
'-------------------------------------------------------------------------------
Public Function Write_Product_file ()
	Dim sFileName
	Const repertoire  = "R:\In\Essais\"			'"C:\ESSAI\"
	Dim longtxt
	Dim fin_de_ligne 
	Dim separateur 
	Dim qte_assemble 
	Dim DejaCompte
	'---------------------------------------------------------
	' Numéro de série
	'---------------------------------------------------------
	Call calcul_Numero_de_serie
		'---------------------------------------------------------
	' Nom du fichier
	'---------------------------------------------------------
	sFileName = repertoire  + CStr( $num_serie_complet) + ".csv"

	'---------------------------------------------------------
	' Test si le fichier existe
	'---------------------------------------------------------
		If ($FindFile(sFileName)=1) Then
			$FileDelete (sFileName)
			DejaCompte = 1
			'MsgBox("Fichier existant !")
			'Exit Function
		End If
		'---------------------------------------------------------
	' Nbre FFB fait par taille dans la journée / FV le 24/05/2017
	'---------------------------------------------------------
	If DejaCompte =0 Then
			If $FicheTest.Taille_FFB = 1 Then
			$NbreFFB1Jour = $NbreFFB1Jour + 1
			ElseIf $FicheTest.Taille_FFB = 2 Then
			$NbreFFB2Jour = $NbreFFB2Jour + 1
			ElseIf $FicheTest.Taille_FFB = 3 Then
			$NbreFFB3Jour = $NbreFFB3Jour + 1
			ElseIf $FicheTest.Taille_FFB = 4 Then
			$NbreFFB4Jour = $NbreFFB4Jour + 1
			ElseIf $FicheTest.Taille_FFB = 5 Then
			$NbreFFB5Jour = $NbreFFB5Jour + 1
			Else
			End If
	Else
	DejaCompte=0
	End If
		
	'---------------------------------------------------------
	' Ecriture des infos
	'---------------------------------------------------------
	fin_de_ligne=0				'1=retour chariot
	longtxt = -1					'position ou ecrire (nb de caracteres. -1 pour ecrire a la fin du document
	separateur = " ; "		'pourquoi pas

'Date / 
	$FileWriteMessage ( sFileName , 0 ,  CStr(Date) + separateur  , fin_de_ligne)
'Heure / 
	$FileWriteMessage ( sFileName , longtxt ,  CStr(Time) + separateur  , fin_de_ligne)
'N° de série du frein = 'num_serie_FFB	
		$FileWriteMessage ( sFileName, longtxt,  $num_serie_complet & separateur , fin_de_ligne)
'N' de BF ou OF 
	$FileWriteMessage ( sFileName, longtxt,  CStr($FicheTest.No_OF) & separateur , fin_de_ligne)			'OF ?
'code du frein = 'code FFB
	$FileWriteMessage ( sFileName, longtxt,  CStr($GetPrivateProfileString("BF", "FFBNU", "0", $GetAppPath() + "BF\" + CStr($FicheTest.No_OF) + ".ini") ) & separateur , fin_de_ligne)
'Désignation = 'Désignation FFB
	$FileWriteMessage ( sFileName, longtxt,  CStr($GetPrivateProfileString("BF", "FFBDS1", "0", $GetAppPath() + "BF\" + CStr($FicheTest.No_OF) + ".ini") ) & separateur , fin_de_ligne)

'code informatique Cullase / 
	$FileWriteMessage ( sFileName, longtxt,  CStr($GetPrivateProfileString("CULASSE", "FFBCST", "0", $GetAppPath() + "BF\" + CStr($FicheTest.No_OF) + ".ini") ) & separateur , fin_de_ligne)
'Taille du frein / 
	$FileWriteMessage ( sFileName, longtxt,  CStr($FicheTest.Taille_FFB ) & separateur , fin_de_ligne)
'Résistance / 
	$FileWriteMessage ( sFileName, longtxt,  CStr($FicheTest.R_bobinage) & separateur , fin_de_ligne)
'tension (v) = 'Tension
	$FileWriteMessage ( sFileName, longtxt,  CStr($FicheTest.Tension ) & separateur , fin_de_ligne)
'Nb de ressort /
	$FileWriteMessage ( sFileName, longtxt,  CStr($FicheTest.Nb_ressort) & separateur , fin_de_ligne)
'Etat du rodage /
	$FileWriteMessage ( sFileName, longtxt,  CStr($FicheTest.Rodage_OK) & separateur , fin_de_ligne)
'Temps d'appel /
	$FileWriteMessage ( sFileName, longtxt,  CStr($FicheTest.Temps_rép_activation ) & separateur , fin_de_ligne)
''Temps de retombé /
	$FileWriteMessage ( sFileName, longtxt,  CStr($FicheTest.Temps_rép_desactivation) & separateur , fin_de_ligne)
'Niveau sonore /
	$FileWriteMessage ( sFileName, longtxt,  CStr($FicheTest.Niveau_sonore ) & separateur , fin_de_ligne)

'Couple théorique statique = ''Couple théo statique
	$FileWriteMessage ( sFileName, longtxt,  CStr($FicheTest.Couple_théo_static) & separateur , fin_de_ligne)
'Couple statique Moyen = 'Couple_Stat_Moyen
	$FileWriteMessage ( sFileName, longtxt,  CStr($FicheTest.Couple_Stat_Moyen) & separateur , fin_de_ligne)
'Couple théorique statique mini / 
	$FileWriteMessage ( sFileName, longtxt,  CStr($Couple_Théo_Stat_Mini) & separateur , fin_de_ligne)
'Couple statique Mini = 'Couple_Stat_Mini 
	$FileWriteMessage ( sFileName, longtxt,  CStr($FicheTest.Couple_Stat_Mini ) & separateur , fin_de_ligne)
'Couple théorique statique maxi / 
	$FileWriteMessage ( sFileName, longtxt,  CStr($Couple_Théo_Stat_Maxi) & separateur , fin_de_ligne)
'Couple statique Maxi  = 'Couple_Stat_Maxi 
	$FileWriteMessage ( sFileName, longtxt,  CStr($FicheTest.Couple_Stat_Maxi ) & separateur , fin_de_ligne)


'Couple_théo_DYN 
	$FileWriteMessage ( sFileName, longtxt,  CStr($FicheTest.Couple_théo_DYN ) & separateur , fin_de_ligne)
'Couple dynamique moyen = Couple_DYN_Moyen 
	$FileWriteMessage ( sFileName, longtxt,  CStr($FicheTest.Couple_DYN_Moyen ) & separateur , fin_de_ligne)
'Couple théorique dynamique Mini / 
	$FileWriteMessage ( sFileName, longtxt,  CStr($Couple_Théo_Dyn_Mini) & separateur , fin_de_ligne)
'Couple dynamique Mini = Couple_DYN_Mini 
	$FileWriteMessage ( sFileName, longtxt,  CStr($FicheTest.Couple_DYN_Mini ) & separateur , fin_de_ligne)
'Couple théorique dynamique Maxi / 
	$FileWriteMessage ( sFileName, longtxt,  CStr($Couple_Théo_Dyn_Maxi) & separateur , fin_de_ligne)
'Couple dynamique Maxi ='Couple_DYN_Maxi 
	$FileWriteMessage ( sFileName, longtxt,  CStr($FicheTest.Couple_DYN_Maxi) & separateur , fin_de_ligne)


'Résultat d'essais / 
	If $FicheTest.Essai_OK=0 Then 		$FileWriteMessage ( sFileName, longtxt, "ERROR" & separateur , fin_de_ligne)
	If $FicheTest.Essai_OK=1 Then 		$FileWriteMessage ( sFileName, longtxt, "OK" & separateur , fin_de_ligne)
	If $FicheTest.Essai_OK=2 Then 		$FileWriteMessage ( sFileName, longtxt, "NOK" & separateur , fin_de_ligne)
'N' Lot du disque = 'Référence disque
	$FileWriteMessage ( sFileName, longtxt,  CStr($FicheTest_lot_disque) & separateur , fin_de_ligne)
'Nombre_de_cycle_de_rodage / 
	$FileWriteMessage ( sFileName, longtxt,  CStr($FicheTest.Nb_cycle_rodage) & separateur , fin_de_ligne)
'T°C ambiante		
	$FileWriteMessage ( sFileName, longtxt,  CStr($FicheTest.temp_ambiante) & separateur , fin_de_ligne)


'STANDARD ou ATEX
	$FileWriteMessage ( sFileName, longtxt,  CStr(		$GetPrivateProfileString("BF", "TYPE_ETIQUETTE", "", 		$GetAppPath() + "BF\" &  $FicheTest.No_OF & ".ini")) & separateur , fin_de_ligne)

'N° de la fiche
	'$FileWriteMessage ( sFileName, longtxt,  CStr($FicheTest.NoEtiquette) & separateur , fin_de_ligne)
	

End Function

hocine
Apprend le binaire
Apprend le binaire
Messages : 7
Enregistré le : 22 juil. 2020, 09:15

Re: stocker des donnée sur Access avec VBScript de indusoft web studio

Message par hocine » 22 juil. 2020, 10:51

le code si dessus c'est le code pour sauvegarder les résultats dans des fichier texte et moi j'essai d'enlever sa et les stocker directement dans une base de donnée au lieu de passé par les fichier CSV

Avatar de l’utilisateur
itasoft
Mi homme - Mi automate
Mi homme - Mi automate
Messages : 4064
Enregistré le : 20 oct. 2015, 10:15
Localisation : Lyon
Contact :

Re: stocker des donnée sur Access avec VBScript de indusoft web studio

Message par itasoft » 22 juil. 2020, 10:56

slts,
chercher la commande Access qui importe ce fichier *.CSV directement dans la base de données
Automaticien privé (de tout)
itasoft@free.fr

hocine
Apprend le binaire
Apprend le binaire
Messages : 7
Enregistré le : 22 juil. 2020, 09:15

Re: stocker des donnée sur Access avec VBScript de indusoft web studio

Message par hocine » 22 juil. 2020, 11:02

justement je veux supprimée complémente la création de ces fichier csv et la remplacer par un fichier base de donnée ".accdb" et je cherche un programme ou une solution pour ce faire

Avatar de l’utilisateur
djé
Créateur de langage
Créateur de langage
Messages : 625
Enregistré le : 20 oct. 2015, 09:55
Localisation : Bretagne, Pays de la Loire, Nantes

Re: stocker des donnée sur Access avec VBScript de indusoft web studio

Message par djé » 22 juil. 2020, 11:35

Regarde dans l'aide d'indusoft, il y a certainement un objet basé de données qui te permettra d'enregistrer des variables dans le système de ton choix (access, sql) avec simplement quelque paramètres à renseigner.
Et ce, sans passer par du script.
Le monde se divise en 10 catégories:les personnes qui comprennent le binaire,et les autres.

Dans tout ce que vous apprenez, seuls 10% vont vous servir,mais vous ne savez pas lesquels ...

Répondre