Не существует сопоставления типа объекта system.windows.forms.textbox с известным собственным типом управляемого поставщика
SqlStr = "вставить в [dbo].[Активы] ([AssetID],[AssetBarcode],[AssetName],[AssetType],[AssetDesc],[Store],[AssetLocation],[Manufature],[Brand],[Model],[AssetMore],[AssetSNo],[AssetTotal],[Status],[Condition],[AssetExpiry],[AssetNotes],[PhotoPath],[AssetVendor],[AssetPurRate],[AssetScrap],[AssetYear],[AssetPurDate],[AssetServiceStartDate],[AssetWarranty],[AssetDepreciation],[AssetDepreciationRate]) ценности " _
& " (@AssetID,@AssetBarcode,@AssetName,@AssetType,@AssetDesc,@Store,@AssetLocation,@Manufature,@Brand,@Model,@AssetMore,@AssetSNo,@AssetTotal,@Status,@Condition,@AssetExpiry,@AssetNotes,@PhotoPath,@AssetVendor,@AssetPurRate,@AssetScrap,@AssetYear,@AssetPurDate,@AssetServiceStartDate,@AssetWarranty,@AssetDepreciation,@AssetDepreciationRate) "
-Конец, Если
Попробуй
MAINCON.Параметр ConnectionString = Параметр ConnectionString
MAINCON.Открыть()
Dim DBF как новый SqlClient.SqlCommand(SqlStr, MAINCON)
С DBF.Параметры
.AddWithValue("@AssetID", TxtAssetID)
.AddWithValue ("@AssetBarcode", TxtAssetBarcode.Текст)
.AddWithValue ("@AssetName", TxtAssetName.Text)
.AddWithValue("@AssetType", TxtAssetType.Text)
.AddWithValue ("@AssetDesc", TxtDescr.Text)
.AddWithValue("@Склад", TxtStoreName.Текст)
.AddWithValue ("@AssetLocation", TxtLocation.Текст)
.AddWithValue("@Изготовление", TxtManufacture.Текст)
.AddWithValue (Бренд"@", TxtBrand.Текст)
.AddWithValue("@Модель", TxtModel.Текст)
.AddWithValue ("@AssetMore", TxtMoreInfo.Text)
.AddWithValue ("@AssetSNo", TxtSerialNumber.Text)
.AddWithValue ("@AssetTotal", TxtQty.Text)
.AddWithValue ("@Status", TxtAssetStatus.Текст)
.AddWithValue ("@Condition", txtCondition.Текст)
.AddWithValue("@AssetExpiry", TxtExpiry.Value)
.AddWithValue ("@AssetNotes", TxtNote.Text)
.AddWithValue ("@PhotoPath", PhotoPathForLedgers & "\Others\" & TxtAssetName.Текст & ".jpg")
.AddWithValue("@AssetVendor", TxtVendorName.Text)
.AddWithValue("@AssetPurRate", TxtPurRate.Text)
.AddWithValue("@AssetScrap", TxtScrapValue.Текст)
.AddWithValue ("@AssetYear", TxtYears.Text)
.AddWithValue("@AssetPurDate", TxtpurchaseDate.Ценность)
.AddWithValue("@AssetServiceStartDate", TxtServiceStartDate.Ценность)
.AddWithValue("@AssetWarranty", TxtWarrantyDate.Ценность)
.AddWithValue("@AssetDepreciation", TxtDepreMethod.Текст)
.AddWithValue("@AssetDepreciationRate", TxtDepRate.Text)
Конец С
ДБФ.Метод executenonquery()
DBF = ничего
MAINCON.Закрывать()
Поймать ex как исключение
С помощью MsgBox(исх.Сообщение)
Что я уже пробовал:
я попробовал добавить assetid.text, но не изменил никого, помогите мне заранее спасибо