Discussion :

[miripesage]

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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[miripesage]

Bonjour,
aucune piste? idée?

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:

[ProgElecT]

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 ?

[miripesage]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ProgElecT]

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

[miripesage]

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?