用VB呼叫RFC,將資料寫入SAP!

2021-04-23 15:48:57 字數 1698 閱讀 6837

sap這個玩意兒就是門檻太高,其實也不太難。在網上找個資料都很難,下面我把我做的這個例項公開給大家,希望大家能夠有所啟發。

誰說vb過時了,我覺得還可以!這個就是vb的例項!

+++++++++++++++++++++++ 例項:呼叫上面定義的zrfc_01 以表為引數傳入rfc +++++++++++++++

private sub cmdadd_click()

'新增記錄

dim logname as string, password as string

dim xi

dim func as object

dim tt as object

set functions = createobject("sap.functions.unicode") 

' 建立rfc的本地物件

set connect = functions.connection 

' 設定連線

connect.client = "800"

connect.systemnumber = "00"

connect.language = "en"

connect.user = "zconn"

connect.password = "****"

if not connect.logon(0, true) then 

' 軟體登入sap並判斷

msgbox "登入sap r/3失敗,請重新登入!", vbokonly + vbexclamation, "系統提示"

command1.setfocus

else ' 登入sap成功

set func = functions.add("zrfc_01")

set tt = func.tables("ztemptable")

func.exports("action") = "create"

with tt

'next we set fields to obtain

'refresh table

tt.freetable

'then set values,類似與addnew

'xi是獲取當前表的行數,以便定位記錄行

'此處在賦值時,用欄位名稱來表示列,也可以用數字來表示,比如tt(xi, 1) = "iii"

'注意:行和列都是從1開始,不是從0開始計數

tt.rows.add

xi = tt.rowcount 

tt(xi, "zuserid") = "iii" 

tt(xi, "zpasswd") = "你好北京"

tt.rows.add

xi = tt.rowcount

tt(xi, "zuserid") = "ooo"

tt(xi, "zpasswd") = "我好!"

tt.refresh

end with

if func.call = true then

x = func.imports("return")

y = func.imports("errnum")

debug.print "x:" & x

debug.print "y:" & y

else

msgbox "call failed!"

end if

end if

connect.logoff

end sub

寫入資料java將資料寫入到csv檔案

這兩天一直在查詢寫入資料之類的問題,下午正好有機會和大家討論一下.對於csv件文,因為要將資料分離的寫入到個一每單元格中。用什麼來開分以後單元格和下乙個單元格之間呢?這裡就用到了 逗號可以割分單元格。舉例說明 我們這裡用乙個輸出流將資料寫入到csv件文中 fileoutputstream fos n...

將hdfs資料寫入hive

下面來嘮嘮怎麼將hdfs裡的資料寫入到hive裡。要將資料寫入hive裡,那麼hive裡得有存放資料表得位置,因此,第一步,是在hive裡建立新的表來儲存來自hdfs的資料,這裡有兩個注意 1 新建的表應該跟hdfs裡面資料表一致,指定列名 2 建立 式應一致,具體就是指row format del...

Matlab將資料寫入檔案

1 清理現有工作區 2 準備寫入資料 3 獲取目標檔案寫入操作許可權 4 將資料寫入目標檔案 5 將檔案操作入口關閉 6 將寫入的檔案內容展示在控制台 清理工作區 clear clc 準備寫入資料 x 0 0.01 pi y sin x 這個圖畫不畫都可以 plot x,y 獲取目標檔案寫入許可權 ...