can´t save a BO to a sql table

Felix M Avendano — Tue, 06 Mar 2012 15:44:31 GMT

I did this in a button, and it doesn't save the data to the table, Ive double checked and after the save command both bo's are populated, ant the msgbox says localidades grabadas, but it's false, ir does nothing. Here is the script.

        Dim vventrianlocalidadesyzonas As New BOventrianlocalidadesyzonas
        Dim vlocalidadesyzonas As New BOLocalidadesyzonas
        vventrianlocalidadesyzonas.DataSourceKey = "Webconn"
        vlocalidadesyzonas.PrimaryKeyIsAutoIncremented = True
        vlocalidadesyzonas.PrimaryKeyIsUpdatable = True

        vventrianlocalidadesyzonas.FillAll()

        vlocalidadesyzonas.CopyDataFrom(vventrianlocalidadesyzonas, BusinessCloneDataType.ClearAndFillFromDefaultView)

        If vlocalidadesyzonas.Save() = MicroFour.StrataFrame.Data.SaveUndoResult.Success Then
            MsgBox("Localidades Grabadas!")
        Else
            MsgBox("Un error ocurrió durante la grabación...")
        End If

RE: can´t save a BO to a sql table

Edhy Rijo — Tue, 06 Mar 2012 15:44:31 GMT

Hi Felix,

In your sample, you are not making any changes to the RowState of the copied BO. The BO.CopyDataFrom() method will not update the RowState of the rows copied, if you want the RowState changed, then you have to enumerate the BO and change each row to the RowState you want. Here is some code that illustrate the solution from one of my projects, pay attention to the comments in the code:
[codesnippet]

 If Me.BizTransactionItemsStock_TEMP_ForNewRecords.Count > 0 Then
             '-- Reset filter condition to show all selected cards.
             Me.BizTransactionItemsStock1.Filter = ""

             '-- Copy new records to the main Stock BO
             Me.BizTransactionItemsStock1.CopyDataFrom(Me.BizTransactionItemsStock_TEMP_ForNewRecords, BusinessCloneDataType.AppendDataToTableFromDefaultView)
             Me.BizTransactionItemsStock_TEMP_ForNewRecords.Clear()

             '-- Since these are new records and the BO.CopyDataFrom  method will 
             '   set the RowState to Unchanged, then force the RowState
             '   as Added to guarantee the record will be added to the table when saved.
             Me.BizTransactionItemsStock1.Filter = "PK_TransactionItemsStock < 0"
             Dim newTempPKValue As Integer = 0
             For Each StockBO As bizTransactionItemsStock In Me.BizTransactionItemsStock1.GetEnumerable()
                 '-- ER 11/23/2010, when doing a CopyDataFrom the new PK value may be -1 and this may already exist in the uncommitted BO Me.BizTransactionItemsStock1
                 '   we need to make sure that if the -1 PK value exist, to reassign the PK so they are unique to be used later when editing the record and the listview
                 '   could auto navigate properly to the listviewitem.Tag
                 newTempPKValue += -1
                 If StockBO.CurrentRow.RowState <> Data.DataRowState.Added Then
                     StockBO.CurrentRow.SetAdded()
                     StockBO.PK_TransactionItemsStock = newTempPKValue
                 End If
             Next
         End If

[/codesnippet]

StrataFrame Forum » StrataFrame Application Framework - V1 » WinForms (How do I?) » can´t save a BO to a sql table

can´t save a BO to a sql table

RE: can´t save a BO to a sql table