additems probleme en vb

[ariana]

Bonjour,
J'ai besion de vous , j'ai essayé de créer une application.net sur vb (sur visual studio 2013) pour connecter à un serveur OFS

le code est le suivant pour le moment
Option Explicit On
Imports OPCDisp



Public Class Form1
Public OpcServer As IOPCServerDisp
Public OpcItemMgt As IOPCItemMgtDisp
Public OpcItem As IOPCItemDisp

Private Const ItemMax = 8
Private Const OPC_DS_DEVICE = 2

Dim ClientHandles(ItemMax) As Long
Dim ServerHandles As Object
Dim bConnect As Boolean

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim i%

'*** Connect to OPC Server ***
OpcServer = CreateObject("Schneider-Aut.OFSAut")
If TypeName(OpcServer) = TypeName(Nothing) Then Return
'*** Add OPCGroup ***
Dim UpdateRate As Long
Dim ServerHdl As Long
UpdateRate = 500
OpcItemMgt = OpcServer.AddGroup("Group One", True, UpdateRate, 22, 1, 0, ServerHdl, UpdateRate)
If TypeName(OpcItemMgt) = TypeName(Nothing) Then Return

'*** Add OPCItems ***
Dim ItemIDs(ItemMax) As String
Dim AccessPaths(ItemMax) As String
Dim Active(ItemMax) As Boolean
Dim Errors As Object = "error"
Dim ItemObjects As Object = 1
Dim DataType(ItemMax) As Object
For i% = 0 To ItemMax - 1
Active(i%) = True
ClientHandles(i%) = 22 + i%
AccessPaths(i%) = ""
ItemIDs(i%) = "TM221ME1!%MW0"
DataType(i%) = 2

Next i%
OpcItemMgt.AddItems(ItemMax, ItemIDs, Active, ClientHandles, ServerHandles, Errors, ItemObjects, AccessPaths, DataType)

End Sub

End Class
la connexion ainsi que la création d'un groupe se fait sans aucun probléme mais lors de l'ajout des items il m'affiche cette erreur

An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in autrepro.exe

Additional information: Exception de HRESULT : 0xEFEE4977

jmais j'ai pas trouvé aucune explication à ce type d'erreur
quelqu'un peut m'aider SVP

[tuscaonline]

Salut,
Quand un programme génère des exceptions il faut les gérer
https://docs.microsoft.com/en-us/dotnet ... -statement

Ça à l'avantage d'éviter que le programme plante et tu peux créer un fichier journal (Log), qui te permet de connaitre le contexte de l'exception.

Cordialement

[ariana]

Merci énormément pour votre aide je vais consulter le site de gestion des erreurs , j'espère bien trouver la solution et je posterai la réponse

Merciii encore