錯誤與標量

Question

我嘗試使用下面的代碼在數據庫中的表中插入：

If MsgBox("Do you want to save '" & Me.TxtItemID.Text & "' & '" & Me.TxtRetail.Text & "'", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "(NS) - Save?") = MsgBoxResult.Yes Then 


Me.asInsert.SaveValueIN("INSERT INTO LUP_ITEMSZM (nCODE, sITEM_DESC, nUNIT_COST, nSTOCK, nUNIT_PRICE, sPIECE_DESC, sPIECE_PACK, sSTATUS , sSupplier_NAME) VALUES(@nCode, @sITEM_DESC, , @nUNIT_COST,@nSTOCK, @nUNIT_PRICE, @sPIECE_DESC,@sPIECE_PACK, @sSTATUS, @sSupplier_NAME)") 

SqlInsertCommand1.Parameters.Add(New SqlParameter("@nCODE", SqlDbType.BigInt)).Value = Me.TxtItemID.Text.Trim 
SqlInsertCommand1.Parameters.Add(New SqlParameter("@sITEM_DESC", SqlDbType.NVarChar)).Value = Me.txtItemDesc.Text.Trim 
SqlInsertCommand1.Parameters.Add(New SqlParameter("@nUNIT_COST", SqlDbType.Money)).Value = Me.TxtCost.Text.Trim 
SqlInsertCommand1.Parameters.Add(New SqlParameter("@nSTOCK", SqlDbType.BigInt)).Value = Me.TxtQtyStock.Text.Trim 
SqlInsertCommand1.Parameters.Add(New SqlParameter("@nUNIT_PRICE", SqlDbType.Money)).Value = Me.TxtRetail.Text.Trim 
SqlInsertCommand1.Parameters.Add(New SqlParameter("@sPIECE_DESC", SqlDbType.NVarChar)).Value = Me.TxtPcsDesc.Text.Trim 
SqlInsertCommand1.Parameters.Add(New SqlParameter("@sPIECE_PACK", SqlDbType.NVarChar)).Value = Me.TxtPPP.Text.Trim 
SqlInsertCommand1.Parameters.Add(New SqlParameter("@sSTATUS", SqlDbType.NVarChar)).Value = Me.DmnStatus.SelectedIndex 
SqlInsertCommand1.Parameters.Add(New SqlParameter("@sSupplier_NAME", SqlDbType.NVarChar)).Value = Me.CmbSupplier.SelectedItem.col1 

    Me.TxtItemID.Focus() 
End If 

我不斷收到以下錯誤：

必須聲明標量變量@ncode

請需要你assitance

謝謝

Answer 1

這很簡單。 @ncode是區分大小寫的。在使用標量的插入查詢中嘗試給@nCODE而不是@ncode。

Me.asInsert.SaveValueIN("INSERT INTO LUP_ITEMSZM (nCODE, sITEM_DESC, nUNIT_COST, nSTOCK, nUNIT_PRICE, sPIECE_DESC, sPIECE_PACK, sSTATUS , sSupplier_NAME) VALUES(@nCODE, @sITEM_DESC, , @nUNIT_COST,@nSTOCK, @nUNIT_PRICE, @sPIECE_DESC,@sPIECE_PACK, @sSTATUS, @sSupplier_NAME)") 

同時添加參數要添加爲@nCODE，並在插入查詢您正在使用它作爲@ncode。兩者應該是一樣的。

SqlInsertCommand1.Parameters.Add(New SqlParameter("@nCODE", SqlDbType.BigInt)).Value = Me.TxtItemID.Text.Trim