Fill Grid with external datasource

Question

Someone to loaded data from external database to a grid in SAP BO with SDK
I need to show data from a external system with MySQL to transfer the purchase orders to SAP
Best Regards
Claudio

Answer 1

Here's a little piece of code to work with.  You have to code your part for loading for your datasource and then pass the value to each UserDataSource.
Try
    Dim oForm As SAPbouiCOM.Form
    Dim oMatrix As SAPbouiCOM.Matrix
    'Load your Data on a DataSet or other DataSource method
    oMatrix.Clear()
    For Each oColumn As SAPbouiCOM.Column In oMatrix.Columns 'Bind your columns
        Dim strColumn As String = Replace(Replace(oColumn.UniqueID, "U_", ""), "UD", "")
        If oColumn.UniqueID = "#" Or Left(oColumn.UniqueID, 2) = "V_" Then
        Else
            Try
                oForm.DataSources.UserDataSources.Item("UD" & Replace(strCOlumn, "U_", ""))
            Catch ex As Exception
                Select Case rst.Fields.Item(strCOlumn).Type
                    Case SAPbobsCOM.BoFieldTypes.db_Alpha : oForm.DataSources.UserDataSources.Add("UD" & Replace(strCOlumn, "U_", ""), SAPbouiCOM.BoDataType.dt_SHORT_TEXT, rst.Fields.Item(strCOlumn).Size)
                    Case SAPbobsCOM.BoFieldTypes.db_Memo : oForm.DataSources.UserDataSources.Add("UD" & Replace(strCOlumn, "U_", ""), SAPbouiCOM.BoDataType.dt_LONG_TEXT, rst.Fields.Item(strCOlumn).Size)
                    Case SAPbobsCOM.BoFieldTypes.db_Date : oForm.DataSources.UserDataSources.Add("UD" & Replace(strCOlumn, "U_", ""), SAPbouiCOM.BoDataType.dt_DATE, rst.Fields.Item(strCOlumn).Size)
                    Case SAPbobsCOM.BoFieldTypes.db_Float
                        Select Case rst.Fields.Item(strCOlumn).SubType
                            Case SAPbobsCOM.BoFldSubTypes.st_None : oForm.DataSources.UserDataSources.Add("UD" & Replace(strCOlumn, "U_", ""), SAPbouiCOM.BoDataType.dt_QUANTITY, rst.Fields.Item(strCOlumn).Size)
                            Case SAPbobsCOM.BoFldSubTypes.st_Measurement : oForm.DataSources.UserDataSources.Add("UD" & Replace(strCOlumn, "U_", ""), SAPbouiCOM.BoDataType.dt_MEASURE, rst.Fields.Item(strCOlumn).Size)
                            Case SAPbobsCOM.BoFldSubTypes.st_Percentage : oForm.DataSources.UserDataSources.Add("UD" & Replace(strCOlumn, "U_", ""), SAPbouiCOM.BoDataType.dt_PERCENT, rst.Fields.Item(strColumn).Size)
                            Case SAPbobsCOM.BoFldSubTypes.st_Price : oForm.DataSources.UserDataSources.Add("UD" & Replace(strCOlumn, "U_", ""), SAPbouiCOM.BoDataType.dt_PRICE, rst.Fields.Item(strColumn).Size)
                            Case SAPbobsCOM.BoFldSubTypes.st_Quantity : oForm.DataSources.UserDataSources.Add("UD" & Replace(strColumn, "U_", ""), SAPbouiCOM.BoDataType.dt_QUANTITY, rst.Fields.Item(strCOlumn).Size)
                            Case SAPbobsCOM.BoFldSubTypes.st_Rate : oForm.DataSources.UserDataSources.Add("UD" & Replace(strCOlumn, "U_", ""), SAPbouiCOM.BoDataType.dt_RATE, rst.Fields.Item(strCOlumn).Size)
                            Case SAPbobsCOM.BoFldSubTypes.st_Sum : oForm.DataSources.UserDataSources.Add("UD" & Replace(strCOlumn, "U_", ""), SAPbouiCOM.BoDataType.dt_SUM, rst.Fields.Item(strCOlumn).Size)
                        End Select
                    Case SAPbobsCOM.BoFieldTypes.db_Numeric : oForm.DataSources.UserDataSources.Add("UD" & Replace(strCOlumn, "U_", ""), SAPbouiCOM.BoDataType.dt_SHORT_NUMBER, rst.Fields.Item(strCOlumn).Size)
                End Select
            End Try
            oColumn.DataBind.SetBound(True, "", "UD" & oColumn.UniqueID)
            oForm.DataSources.UserDataSources.Item("UD" & Replace(strCOlumn, "U_", "")).Value = ""
        End If
    Next
    For i As Int32 = 1 To rst.RecordCount    'load your data here
        For Each oColumn As SAPbouiCOM.Column In oMatrix.Columns
            If oColumn.UniqueID = "#" Or Left(oColumn.UniqueID, 2) = "V_" Then
                'do nothing
            Else
                If Len(oColumn.DataBind.Alias) > 0 Then
                    Select Case rst.Fields.Item(strFieldName).Type
                        Case SAPbobsCOM.BoFieldTypes.db_Date
                            oForm.DataSources.UserDataSources.Item(oColumn.DataBind.Alias).Value = rst.Fields.Item(strFieldName)
                        Case Else
                            oForm.DataSources.UserDataSources.Item(oColumn.DataBind.Alias).Value = rst.Fields.Item(strFieldName).Value
                    End Select
                End If
            End If
        Next
        oMatrix.AddRow(1)
        oMatrix.SetLineData(i)
        rst.MoveNext()
    Next
Catch ex As Exception
    SBO_Application.MessageBox("Error on column : " & " - " & ex.Message)
End Try