22-10-22, 06:19 PM
السلام عليكم لدي كود تالي اريد في حالة كمية مدخله اكبر من موجوده يظهر رسالة خطا هدا محاولتي في كود مع كود اجراء مخزن
هدا اجراء مخزن
كود :
Private Sub txtprice_KeyDown(sender As Object, e As KeyEventArgs) Handles txtprice.KeyDown
If e.KeyCode = Keys.Enter Then
Dim parm(2) As SqlParameter
parm(0) = New SqlParameter("@id_product", SqlDbType.Int)
parm(0).Value = txtid.Text
parm(1) = New SqlParameter("@qty_entered", SqlDbType.Int)
parm(1).Value = txtqty.Text
cmd = New SqlCommand("Veryifqty", Module1.con)
cmd.CommandType = CommandType.StoredProcedure
da = New SqlDataAdapter(cmd)
da.Fill(dt)
If dt.Rows.Count < 1 Then
MessageBox.Show("كمية المدخلة لهدا المنتج غير متاحه")
For i As Integer = 0 To DGV_PRODUCT.Rows.Count - 1
If DGV_PRODUCT.Rows(i).Cells(0).Value = txtid.Text Then
MsgBox("هدا المنتج موجود مسبقا", MsgBoxStyle.Critical, "تحذير")
cl()
Exit Sub
End If
Next
Dim row As DataRow = dt.NewRow
row(0) = txtid.Text
row(1) = txtlabel.Text
row(2) = txtqty.Text
row(3) = txtprice.Text
row(4) = txtamount.Text
dt.Rows.Add(row)
Me.DGV_PRODUCT.DataSource = dt
cl()
tootal()
End If
End If
End Subكود :
create proc Veryifqty
@ID_product int , @qty_Entered int
as
select *from PRODUCTS
where ID_product=@ID_product and Qty>@qty_Entered