Skip to Content
avatar image
Former Member

how to connect vb6.0 to sap r/3

Hi Gurus,

when i m going to connect Bapi in vb 6.0 its showing error like

Dim boorder As Object

Set boorder = bapictrl.getsapobject("SalesOrder")

run time error '8792'.

error key: RFC_ERROR_SYSTEM_FAILURE

in vb 6.0

what to do to solve this error

1) please mension which component i should include like ADO 2.1

2) which reference i should include from vb.

To make RFC connection.

Point will be given to all Gurus.

Thanks in Advance, waiting for your valuable Replay

Add comment
10|10000 characters needed characters exceeded

  • Get RSS Feed

4 Answers

  • avatar image
    Former Member
    May 16, 2007 at 09:55 AM

    hi Jogdand,

    which refernce i should inclued from vb 6.0

    please give me details of Reference .

    Add comment
    10|10000 characters needed characters exceeded

  • avatar image
    Former Member
    May 16, 2007 at 07:36 AM

    Hi,

    check this codes:

    INCLUDE BAPI OBJECT FROM REFRENCES FIRST.

    Code
    
    Option Explicit
    Dim functionCtrl As Object
    Dim sapConnection As Object
    Dim theFunc As Object
    Dim PoNumber
    
    Private Sub Command1_Click()
    
    Set functionCtrl = CreateObject("SAP.Functions")
    Set sapConnection = functionCtrl.Connection
    sapConnection.Client = "500"
    sapConnection.user = "USERNAME"
    sapConnection.password = "PASSWORD"
    sapConnection.Language = "EN"
    
    If sapConnection.logon(0, False) <> True Then
        MsgBox "No connection to R/3 System"
        Exit Sub                                           'End program
    End If
    Set theFunc = functionCtrl.Add("BAPI_PO_CREATE")
    
    
    Dim poheader As Object
    Dim poitems As Object
    Dim poitemschedule As Object
    Dim retMess As Object
    Dim returnFunc As Boolean
    Dim startzeil As Integer
    Dim endcol As Integer
    Dim the_name As String
    
    Set poheader = theFunc.exports.Item("PO_HEADER")
    Set poitems = theFunc.tables.Item("PO_ITEMS")
    Set poitemschedule = theFunc.tables.Item("PO_ITEM_SCHEDULES")
    
    poheader.Value("VENDOR") = Text1.Text 
    
    poheader.Value("PURCH_ORG") = Text2.Text 
    poheader.Value("PUR_GROUP") = Text3.Text 
    poheader.Value("DOC_TYPE") = Text4.Text  
    
    poitems.Rows.Add
    poitems.Value(1, "PUR_MAT") = Text5.Text 
    poitems.Value(1, "PLANT") = Text6.Text 
    poitems.Value(1, "NET_PRICE") = Text7.Text  
    
    
    poitemschedule.Rows.Add
    poitemschedule.Value(1, "DELIV_DATE") = Text8.Text 
    poitemschedule.Value(1, "QUANTITY") = Text9.Text  
    
    returnFunc = theFunc.call
    PoNumber = theFunc.imports("PURCHASEORDER")
    Set retMess = theFunc.tables.Item("RETURN")
    If retMess Is Nothing Then
    
    MsgBox retMess.Value(1, "MESSAGE")
    Else
    MsgBox "Purchase Order No : " & PoNumber & "Created"
    End If
    
    End Sub
     

    Jogdand M B

    Add comment
    10|10000 characters needed characters exceeded

  • avatar image
    Former Member
    May 17, 2007 at 12:46 PM

    thanks jogdand,

    you help

    Add comment
    10|10000 characters needed characters exceeded

  • avatar image
    Former Member
    Apr 17, 2008 at 10:55 AM

    Hi

    Have you solved the problem? I met the same situation with u. And I don't know what's going on...

    Add comment
    10|10000 characters needed characters exceeded