{"Не разрешено изменять свойство connectionstring. Текущее состояние соединения открыто."}
Sub SaveData() MainForm.Cursor = Cursors.WaitCursor Dim SqlStr As String = "" 'If IsOpenForAlter = True Then SqlStr = "UPDATE Assets SET [dbo].[AssetID]=@AssetID [AssetBarcode]=@AssetBarcode,[AssetName]=@AssetName,[AssetType]=@AssetType,[AssetDesc]=@AssetDes...