Edition de script impossible

Bonjour à tous.Je ne sais pas si je suis au bon endroit...

J'utilise un logiciel tiers WinCC flexible (Siemens) qui possede l'éditeur Visual Basic pour écrire des scripts mais Lorsque j'essaye d'éditer un script,léditeur crash avec l'erreur suivante. Aidez-moi, s'il vous plaît.:D

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Error Message:   This is an automatically generated error report for the WinCC flexible Engineering System.   Microsoft Windows XP Professional Service Pack 3 5.1.2600.196608   Version de produit: WinCC flexible 2008 SP3 Advanced; K 1.04 Hotfix 5; K 1.4.0 HF 5 (1.03.38)     System.Security.SecurityException Requested registry access is not allowed.   Exception Source mscorlib   Exception Target Site Void ThrowSecurityException(System.ExceptionResource)   Exception Stack Trace at System.ThrowHelper.ThrowSecurityException(ExceptionResource resource) at Microsoft.Win32.RegistryKey.OpenSubKey(String name, Boolean writable) at Microsoft.Win32.RegistryKey.OpenSubKey(String name) at Siemens.Simatic.Hmi.Utah.Scripting.EditControl.ScriptEditOMReflection.FillTlbsHashtableFormRegistryKeyCLSID() at Siemens.Simatic.Hmi.Utah.Scripting.EditControl.ScriptEditOMReflection.FillTypeLibsHashTable() at Siemens.Simatic.Hmi.Utah.Scripting.EditControl.ScriptEditOMReflection.GetTypeLibGuidFromProgId(String progID) at Siemens.Simatic.Hmi.Utah.Scripting.EditControl.ScriptEditOMReflection.Init_ProgId(String progId) at Siemens.Simatic.Hmi.Utah.Scripting.EditControl.ScriptEditOMReflection.Init(Object progIdOrInterface, Boolean setHelpDescription) at Siemens.Simatic.Hmi.Utah.Scripting.EditControl.LoadTlbAndConvertToAssemblyThread.LoadTlbAndConverToAssembly() at System.Threading.ThreadHelper.ThreadStart_Context(Object state) at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state) at System.Threading.ThreadHelper.ThreadStart() End Exception

---

Bonjour,
aucune piste? idée?:mrgreen:

Un autre fait: Si j'ai écrit un script dès que je tape la phrase

"ADODB.Connection"

[Set conn = CreateObject ("ADODB.Connection")] ou

"ADODB.Recordset"
[Set rst = CreateObject ("ADODB.Recordset")]

winccflexible crash!!! Voir sreen attached:

Salut

Il faut arriver à déterminer si c'est l'éditeur ou ton installation global Windows qui ne fonctionne pas.
Avec un éditeur basique (Notepad), si du fait une création object puis une connexion à la BDs avec cette variable object, cela fonctionne t il ?

Merci pour la réponse,
En fait dès que j'essaye de créer un script, wincc plante.
(si j'enleve ADODB.Connection et ADODB.Recordset, il n'y a aucun problème, mais le script ne fonctionne pas bien sur !

Exemple script creation d'une table :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

On Error Resume Next Err.Clear   Dim conn, rst   Set conn = CreateObject("ADODB.Connection") Set rst = CreateObject("ADODB.Recordset")   conn.Open "Provider=MSDASQL;DSN=WinCCFlexible" 'DSN= name of the odbc-database 'DSN= Name der ODBC-Datenbank   Dim SQL_Tabelle   SQL_Tabelle = "CREATE TABLE "& SmartTags("Tabname_1") & " (Nr SMALLINT, "& SmartTags("Name_1") & " CHAR(12), "& SmartTags("Name_2") & " SMALLINT, "& SmartTags("Name_3") & " SMALLINT)"   Set rst = conn.Execute(SQL_Tabelle)   If Err.Number <> 0 Then ShowSystemAlarm Err.Description 'Error description ; Fehlerbeschreibung End If   Set rst = Nothing Set conn = Nothing

---

Pour ce qui est de Notepad, je ne sais pas comment proceder, si vous voulez bien m'éclairer. Merici encore.

Pour le script sous Notepad, il suffi d'enregistrer le code en .vbs puis de lancer le fichier par double click.

J'ai essayé le code posté ci-dessus avec notepad, mais rien ne se passe lorsque je double-clic dessus. Alors y'a t-il un problème avec mon XP?

Re
Si ta BDs est du access, tu peux éventuellement charger BDs ACCESS, rédiger la requête de connexion, la requête d’ouverture de table, visualiser le résultat, cela pourrait t'aider car il récupère les DSNs installés sur ton système et/ou tu peux parcourir tes dossiers pour retrouver la BDs (Access exclusivement).

Code:

---

conn.Open "Provider=MSDASQL;DSN=WinCCFlexible" 'DSN = nom de la base de données ODBC

---

WinCCFlexible doit être le nom d'une "Sources de données utilisateur" valide.
Pour voir si elle existe vraiment, utiliser odbcad32.exe en ligne de commande (Démarer ---> Rechercher les programmes et fichiers ---> y inscrire
odbcad32.exe).
Dans le résultat de la recherche double cliquer sur le nom du programme (odbcad32.exe).

Ou bien, si tu connais l'emplacement de la BDs à ouvrir, tu mes le chemin et son nom de cette façon, exemple pour une BDs .mdb

Code:

---

conn.Open "PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source=C:\PersoFrancis\Constructeur de requetes\BDpourEssais.mdb;"

---

A voir pour le PROVIDER
http://www.connectionstrings.com/access-2013/
et/ou
http://www.devlist.com/ConnectionStringsPage.aspx

Essais un tout petit code de ce style (dans un NotePad, enregistré sous EssaisConnexion.vbs)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

Option Explicit EssaisConnexion   Sub EssaisConnexion Dim Conn, strCnn, RqtSQL, Rst   On Error Resume Next 'Etape 1 Set Conn = CreateObject("ADODB.Connection") If Err Then MsgBox "Err N°" & Err.Number & vbNewLine & _ "Description:" & vbNewLine & vbNewLine & Err.Description, vbCritical, "Erreur création objet de connexion BDs" Exit Sub End If   'Etape 2 strCnn = "PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source=C:\PersoFrancis\Constructeur de requetes\BDpourEssais.mdb;" '*** adapter le chemin et nom *** Conn.Open strCnn If Err Then MsgBox "Err N°" & Err.Number & vbNewLine & _ "Description:" & vbNewLine & vbNewLine & Err.Description, vbCritical, "Erreur ouverture BDs" Set Conn = Nothing Exit Sub End If   'Etape 3 Set Rst = CreateObject("ADODB.Recordset") If Err Then MsgBox "Err N°" & Err.Number & vbNewLine & _ "Description:" & vbNewLine & vbNewLine & Err.Description, vbCritical, "Erreur création object RecordSet" Set Conn = Nothing Exit Sub End If   'Etape 4 (si une table existe dans la BDs) RqtSQL = "Select * From Principal" '*** adapter le nom de la table*** Rst.Open RqtSQL, Conn If Err Then MsgBox "Err N°" & Err.Number & vbNewLine & _ "Description:" & vbNewLine & vbNewLine & Err.Description, vbCritical, "Erreur ouverture table" Set Rst = Nothing Set Conn = Nothing Exit Sub End If   Set Rst = Nothing Set Conn = Nothing   MsgBox "Tout est Ok", vbInformation, "Yes !!!"   End Sub

---

Remer de la ligne 36 à 44 si il n'y a pas encore de table dans la BDs
Ce code n'est valide que pour une BDs access

Merci ProgElecT pour votre patience et aide.
Concernant ma base de données, elle est sous SQL Server (express). Je peux me connecter à la base sans problème avec SQL Server Management. Voir les sreens ci-jointes pour plus de clarté.

Citation:

---

Concernant ma base de données, elle est sous SQL Server (express). Je peux me connecter à la base sans problème avec SQL Server Management. Voir les sreens ci-jointes pour plus de clarté.

---

Donc cela proviendrai du Provider ? là je ne suis plus dans le coup, cela fait plusieurs années que je n'utilise pas SQL Server, je regarderai çà demain au boulot car j'ai des sources qui me rafraichiront peut être la mémoire.
Part contre, la FAQ du site ou tu as légitimement pompé le code donne pas mal d'explications.

Salut

:fou: :zekill::scarymov:


C'est fou, pour moi ton éditeur de script intégré dans WinCC flexible et vérolé ou incomplet ou encore mal configuré,
car avoir un plantage au cours de la rédaction d'un code, là c'est fort. 8O
Reste que la boite d'erreur dit que tu n'a pas les droits te permettant d'utiliser la création d'objet (en tout cas de type ADODB).
Essais de créer un autre type d'objet comme tu le fais jusqu'à maintenant, exemples:

Code:

---

1 2 3 4

dim Dico, FSO, ScriptCtrl Set DicO = CreateObject("Scripting.Dictionary") Set FSO = CreateObject("Scripting.FileSystemObject") Set ScriptCtrl = CreateObject("ScriptControl")

---

Arrives tu à les créer, plantage, pas plantage ?

Citation:

---

Envoyé par ProgElecT

Salut

:fou: :zekill::scarymov:


C'est fou, pour moi ton éditeur de script intégré dans WinCC flexible et vérolé ou incomplet ou encore mal configuré,
car avoir un plantage au cours de la rédaction d'un code, là c'est fort. 8O
Reste que la boite d'erreur dit que tu n'a pas les droits te permettant d'utiliser la création d'objet (en tout cas de type ADODB).
Essais de créer un autre type d'objet comme tu le fais jusqu'à maintenant, exemples:

Code:

---

1 2 3 4

dim Dico, FSO, ScriptCtrl Set DicO = CreateObject("Scripting.Dictionary") Set FSO = CreateObject("Scripting.FileSystemObject") Set ScriptCtrl = CreateObject("ScriptControl")

---

Arrives tu à les créer, plantage, pas plantage ?

---

Bonsoir avec mes remerciements,
Plante avec :
Set DicO = CreateObject("Scripting.Dictionary")
Set FSO = CreateObject("Scripting.FileSystemObject")
Ne plante pas avec :
Set ScriptCtrl = CreateObject("ScriptControl").
J'ai l'impression que mon xp est fautif. car sur une autre partition, j'ai le mëme wincc installé sur W7 et je peux créer les même scripts sans qu'il plante.