pb连接sap

[汉得老头]

string  ssql
int i,sapok

oleobject GetCustomers
oleobject Customers
oleobject   saplogin

//创建"功能 组件"。
saplogin = Create oleobject
GetCustomers  = Create oleobject

sapok =saplogin.ConnectToNewObject( "SAP.Functions" )
//指明希望登 录哪个 R/3 系统。
saplogin.Connection.Client = "800" //"集团"
saplogin.Connection.Language = "ZH" //"语言"
saplogin.Connection.System =  "R/3"
saplogin.Connection.SystemNumber =  "00"
saplogin.Connection.ApplicationServer =  "192.168.11.11"
saplogin.Connection.User =  "xiaxin" //"用户"
saplogin.Connection.Password = "baichi" //"密码"

saplogin.Connection.AutoLogon = True
//登录 R/3 系统。
If saplogin.Connection.Logon(0, True) <> True Then
    MessageBox ("Cannot logon!","登陆失败")
         else
   MessageBox ("logon ok!","登陆ok")
End If

oleobject Func1
        oleobject oleitem
        oleitem = create oleobject
       
int iii
DataStore lds_target
Func1 = saplogin.Add("rfc_read_table")
Func1.exports('QUERY_TABLE').value = 'MAKT'

oleitem = Func1.tables.item('DATA')
oleitem.AppendRow
oleitem.value[1,1] = '123'
//Func1.tables.item('DATA').value(1,1) = '1'

lds_target = CREATE datastore

long ll_i,ll_rowcount
string ls_row
boolean  lb_return
lb_return = Func1.call

if lb_return =   true then
        //MessageBox ("ss",string(Func1.imports('Z2').value))
        //MessageBox ("ss",string(Func1.tables.item('XHEAD').value(1,2)))
        oleitem = Func1.tables.item('DATA')
        ll_rowcount = oleitem.rowcount
        for ll_i = 1 to ll_rowcount
                ls_row = trim(oleitem.value(ll_i, 1))
                sle_1.text = ls_row
                MessageBox (string(ll_i),ls_row)
        next
        MessageBox ("ok","ok")
Else
        MessageBox ("bad","bad")
End If

DESTROY lds_target
saplogin.Connection.logoff()