'调用RFC Dim myDest As New SAP.Connector.Destination Dim myProx As New DEMO_GetData.SAPProxy1
Public Function SapStr(ByVal stype As Integer) As String Dim str As String
'测试机 str = "用户名,密码,系统号,客户端号,IP地址"
Return str End Function
Private Sub Main_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load
Try myProx.Connection = SAP.Connector.Connection.GetConnection(myDest) If (myProx.Connection.IsOpen = False) Then Dim saps() As String = Split(SapStr(stype),",") myDest.Username = saps(0) myDest.Password = saps(1) myDest.SystemNumber = saps(2) myDest.Client = saps(3) myDest.AppServerHost = saps(4) myProx.Connection.Open() End If Catch ex As Exception WriteTxt("",ex.ToString) End Try
Call Button5_Click(send,e) End Sub
Private Sub Button5_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button5.Click Dim partner As String = TxtCustId.Text.ToString.Trim'参数 Try '执行语句 Dim strID As String = "" Dim strSyncState As String = ""
Dim rtTable As New Ecsms_GetData.YHYSDCSMS01Table'RFC上定义的表 myProx.POP_DEMOTEST(strID,rtTable,strSyncState)'执行RFC函数
'strSyncState 为Y表示RFC执行成功 If strSyncState = "Y" Then Dim dtTable As New DataTable dtTable = rtTable.ToADODataTable
Dim i As Integer Dim sqllist As New ArrayList Dim sql as string For i = 0 To dtTable.Rows.Count - 1 sqllist.Add(sql) Next
If execTrans(sqllist) = True Then LabNote.Text = "获取成功" Else LabNote.Text = "获取失败" End If Else LabNote.Text = "WRONG" End If '语句执行完毕 Catch ex As Exception WriteTxt("",ex.ToString) End TryEnd Sub (编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|