VB.NET中怎么連接SAP

VB.NET中怎么連接SAP，很多新手對此不是很清楚，為了幫助大家解決這個難題，下面小編將為大家詳細講解，有這方面需求的人可以來學習下，希望你能有所收獲。

以下見代碼示例：

1. Imports System  

2. Imports System.Collections.Generic  

3. Imports System.ComponentModel  

4. Imports System.Data  

5. Imports System.Drawing  

6. Imports System.Text  

7. Imports System.Windows.Forms  

8. Imports System.Data.OleDb  

9. Imports System.Xml  

10. Public Class SAPConn  

11. Public oFunction As Object ' SAP Functions  

12. Public oConnection As Object ' SAP oConnection  

13. Dim cmd As OleDbCommand  

14. Dim SqlAd As OleDbDataAdapter  

15. Dim sql As String  

16. '測試連接的代碼  

17. Private Sub BtnConnn_Click(ByVal sender As 
    System.Object, ByVal e As System.EventArgs) 
    Handles BtnConnn.Click  

18. Try  

19. oFunction = CreateObject("SAP.Functions.unicode")  

20. oConnection = oFunction.Connection  

21. oConnection.User = "CRMDEV69" 

22. oConnection.Password = "654321" 

23. oConnection.System = "CD2" 

24. oConnection.ApplicationServer = "172.18.95.173" 

25. oConnection.SystemNumber = 7 

26. oConnection.Client = "164" 

27. oConnection.Language = "ZH" 

28. If oConnection.Logon(0, True) = True Then  

29. MsgBox("連接成功！")  

30. Else  

31. MsgBox("連接失敗！")  

32. End If  

33. Catch ex As Exception  

34. MsgBox(ex.ToString(), MsgBoxStyle.Information, "提示")  

35. Return  

36. End Try  

37. End Sub  

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

39. Dim GetCustomers As Object  

40. Dim Customers As Object  

41. Dim i As Integer  

42. Dim sqlstr As String = "" 

43. ' 通過RFC接口遠程運行SAP內部函數ZCSMS_GET_HRINFO  

44. ' 賦要調用的SAP內建函數名  

45. Try  

46. GetCustomers = oFunction.Add("ZCSMS_GET_HRINFO")  

47. '設置輸入參數并賦值  

48. GetCustomers.Exports("BEGDAFROM") = ""  

49. GetCustomers.Exports("BEGDATO") = ""  

50. GetCustomers.Exports("MILL") = "7960"  

51. GetCustomers.Exports("NUMBERFROM") = "0061500001"  

52. GetCustomers.Exports("NUMBERTO") = "0061500200"  

53. Customers = GetCustomers.Tables("THR")  

54. If GetCustomers.Call Then  

55. '循環插入到數據庫表中  

56. For i = 1 To Customers.RowCount  

57. sqlstr = "Insert into ghy_employee(MILL, 
    PERNR, NAME1, STEXT) values ('" & Customers
    (i, "MILL") & "','" & Customers(i, "PERNR") 
    & "','" & Customers(i, "NAME1") & "','" 
    & Customers(i, "STEXT") & "' )"  

58. Config.ExecAccess(sqlstr)  

59. Next i  

60. MsgBox("獲取數據成功")  

61. Else  

62. MsgBox(" 搜索出錯! 出錯信息: " + 
    GetCustomers.exception)  

63. End If  

64. Catch ex As Exception  

65. MsgBox(ex.ToString)  

66. Return  

67. End Try  

68. End Sub  

69. '通過GridView顯示數據  

70. Private Sub Button2_Click(ByVal sender As System.
    Object, ByVal e As System.EventArgs) Handles 
    Button2.Click  

71. sql = "select * from ghy_employee " 

72. SqlAd = New OleDbDataAdapter(sql, oConn)  

73. DS.Clear()  

74. If DS.Tables.Contains("ghy_employee") Then  

75. DS.Tables.Remove("ghy_employee")  

76. End If  

77. SqlAd.Fill(DS, "ghy_employee")  

78. DvInvoice.DataSource = DS.Tables("ghy_employee").
    DefaultView  

79. DvInvoice.Refresh()  

80. DvInvoice.ClearSelection()  

81. DvInvoice.Columns("MILL").HeaderText = "工廠" 

82. DvInvoice.Columns("PERNR").HeaderText = "員工編號" 

83. DvInvoice.Columns("NAME1").HeaderText = "員工姓名" 

84. DvInvoice.Columns("STEXT").HeaderText = "員工部門" 

85. End Sub  

86. End Class 

看完上述內容是否對您有幫助呢？如果還想對相關知識有進一步的了解或閱讀更多相關文章，請關注億速云行業資訊頻道，感謝您對億速云的支持。