topic Re: fetch data from VB6 to SAP in Application Development and Automation Discussions

fetch data from VB6 to SAP

Former Member — Thu, 07 May 2009 15:59:21 GMT

Hi!

We have got an application software in VB6.

Our version of SAP R/3 is ECC5.

now I have to put the values of application software into SAP customised table.

suppose text1 and text2 are there in the software VB6 and

the values that users put in it should reflect into a customised table in SAP say ZTAB

with fields ztext1 and ztext2.

i.e, text1 of VB6 software equals ztext1 of SAP table ZTAB and so on...

A relevant BAPI is to be created to do so but how to fetch

the data from VB6 to SAP and how do i connect VB6 and SAP.

thanking you

Amit

Re: fetch data from VB6 to SAP

Former Member — Thu, 07 May 2009 17:06:49 GMT

Is there any way you can download it to excel.

If yes then you can use BDC or LSMW to upload from there.

Regards,

Lalit Mohan Gupta.

Re: fetch data from VB6 to SAP

Former Member — Thu, 07 May 2009 21:38:08 GMT

If the VB program is to call the BAPI, then write the bapi with your 2 text fields as input parameters and then when you call the bapi from your VB program just send the 2 text fields. The bapi doesn't look back into its calling program. Am I missing something here?

Re: fetch data from VB6 to SAP

Former Member — Fri, 08 May 2009 01:07:19 GMT

Hi Amit,

We did a Weigh Bridge in the same way long ago fo rone of our client.

We written the program using a BAPI. & The interface part is from VB. it was done by VB Programmers..!

So check if you got some VB programmers, as there are some simple interfaces...

You can search in the net for "VB to SAP interface" or BAPI for "VB Application" Might be help you for reference, as I got one from internet and it was having comple screens for interfacing.

Thanks & regards,

Dileep .C

Re: fetch data from VB6 to SAP

Former Member — Fri, 08 May 2009 03:38:49 GMT

Hi..

First u have to create BAPI using SE37 ( Function Module ) with remote enabled functionality.

which have import / export parameters through which u can send data from VB6 to SAP.

then open vb6.

then write following sample code :



        Dim Functions As Object

        Set Functions = CreateObject("SAP.Functions")
 
        Functions.Connection.User = suser
        Functions.Connection.Password = sPassword
        Functions.Connection.Client = sClient
        Functions.Connection.ApplicationServer = sdestination
        Functions.Connection.Language = sLanguage
       
        Functions.Connection.SystemNumber = sYstemnumber       
If Functions.Connection.Logon(0, True) = True Then
        
        
        While Not rsSql.EOF
        
            Set RfcCallTransaction = Functions.Add(<BAPI_NAME>)
            RfcCallTransaction.Tables(<TABLE NAME IN WHICH U WANT TO PASS DATA>).appendrow
            
            RfcCallTransaction.Tables(<TABLE NAME IN WHICH U WANT TO PASS DATA>).MCount, <Field_Name>= rsSql.Fields(<Field_Name>)
            RfcCallTransaction.Tables(<TABLE NAME IN WHICH U WANT TO PASS DATA>).MCount, <Field_Name_2>= rsSql.Fields(<Field_Name_2>)

            MCount = MCount + 1
            rsSql.MoveNext
        
        Wend

	If RfcCallTransaction.Call = True Then
                   
                                    
	endif.

endif.

here rsSql is recordset which contains data which u want to send in sap.

Here statement "If RfcCallTransaction.Call = True Then" call bapi and data will be sent to SAP.

From above u can easily setup connection with SAP. no basis guy required.

This may surly help u.

Regards,

Chintan.

Edited by: Chintan_SAP on May 8, 2009 9:09 AM

Edited by: Chintan_SAP on May 8, 2009 9:53 AM

Edited by: Chintan_SAP on May 8, 2009 9:54 AM

Re: fetch data from VB6 to SAP

former_member188827 — Fri, 08 May 2009 03:53:33 GMT

first create a bapi using tcode "SWO1".. in da function module of bapi use import parameters to read data from VB6 and den use da data to update ur z table.

da call of bapi in VB6 has to be coded by VB programmer.u also need basis person to estblish interface b/w SAP and VB..

Re: fetch data from VB6 to SAP

ashish_shah5 — Fri, 08 May 2009 05:10:31 GMT

Important Tcode:

BAPI - Buisness Object Browser

SWO1 - Buisness Object Builder

SE11 - Data Dictionary

Se37 - Function Builder

Steps:

1. SE11-You have to create Structure.

2. SE37- Create Function Group

3. SE37- Create Function Module with Remote Enable Mode

- In Import Parameter Click on pass value

4. SE37- After writting code use Release option.

5. SWO1- Create New BAPI Object

- Application: '*'

- Select Method & Click on Add Method

- Implement

- Release

- Generate

This are the steps which you have to take care.

Regards.

Re: fetch data from VB6 to SAP

Former Member — Thu, 27 May 2010 11:26:36 GMT

Hi..

I want to retrieve Changing parameter from a Remote Enabled function module in VB from SAP.

Can anyone provide me the method name to extract the Changing parameter.

My Function Module : RPY_FUNCTIONMODULE_READ_NEW

Parameter to Extract from VB in SAP : NEW_SOURCE

Iam connecting to SAP from my VB application.

Please do the needful.

Re: fetch data from VB6 to SAP

Former Member — Fri, 18 Oct 2013 14:54:50 GMT

Hi,

I am trying to use the same code but not able to connect to SAP through VB6.

Can you please tell me know the actual procedure for connecting to the system and any pre-requisite for the connection

Any help would be appreciated.

Thanks & regards,

Akshay Ruia.

Re: fetch data from VB6 to SAP

Former Member — Fri, 18 Oct 2013 16:17:40 GMT

First, you need to create the function module, enabled for remote calling, prefereably in a distinct function group, as security is handled at the function group level.

Next, you need a user and password in SAP

Next, you need to add security to the profile of user, for S_RFC, using acvt 16, the function group name, and RFC_TYPE FUGR

You should consider connecting to SAP via a login group, if you have multiple application servers, but here is code from my SAP connection obect that connects direct to a server. CP is a connection profile. fill in these fields with the appropriate informatin for your system.

SAP as Object

Private Sub ConnectToServer()

SAP = CreateObject("SAP.Functions")

SAP.Connection.System = CP.System

SAP.Connection.client = CP.Client

SAP.Connection.ApplicationServer = CP.ApplicationServer

SAP.Connection.user = CP.UserID

SAP.Connection.Password = CP.Password

SAP.Connection.language = CP.Language

If SAP.Connection.logon(0, True) <> True Then

Me.Connected = False

Else

Me.Connected = True

End If

End Sub

This will just Connect you to SAP. You then need to call the function module:

Controller as Object

Controller = SAP.add("Y_LABOR_SESSION_CONTROLLER")

Export = Controller.exports("RESPONSE")

Import = Controller.imports("REQUEST")

KVTable = Controller.tables("KEYVAL")

TXTable = Controller.tables("TEXT")

Here, we create a new object, called controller, and objects fro Export, import, etc. In this example, request, response, etc are all parameters of the function module, either imported, exported or tables.

Note, I named them this way, becuase i only have one export, and one import. If you have mlutiple exports, like test1 and text2, then each would be set up like

Text1 = Controller.exports("TEXT1")

Text2 = Controller.exports("TEXT2")

or something like that

The export object is a structure, you can access like this

Export("SESSIONID") = Resp.SessionID

Export("RESPONSEDATA") = Resp.ResponseData

Export("MSGRESP") = Resp.MsgResp

Then, finally, you call the function module

callok = Controller.call()

If callok = False Then

pvtSAPError = Controller.exception()

End If

This code was taken from one of my working applications, so obviously, you need to tweak it. It was orginally created in VB6, and then adjusted into VS in various releases. it should show you, though, how to handle connecting, setting up the function module definition in VB, calling the FM, and checking for errors. I did not try and rewrite it to your specific scenario, though.

I hope it helps.

Re: fetch data from VB6 to SAP

Former Member — Fri, 01 Nov 2013 05:40:45 GMT

Hi David,

Thanks For the Reply. It worked Great.

Regards,

Akshay Ruia