SAP Ans VB Connection

Former Member — Mon, 10 Mar 2008 10:38:50 GMT

Dear Friends,

Pls,give some documents or sites link to connect SAP and VB

with step by step procedure..............Urgent

Re: SAP Ans VB Connection

dhruv_shah3 — Mon, 10 Mar 2008 10:49:24 GMT

Hi,

Form VB.NET appliaction you have two ways to connect to SAP system and execute BAPI. Either through webservices or by using NCo. Choice depends upon you appliaction requirement.

For starting with NCo go through

[http://help.sap.com/saphelp_nw04s/helpdata/en/a9/4a57c1bac80e4e977d8cd9b3ecab89/frameset.htm]

THIS IS ANOTHER WAY TO LOGIN TO SAP THROUGH VB TRY THIS.

Logon with the SAPLogon control, Use an RFC call from the SAP Function

Control, and get the results with the SAP Table Factory Control. . .

You must have SAPGui's FULL install on your machine for this to work (Or at

least SAPLogon and the RFC toolkit)

This VBScript example might help, it calls RFC_READ_TABLE in sap, and emails

the results back to a user from a selected query (In this case uses that are

locked out.

This should show you how this could work in practice.

Thanks,

Will

' Email Locked out SAP users details to user in a .csv file through MS

Exchange / CDO

Dim ctlTableFactory, RFC_READ_TABLE, eQUERY_TAB, tblOptions, tblData,

tblFields, funcControl, objConnection, ctlLogon

Set objFileSystemObject = CreateObject("Scripting.FileSystemObject")

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

Set funcControl = CreateObject("SAP.Functions")

Set ctlTableFactory = CreateObject("SAP.TableFactory.1")

Set objWindowsScriptShell = CreateObject("WScript.Shell")

Set objConnection = ctlLogon.NewConnection

Set filOutputobjFileSystemObject.CreateTextFile("E:\SAP Scripts\LockedUsers.CSV", True)

objConnection.ApplicationServerobjWindowsScriptShel l.RegRead("HKLM\Software\AccantiaEDI\SAPServer")

objConnection.SystemobjWindowsScriptShell.RegRead(" HKLM\Software\AccantiaEDI\SID")

objConnection.SystemNumber = "00"

objConnection.ClientobjWindowsScriptShell.RegRead(" HKLM\Software\AccantiaEDI\SAPClient")

objConnection.Language = "EN"

objConnection.UserobjWindowsScriptShell.RegRead("HK LM\Software\AccantiaEDI\SAPSAPUser")

objConnection.PasswordobjWindowsScriptShell.RegRead ("HKLM\Software\AccantiaEDI\SAPSAPPassword")

booReturn = objConnection.Logon(0, True)

If booReturn True Then

'MsgBox " Cannot log on! "

'MsgBox booReturn

filOutput.WriteLine "ERROR CALLING LOGGING INTO SAP - FAILED LOGINS

UNKNOWN"

Stop

Else

'MsgBox " Logon OK."

funcControl.Connection = objConnection

Set RFC_READ_TABLE = funcControl.Add("RFC_READ_TABLE")

Set strExport1 = RFC_READ_TABLE.Exports("QUERY_TABLE")

Set strExport2 = RFC_READ_TABLE.Exports("DELIMITER")

Set tblOptions = RFC_READ_TABLE.Tables("OPTIONS") '

Set tblData = RFC_READ_TABLE.Tables("DATA") '

Set tblFields = RFC_READ_TABLE.Tables("FIELDS") '

strExport1.Value = "USR02"

strExport2.Value = ","

tblOptions.AppendRow

tblOptions(1, "TEXT") = "LOCNT > 0 OR UFLAG = 128"

tblFields.AppendRow

tblFields(1, "FIELDNAME") = "BNAME"

tblFields.AppendRow

tblFields(2, "FIELDNAME") = "LOCNT"

tblFields.AppendRow

tblFields(3, "FIELDNAME") = "UFLAG"

If RFC_READ_TABLE.Call = True Then

If tblData.RowCount > 0 Then

filOutput.WriteLine "UserName,FailedLogins,LockedFlag"

' MsgBox tblData.RowCount

For intRow = 1 To tblData.RowCount

filOutput.WriteLine tblData(intRow, "WA")

Else

filOutput.WriteLine "NO FAILED LOGINS OR LOCKED USERS"

End If

Else

filOutput.WriteLine "ERROR CALLING SAP REMOTE FUNCTION CALL -

FAILED LOGINS UNKNOWN"

End If

Set filOutput = Nothing

MailProfile = "MS Exchange Settings"

Set objSession = CreateObject("MAPI.Session")

LogonOK = objSession.Logon(MailProfile)

Set objMessage = objSession.Outbox.Messages.Add

objMessage.Subject = "SAP Users Report - Locked Users + Failed Logins"

strSetMessage = "There are " & tblData.RowCount & " users that are

either locked due to failed logins, or have at least 1 failed login attempt

on system " & objWindowsScriptShell.RegRead("HKLM\Software\Accant iaEDI\SID")

& vbcrlf &

HTH

Regards,

Dhruv Shah

Re: SAP Ans VB Connection

Sergiu — Wed, 28 Aug 2013 11:43:05 GMT

This message was moderated.

topic SAP Ans VB Connection in Application Development and Automation Discussions

SAP Ans VB Connection

Re: SAP Ans VB Connection

Re: SAP Ans VB Connection