how to connect vb6.0 to sap r/3

[Former Member]

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

[Former Member]

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

[Former Member]

hi Jogdand,

which refernce i should inclued from vb 6.0

please give me details of Reference .

[Former Member]

thanks jogdand,

you help

[Former Member]

Hi

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