zcl_ccc 发表于 2019-2-3 06:43:38

在vs2005中使用Com连接SAP系统-

if (conn.Logon(0, true))                              //login successful  {
  SAPFunctionsOCX.SAPFunctionsClass func = new SAPFunctionsOCX.SAPFunctionsClass();
  func.Connection = conn;
  SAPFunctionsOCX.IFunction ifunc = (SAPFunctionsOCX.IFunction)func.Add("ENQUEUE_READ");         //Call Function module 'ENQUEUE_READ'
  SAPFunctionsOCX.IParametergclient = (SAPFunctionsOCX.IParameter)ifunc.get_Exports("GCLIENT");//Get the import paremeter
  gclient.Value = "301";                                                                           //Set value for import paremeter
  SAPFunctionsOCX.IParameter GUNAME = (SAPFunctionsOCX.IParameter)ifunc.get_Exports("GUNAME");
  GUNAME.Value = "";
  SAPFunctionsOCX.IParameter LOCAL = (SAPFunctionsOCX.IParameter)ifunc.get_Exports("LOCAL");
  LOCAL.Value = "0";
  ifunc.Call();
  SAPFunctionsOCX.IParameter NUMBER = (SAPFunctionsOCX.IParameter)ifunc.get_Imports("SUBRC");
  SAPTableFactoryCtrl.Tables ENQs = (SAPTableFactoryCtrl.Tables)ifunc.Tables;            //get all the tables
  SAPTableFactoryCtrl.Table ENQ = (SAPTableFactoryCtrl.Table)ENQs.get_Item("ENQ");//Get table 'ENQ'
  int n = ENQ.RowCount;
  DataTable dt = CreateTable();
  for (int i = 1; i
页: [1]
查看完整版本: 在vs2005中使用Com连接SAP系统-