vb and baan

wtf_feng

大家好，我是新手学习BAAN 。现在想通过VB 将数据填充到BAAN里面，请问这样子可以吗？可以的话，可以把例子帖上来吗？？谢谢~~~

wtf_feng

没人吖....自己顶自己一下.....

FLEX_ERP.Jerry

VB填充baan的做法我没试过，所以给不了你意见， 不过可以帮你顶一下～

wtf_feng

jerry ,哪你能试试吗?谢谢~~~

我的意思是第二个理解,是要将数据填充到BAAN的进程界面上,不是插到DB中.....

再次谢谢各位大哥啦!!!

wtf_feng

我的代码是:
Private Sub Command1_Click()
Set BaanObj = CreateObject("Baan4.Application")

SessionName = "tisfc8012m000"
FieldName = "cwoc.t"
fieldvalue = "B10"
BaanObj.ParseExecFunction "ottstpapihand", "stpapi.put.field(" & Chr(34) & SessionName & Chr(34) & "," & Chr(34) & FieldName & Chr(34) & "," & Chr(34) & fieldvalue & Chr(34) & ")"
BaanObj.ParseExecFunction "ottstpapihand", "stpapi.get.field(" & Chr(34) & SessionName & Chr(34) & "," & Chr(34) & FieldName & Chr(34) & "," & Chr(34) & fieldvalue & Chr(34) & ")"
BaanObj.ParseExecFunction "ottstpapihand", "stpapi.application.option(" & Chr(34) & SessionName & Chr(34) & ", 1, 1, error)"

B_function = "zoom.to.menu(" & Chr(34) & "tisfc8012m000" & Chr(34) & ",2," & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & ",0,0)"
BaanObj.ParseExecFunction "ottstpstandard", B_function
end sub

这里主要是用函数stpapi,请是正确吗??若不是用这个函数,哪要用什么函数?
烦请各位大哥,指教指教....本人万分感激!!!

wtf_feng

哦...哪ANDY大哥,能对以上我的代码指点指点吗?或者能把你的例子帖上来,让我们学习学习吗~~
本人再次致谢各位啦!!!

wtf_feng

不管怎样先谢谢各位的回复! 最好请Andy不怜指教,我的code........本人将万分感激!

FLEX_ERP.Jerry

如果是第二种的话为什么你不选择使用AutoHotKey这个工具？

wtf_feng

哦.
那stpapi.update()的参数这样子对吗？
BaanObj.ParseExecFunction "ottstpapihand", "stpapi.update(" & Chr(34) & SessionName & Chr(34) & ",1," & Chr(34) & " " & Chr(34) & ")"

thank's all

jnwgs

楼主 你的VB代码不正确， CreateObject函数创建的是COM对象，而不是STD Lib的引用。