How to let programs written in VB interface to SAP through RFC? 

By : Worached

Below is source in VB to connect and get data from RFC.

Sub GetData()

'Declare the objects and variables
'
Dim functionCtrl As Object             'Function Control (Collective object)
Dim sapConnection As Object         'Connection object
Dim theFunc As Object                 'Function object

Set functionCtrl = CreateObject("SAP.Functions")
Set sapConnection = functionCtrl.Connection

       sapConnection.User = <user name>
       sapConnection.Password = <password>
       sapConnection.System = "00"
       sapConnection.ApplicationServer = "107.10.xx.xx"     'TSP
       sapConnection.SystemNumber = "00"
       sapConnection.Client = "100"
       sapConnection.Language = "EN"
       sapConnection.codepage = "8600"

 ' logon to SAP without presenting the logonscreen
   'If sapConnection.Logon(0, False) <> True Then
    If sapConnection.Logon(0, True) <> True Then
        MsgBox "No connection to R/3!"
        Exit Sub                                           'End program
    End If
Set theFunc = functionCtrl.Add("RFC_CIS_DIV")

Dim ITAB As Object
Dim returnFunc As Boolean
Dim startzeil As Integer
Dim endcol As Integer
Dim the_name As String
startzeil = 3

        theFunc.exports("MATNR") = "*"

'Call function
        returnFunc = theFunc.Call
        die_exception = theFunc.Exception

        If returnFunc <> True Then
            GoTo ConnectionClose
        End If

    Dim DB As DAO.Database, RS As DAO.Recordset
    Set DB = CurrentDb
    Set RS = DB.OpenRecordset("0Master_CIS_DIV")

    Do Until RS.EOF
        RS.Delete
        RS.MoveNext

    Loop
    Set ITAB = theFunc.tables.Item("MARA_T")

            For Each it_row In ITAB.rows
                RS.AddNew
                RS("material") = it_row("matnr")
                RS("mtype") = it_row("mtart")
                RS("mgroup") = it_row("matkl")
                RS("div") = it_row("spart")
                RS.Update

            Next it_row

ConnectionClose:
'Close_Connection
 functionCtrl.Connection.logoff
Set sapConnection = Nothing
Set functionCtrl = Nothing
MsgBox "Material master detail with Div. has been import from SAP(MARA)", vbInformation, "Finish!"

End Sub

Get help for your ABAP problems
Do you have a ABAP Question?

ABAP Books
ABAP Certification, BAPI, Java, Web Programming, Smart Forms, Sapscripts Reference Books

More ABAP Tips

• ABAP Programming Tips and Tricks
• ABAP Functions Examples - ABAP Questions - BAPI Programming Tips
• BDC Programming Tips - Sapscripts Tips - Smartforms Tips