Comment se connecter à SAP en VB.Net

Version imprimable

Bonjour,

Je suis en train de migrer un programme réalisé en VBA Excel vers VB en utilisant Visual Studio 2017.
Attention : Mon programme fonctionne aussi bien en VBA qu'en VB...
Par contre, en VB je n'arrive pas à utiliser l'"Espion" comme dans VBA !
En VB, lorsque j'espionne l'objet sapConnection... Il m'inscrit uniquement {System.__ComObject} et je ne vois pas le détails de l'objet. Comment faire ?
Remarque : Ni en VBA ni en VB je n'ai eu besoin de rajouter de référence pour faire fonctionner le programme. Et en VBA j'arrive bien à espionner l'objet sapConnection et il me donne bien tous les détails.

Merci.

Voici le code me permettant de me connecter à SAP
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 Module Module1 Sub SAP_Connection() Dim objBAPIControl As Object Dim sapConnection As Object objBAPIControl = CreateObject("SAP.Functions") sapConnection = objBAPIControl.Connection TypeName(objBAPIControl) TypeName(sapConnection) sapConnection.ApplicationServer = "sapserver" sapConnection.Client = "002" sapConnection.User = "myname" sapConnection.Password = "mypw" sapConnection.Language = "FR" If sapConnection.Logon(0, True) <> True Then MsgBox("Could not connect to SAP R/3") End If End Sub End Module

07/01/2019, 16h09
Invité
en fait je ne comprend pas pourquoi le modérateur t'a basculé sur ce forum, car il est possible de programmer en VB6 dans l'environnement .net mais je voulais que tu en sois conscient.

en attendant qu'un modérateur te bascule dans le forum VB.net, je te dirais ceci!
Code:

1 2 Dim objBAPIControl AsObject= CreateObject("SAP.Functions") Dim sapConnection As Object= objBAPIControl.Connection
est parfaitement légal mais tu n'auras pas accès à la déclinaison implicite, il faut pour cela revenir à du pure vb.net et définir tes référence aux objets intérop ou renoncer à la déclinaison implicite!
07/01/2019, 16h44
damsmut

En fait mon message en vient... Je ne sait pas trop dans quelle rubrique il aurait sa bonne place.
Je programme en Visual Basic avec Visual Studio 2017... Ce n'est peut être pas le bon logiciel ? En tous cas mon programme fonctionne bien, c'est juste galère à debugger, car je n'arrive pas à explorer cet objet... Alors qu'en VBA Excel ça marche sans rien faire.
07/01/2019, 17h06
Invité

Ton message avait été mis à tore dans vba.

Vb6 fonctionne en simplifiant les choses. Ce qui rend beaucoup plus puissant dot.net c'est qu'il n'offre pas de raccourci.

Tu ne peux pas voir le contenu d'un objets surtout quand il est instancié avec CreateObject.

Je sais pas si ça existe mais il faudrait un truc du genre
Dim objBAPIControl as new SAPinterop
08/01/2019, 11h05
damsmut

Donc si je comprends bien, en utilisant Visual Studio 2017, pas moyen de programmer en VB classique..., car obligatoirement on utilise .Net Framework et du coup nécessité d'utiliser l'interop de VB.Net pour pouvoir accéder à l'arborescence d'un objet COM.
C'est juste ?
08/01/2019, 11h54
Invité

1 pièce(s) jointe(s)

pas forcément ça dépens de la librairie!

Pièce jointe 439682

ok, mais je parle de mon cas précis avec SAP, car quand je debug je vois {System.__ComObject}

En fait quand j'exécute mon code en VBA, j'obtiens cela dans le debugger :

objBAPIControl est de type Object/SAPFunctions
et
sapConnection est de type Variant/Object/CSAPLogonConnection

du coup en VB.Net j'essaie... sans succès cela...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Imports SAPBAPIControlLib Imports SAPTableFactoryCtrl Imports SAPFunctionsOCX Module Module1 Sub Main() Dim objBAPIControl As SAPFunctionsOCX.SAPFunctions Dim sapConnection As SAPLogonCtrl.SAPLogonControl 'objBAPIControl = CreateObject("SAP.Functions") objBAPIControl = New SAPFunctions sapConnection = objBAPIControl.Connection 'sapConnection.ApplicationServer = "sapserver" 'sapConnection.Client = "002" 'sapConnection.User = "myname" 'sapConnection.Password = "mypw" 'sapConnection.Language = "FR"
mais ça plante à la ligne 15 avec le message suivant

Citation:

Une exception non gérée du type 'System.InvalidCastException' s'est produite dans TEST.exe
Informations supplémentaires*: Impossible d'effectuer un cast d'un objet COM de type 'System.__ComObject' en type d'interface 'SAPLogonCtrl.SAPLogonControl'. Cette opération a échoué, car l'appel QueryInterface sur le composant COM pour l'interface avec l'IID '{B24944D7-1501-11CF-8981-0000E8A49FA0}' a échoué en raison de l'erreur suivante*: Cette interface n’est pas prise en charge (Exception de HRESULT : 0x80004002 (E_NOINTERFACE)). a eu lieu*

je ne sais pas si j'avance ou si je tourne en rond, mais j'ai modifié mon code mais je fais face à une nouvelle erreur :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Main() Dim objBAPIControl As New SAPLogonCtrl.SAPLogonControl Dim sapConnection As SAPLogonCtrl.Connection sapConnection = objBAPIControl.NewConnection sapConnection.ApplicationServer = "sapserver" sapConnection.Client = "002" sapConnection.User = "myname" sapConnection.Password = "mypw" sapConnection.Language = "FR"
A la ligne 8, j'obtiens ce message d'erreur :

Citation:

Une exception non gérée du type 'System.AccessViolationException' s'est produite dans mscorlib.dll
Informations supplémentaires*: Tentative de lecture ou d'écriture de mémoire protégée. Cela indique souvent qu'une autre mémoire est endommagée. a eu lieu*

08/01/2019, 18h20
clementmarcotte

Bonjour,

Je ne connais pas SAP, mais un "cast invalide", c'est une conversion impossible d'un objet vers un autre et, par extension, de conversion d'un type de données en un autre. VB.net a conservé le processus de conversion implicite de son ancêtre BASIC. Même si c'est bien pratique quand ça fonctionne, cette conversion se fait selon des règles immuables; et la meilleure solution c'est encore de déclarer toutes les variables et leur type et de programmer les conversions soi-même.

Par exemple, une des conversions implicites veut que si on combine un type entier court (genre short) et un nombre en virgule flottante, ton entier devient sans ta permission, un nombre en virgule flottante, le temps de faire le calcul.

Plus gênant encore. Quand VB combine un type short et un type Integer, le type integer devient un type short et cela plante dès qu'un résultat intermédiaire dépasse 32 767.

Si tu as une erreur automation cela me semble être que VB envoie à SAP, ou récupère de SAP un type de donnée imprévu et VB n'est pas capable de démêler l'écheveau.

Mais bon, peut-être que quelqu'un familier avec SAP va surgir avec plus de précision...