日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

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

從策劃到設(shè)計制作，每一步都追求做到細(xì)膩，制作可持續(xù)發(fā)展的企業(yè)網(wǎng)站。為客戶提供成都網(wǎng)站制作、網(wǎng)站建設(shè)、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站策劃、網(wǎng)頁設(shè)計、域名申請、雅安服務(wù)器托管、網(wǎng)絡(luò)營銷、VI設(shè)計、 網(wǎng)站改版、漏洞修補(bǔ)等服務(wù)。為客戶提供更好的一站式互聯(lián)網(wǎng)解決方案,以客戶的口碑塑造優(yōu)易品牌,攜手廣大客戶,共同發(fā)展進(jìn)步。

以下見代碼示例：

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)程運行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)。 缺點是中文無法正常顯示。

網(wǎng)站題目：VB.NET連接SAP實際應(yīng)用方法介紹
URL標(biāo)題：http://m.5511xx.com/article/dpjideo.html