topic Re: Error when connection SAP by RFC in VB code in Application Development and Automation Discussions

Error when connection SAP by RFC in VB code

com_2018 — Fri, 16 Sep 2005 05:18:21 GMT

Dear experts,

VB code:

Set oFunction = CreateObject("SAP.LogonControl.1")

Set oConnection = oFunction.NewConnection

oConnection.Client = "300"

oConnection.Language = "EN"

oConnection.User = "test"

oConnection.Password = "test001"

oConnection.ApplicationServer = "111.111.12.11"

oConnection.SystemNumber = "00"

result = oConnection.Logon(0, True)

Set ofun = CreateObject("SAP.FUNCTIONS")

Set ofun.Connection = oConnection

Set func = ofun.Add("RFC_READ_TABLE")

Error sentence when running:

Set func = ofun.Add("RFC_READ_TABLE")

Error information:

"Runtime error '1001' No connection to SAP system available."

Could you help me?

Thanks and regards,

collysun.

Re: Error when connection SAP by RFC in VB code

Former Member — Fri, 16 Sep 2005 05:23:54 GMT

What is the user type of user "test" in SAP ( Dialog user or CPIC user )???

Can you try loggong using SAPGUI with same parameters...

Re: Error when connection SAP by RFC in VB code

com_2018 — Fri, 16 Sep 2005 05:30:59 GMT

I can login on SAP using sapgui with same parameters.

Re: Error when connection SAP by RFC in VB code

com_2018 — Sat, 17 Sep 2005 00:22:51 GMT

SAPGUI version:640

Re: Error when connection SAP by RFC in VB code

athavanraja — Sat, 17 Sep 2005 06:48:10 GMT

try this code

dim fns set fns = createobject("SAP.Functions")
dim conn 
set conn = fns.connectionconn.ApplicationServer = "111.111.12.11" 
conn.System = "DEV" 
conn.user = "<user id>" 
conn.password = "<pwd>" 
conn.Client = "300" 
conn.Language = "E" 

if conn.logon(0, true) <> true 
then
 exit 
sub 
end if 
dim myfunct 
set myfunc = fns.add("RFC_READ_TABLE")

Regards

Raja

Re: Error when connection SAP by RFC in VB code

com_2018 — Sat, 17 Sep 2005 14:11:50 GMT

Thank you very much for your help.

Re: Error when connection SAP by RFC in VB code

athavanraja — Sun, 18 Sep 2005 04:22:58 GMT

If your question is answered , can you reward points to the helpful answers and mark the thread as answered.

Regards

Raja