建站
咨詢(xún)
售后
建站咨詢(xún)
新聞中心
這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷(xiāo)解決方案
VB.NET連接SAP實(shí)際應(yīng)用方法介紹
大家可能對(duì)于VB.NET的開(kāi)發(fā)能力非常感興趣。因?yàn)樗膽?yīng)用能夠幫助我們帶來(lái)一個(gè)良好的功能強(qiáng)大的開(kāi)發(fā)平臺(tái)。VB.NET連接SAP中只是把讀取出來(lái)的內(nèi)容存放在數(shù)據(jù)庫(kù)中，然后利用GridView顯示出來(lái)。 當(dāng)然可以直接存入DataTable或DataSet中直接顯示出來(lái)。#t#
從策劃到設(shè)計(jì)制作，每一步都追求做到細(xì)膩，制作可持續(xù)發(fā)展的企業(yè)網(wǎng)站。為客戶(hù)提供成都網(wǎng)站制作、網(wǎng)站建設(shè)、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站策劃、網(wǎng)頁(yè)設(shè)計(jì)、域名申請(qǐng)、雅安服務(wù)器托管、網(wǎng)絡(luò)營(yíng)銷(xiāo)、VI設(shè)計(jì)、 網(wǎng)站改版、漏洞修補(bǔ)等服務(wù)。為客戶(hù)提供更好的一站式互聯(lián)網(wǎng)解決方案,以客戶(hù)的口碑塑造優(yōu)易品牌,攜手廣大客戶(hù),共同發(fā)展進(jìn)步。
以下見(jiàn)代碼示例：
- Imports System
- Imports System.Collections.Generic
- Imports System.ComponentModel
- Imports System.Data
- Imports System.Drawing
- Imports System.Text
- Imports System.Windows.Forms
- Imports System.Data.OleDb
- Imports System.Xml
- Public Class SAPConn
- Public oFunction As Object ' SAP Functions
- Public oConnection As Object ' SAP oConnection
- Dim cmd As OleDbCommand
- Dim SqlAd As OleDbDataAdapter
- Dim sql As String
- '測(cè)試連接的代碼
- Private Sub BtnConnn_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles BtnConnn.Click - Try
- oFunction = CreateObject("SAP.Functions.unicode")
- oConnection = oFunction.Connection
- oConnection.User = "CRMDEV69"
- oConnection.Password = "654321"
- oConnection.System = "CD2"
- oConnection.ApplicationServer = "172.18.95.173"
- oConnection.SystemNumber = 7
- oConnection.Client = "164"
- oConnection.Language = "ZH"
- If oConnection.Logon(0, True) = True Then
- MsgBox("連接成功！")
- Else
- MsgBox("連接失??！")
- End If
- Catch ex As Exception
- MsgBox(ex.ToString(), MsgBoxStyle.Information, "提示")
- Return
- End Try
- End Sub
- Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles Button1.Click - Dim GetCustomers As Object
- Dim Customers As Object
- Dim i As Integer
- Dim sqlstr As String = ""
- ' 通過(guò)RFC接口遠(yuǎn)程運(yùn)行SAP內(nèi)部函數(shù)ZCSMS_GET_HRINFO
- ' 賦要調(diào)用的SAP內(nèi)建函數(shù)名
- Try
- GetCustomers = oFunction.Add("ZCSMS_GET_HRINFO")
- '設(shè)置輸入?yún)?shù)并賦值
- GetCustomers.Exports("BEGDAFROM") = ""
- GetCustomers.Exports("BEGDATO") = ""
- GetCustomers.Exports("MILL") = "7960"
- GetCustomers.Exports("NUMBERFROM") = "0061500001"
- GetCustomers.Exports("NUMBERTO") = "0061500200"
- Customers = GetCustomers.Tables("THR")
- If GetCustomers.Call Then
- '循環(huán)插入到數(shù)據(jù)庫(kù)表中
- For i = 1 To Customers.RowCount
- sqlstr = "Insert into ghy_employee(MILL,
PERNR, NAME1, STEXT) values ('" & Customers
(i, "MILL") & "','" & Customers(i, "PERNR")
& "','" & Customers(i, "NAME1") & "','"
& Customers(i, "STEXT") & "' )" - Config.ExecAccess(sqlstr)
- Next i
- MsgBox("獲取數(shù)據(jù)成功")
- Else
- MsgBox(" 搜索出錯(cuò)! 出錯(cuò)信息: " +
GetCustomers.exception) - End If
- Catch ex As Exception
- MsgBox(ex.ToString)
- Return
- End Try
- End Sub
- '通過(guò)GridView顯示數(shù)據(jù)
- Private Sub Button2_Click(ByVal sender As System.
Object, ByVal e As System.EventArgs) Handles
Button2.Click - sql = "select * from ghy_employee "
- SqlAd = New OleDbDataAdapter(sql, oConn)
- DS.Clear()
- If DS.Tables.Contains("ghy_employee") Then
- DS.Tables.Remove("ghy_employee")
- End If
- SqlAd.Fill(DS, "ghy_employee")
- DvInvoice.DataSource = DS.Tables("ghy_employee").
DefaultView - DvInvoice.Refresh()
- DvInvoice.ClearSelection()
- DvInvoice.Columns("MILL").HeaderText = "工廠(chǎng)"
- DvInvoice.Columns("PERNR").HeaderText = "員工編號(hào)"
- DvInvoice.Columns("NAME1").HeaderText = "員工姓名"
- DvInvoice.Columns("STEXT").HeaderText = "員工部門(mén)"
- End Sub
- End Class
以上兩種寫(xiě)法都是利用創(chuàng)建組件OCX的方式進(jìn)行， 通過(guò)調(diào)用類(lèi)的方法進(jìn)行也可以實(shí)現(xiàn)。 缺點(diǎn)是中文無(wú)法正常顯示。
新聞標(biāo)題：VB.NET連接SAP實(shí)際應(yīng)用方法介紹
本文URL：http://www.5511xx.com/article/dpjideo.html
