大家可能對于VB.NET的開發(fā)能力非常感興趣。因為它的應(yīng)用能夠幫助我們帶來一個良好的功能強(qiáng)大的開發(fā)平臺。VB.NET連接SAP中只是把讀取出來的內(nèi)容存放在數(shù)據(jù)庫中，然后利用GridView顯示出來。 當(dāng)然可以直接存入DataTable或DataSet中直接顯示出來。#t#

以下見代碼示例：

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接口遠(yuǎn)程運(yùn)行SAP內(nèi)部函數(shù)ZCSMS_GET_HRINFO  
44. ' 賦要調(diào)用的SAP內(nèi)建函數(shù)名  
45. Try  
46. GetCustomers = oFunction.Add("ZCSMS_GET_HRINFO")  
47. '設(shè)置輸入?yún)?shù)并賦值  
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. '循環(huán)插入到數(shù)據(jù)庫表中  
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("獲取數(shù)據(jù)成功")  
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顯示數(shù)據(jù)  
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 

以上兩種寫法都是利用創(chuàng)建組件OCX的方式進(jìn)行， 通過調(diào)用類的方法進(jìn)行也可以實現(xiàn)。 缺點是中文無法正常顯示。