用ＡＳＰ．ＮＥＴ调用ＣＬ

sater84

但是通过上面的方法，调用不了ＣＬ～～～

axunlb

用ASP.NET连接DB2速度怎么样？  我试过用JAVA来调用CL和RPG，但是数据实在不敢恭维。请教大家：用外部语言来调用400中的程序或者访问数据，都有用什么方法？ （最好是速度快点，效率高点，安全性高点）

sh-vagrant

谢谢楼主分享，.net调RPG速度快否，我改天弄下来试试
楼上的兄弟VB用的是ado吧，不是直接调用RPG程序吧

arishy

VB调用RPG和CLP我都实现了，但是必须使用AS400的一个控件，使用那个控件很简单，但是此种方式调用时RPG(或者CLP)时传参数我没有实现呢，
VB调用代码如下：
AS400X1.AS400Name = "xxxxx"
AS400X1.RunTimeUserID = "xxxxx"
AS400X1.RunTimePassword = "xxxxxx"
AS400X1.Connect
  
  
  Call400X1.LibraryName = "xxxxxx"
  Call400X1.ProgramName = "xxxxxx"
  Call400X1.Execute
programname可以是RPG或者CLP代号名称
执行都是成功的，但是带参数怎么实现，我还不会呢，有没有人会的，传授一下，谢谢！

arishy

另外一种方式就是不使用ＡＳ４００控件，直接使用ＣＷＢＸ的，前面有前辈已经发过的，我测试了一下，但是最后一步调用RPG时，整个电脑就死掉了：
代码如下：请大侠指导一下
  Dim As400
  Dim Prg
  Dim Parms
  Dim StrCvtr
  Dim LongCvtr
  
  Set As400 = CreateObject("cwbx.AS400System")
  Set Prg = CreateObject("cwbx.Program")
  Set Parms = CreateObject("cwbx.ProgramParameters")
  Set StrCvtr = CreateObject("cwbx.StringConverter")
  Set LongCvtr = CreateObject("cwbx.LongConverter")

  As400.Define "ｘｘｘｘ"
  
   
  As400.UserID = "ｘｘｘｘ"
  As400.Password = "ｘｘｘｘｘ"
  As400.PromptMode = cwbcoPromptNever
  As400.Signon
                        
  Set Prg.System = As400
  Prg.LibraryName = "ｘｘｘｘｘ"
  Prg.ProgramName = "xxxx"

  Parms.Append "PARM1", 1, 1

  Parms("PARM1") = StrCvtr.ToBytes("3")

  Parms.Append "PARM2", 2, 7

  Prg.Call Parms
我把Ｐａｒｍｓ注释了，简单执行Ｐｒｇ．ｃａｌｌ，程式前面都是执行ＯＫ的，但是到此句时执行就电脑不能动了，请大侠指导？谢谢！

[ 本帖最后由 arishy 于 2009-5-20 09:08 编辑 ]

afeng8848

楼主挺强，不过一看代码就知道是SDT的同仁了。
以前一直以为只有在JAVA中用JT400或者JTOPEN才可以实现直接调用RPG等功能的，现在才知道.NET居然也可以的哦，改天试试看，不过我也对这样调用的速度和稳定性持怀疑态度。

suifeng108

如此强贴，收藏研究

没想到

SDT不明白是什么的全名，可否指点一下。

seouldeng

原帖由 arishy 于 2009-5-20 08:59 发表
VB调用RPG和CLP我都实现了，但是必须使用AS400的一个控件，使用那个控件很简单，但是此种方式调用时RPG(或者CLP)时传参数我没有实现呢，
VB调用代码如下：
AS400X1.AS400Name = "xxxxx"
AS400X1.RunTimeUse ...

使用哪个控件？