DI Connection in 2007

Question

Hi There,
Can someone please assist if possible.
I have this script that runs in excel that enables me to quickly import BP data into SBO. I recently upgraded to 2007 and now suddenly it doesnt work. I know that there is a different way that I need to connect to the DI but dont know what to change.
Herewith is the code I currently have, please let me know exactly what I need to chenge for this script to connect and import in SBO 2007.
Sub Macro1()
Dim vCmp As SAPbobsCOM.Company
Dim lRetCode, lErrCode As Long
Dim sErrMsg As String
Dim lRet_val As Long
Set vCmp = New SAPbobsCOM.Company
vCmp.Server = "wynand-notebook"
vCmp.CompanyDB = "dbtest"
vCmp.UserName = "manager"
vCmp.Password = "production"
vCmp.Language = ln_English
vCmp.DbUserName = "sa"
vCmp.DbPassword = "P@ssw0rd"
row_no1 = 2
vCmp.UseTrusted = False
lRetCode = vCmp.Connect
If lRetCode <> 0 Then
   vCmp.GetLastError lErrCode, sErrMsg
End If
    Dim vBP As SAPbobsCOM.BusinessPartners
    Set vBP = vCmp.GetBusinessObject(oBusinessPartners)
    On Error GoTo Error_handler
Get_BP:
    bp_Recordkey = Range("A" & row_no1 & "").Value
    If bp_Recordkey = "" Then GoTo End_sub
    bp_acc = Range("B" & row_no1 & "").Value
    bp_name = Range("C" & row_no1 & "").Value
    bp_phone1 = Range("D" & row_no1 & "").Value
    bp_fax = Range("E" & row_no1 & "").Value
    bp_vat = Range("F" & row_no1 & "").Value
    bp_payterm = Range("L" & row_no1 & "").Value
    bp_control = Range("H" & row_no1 & "").Value
    bp_pobox = Range("I" & row_no1 & "").Value
    bp_zipcode = Range("J" & row_no1 & "").Value
    bp_city = Range("K" & row_no1 & "").Value
    GoSub Write_BP
    GoTo Get_BP
Write_BP:
    vBP.CardCode = bp_acc
    vBP.CardType = cSupplier
    vBP.CardName = bp_name
    vBP.Phone1 = bp_phone1
    vBP.Fax = bp_fax
    vBP.FederalTaxID = bp_vat
    vBP.PayTermsGrpCode = bp_payterm
    vBP.DebitorAccount = bp_control
    vBP.BilltoDefault = bp_name
    vBP.Address = bp_pobox
    vBP.ZipCode = bp_zipcode
    vBP.City = bp_city
    retval = vBP.Add
    If retval <> 0 Then
        GoSub Write_error
    End If
    If retval = 0 Then
        Range("O" & row_no1 & "").Value = "Successful"
    End If
    row_no1 = row_no1 + 1
    Return
Write_error:
    vCmp.GetLastError lErrCode, sErrMsg
    'MsgBox (sErrMsg)
     Range("O" & row_no1 & "").Value = sErrMsg
    Return
Error_handler:
    vCmp.GetLastError lErrCode, sErrMsg
    If lErrCode <> 0 Then MsgBox (sErrMsg)
    Resume
End_sub:
End Sub
Thanks in advance,
Wynand Cilliers.

Answer 1

Hi ,
Add this,
add the version of databse you have :
oComapany.DbServerType = SAPbobsCOM.BoDataServerTypes.dst_MSSQL2005
Best Regards
ABO