pb连接sap的方法

8 views

Skip to first unread message

汉得老头

unread,

Jan 23, 2008, 10:54:49 AM1/23/08

to handh...@googlegroups.com

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