can´t save a BO to a sql table

StrataFrame Forum

Back

can´t save a BO to a sql table

Author	Message
Felix M Avendano	Felix M Avendano posted 12 Years Ago Topic Details Share Topic
Group: Forum Members Posts: 48, Visits: 1.5K	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
	Reply Like 0
Edhy Rijo	E Edhy Rijo posted 12 Years Ago Post Details Share Post
E Group: StrataFrame Users Posts: 2.4K, Visits: 23K	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: 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 Edhy Rijo
	Reply Like 0