Verbindung externer Programmiersprache u. ABAP-Programm

Code: Alles auswählen.

<?
    include_once ("../sap.php");

    $sap = new SAPConnection();
    // Params:                        hostname   sysnr
    $sap->ConnectToApplicationServer ("garfield", "30");
    // Params:  client username  password  language
    $sap->Open ("900", "rfctest","zkouska","EN");
    $sap->PrintStatus();
    $sap->GetSystemInfo();
    echo "<BR><PRE>"; print_r ($sap); echo ("</PRE>");
    $sap->Close();
?>

Code: Alles auswählen.

Dim FunctionCtrl As Object
Dim sapConnection As Object
Dim func1 As Object

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

' nicht silent-login
If Not sapConnection.Logon(0, False) Then
    MsgBox "logon failed !!"
    Exit Sub
End If

' Instanziieren des Function-Objektes
Set func1 = FunctionCtrl.Add("RFC_READ_TABLE")

' Export-Paramter definieren
func1.Exports("QUERY_TABLE") = "T000"

Dim oRowFields As Object

Set oRowFields = func1.tables("FIELDS").rows.Add
oRowFields("FIELDNAME") = "MTEXT"


Dim oData As Object
Dim DataZeile As String

If Not func1.Call Then
    If func1.exception <> "" Then
        MsgBox "Fehler: " & func1.exception
    End If
Else
   
    ' wir laufen durch jede Tabellenzeile
    ' der data-Tabelle einmal durch
    For Each oData In func1.tables("DATA").rows
        DataZeile = oData("WA")
        Text1.Text = Text1.Text & vbCrLf & DataZeile
    Next oData
End If

sapConnection.Logoff