[]

(09-04-23, 10:36 PM)new_programer كتب : السلام عليكم 
لدي كود اجراء مخزن تم طرحة من احد الاخوة الافاضل . الطالب

 الكود  يفحص الباركود قبل الاضافة اذا كان موجودة و لا ان كانت موجود يظهر رسالة وان لا فايضيفها 

انا  محتاج لو الكود موجود  يطبع قيمة الباركود فى تكست بوكس

الكود

PHP كود :

ALTER PROCEDURE [dbo].[StoredProcedure2]


 @barCodeNo bigint OUTPUT,
    @barCode varchar(50) = ''  ,
    @itemCode int = 0
AS
    /* التأكد من إدخال بيانات */
    IF RTRIM(@barCode) = ''
    BEGIN
        RETURN 99999
    END

    /* التأكد من موجود سجل مسبق */
    IF EXISTS (SELECT [barCode] FROM [Uint_ItemsTbl] WHERE [barCode]=@barCode )
    BEGIN
   SELECT  @barCodeNo =  MAX(barCode) FROM Uint_ItemsTbl  WHERE itemCode=@itemCode AND barCode=@barCode 
   --محتاج ارجع بقيمة الاستعلام الى تكست بوكس فى الفورم 
        RETURN 55555
    END

    BEGIN TRY
        /* إدخال البيانات */
        INSERT INTO [Uint_ItemsTbl] ([barCode], [itemCode]) VALUES (@barCode, @itemCode)
    END TRY
    BEGIN CATCH
        RETURN -1
    END CATCH

    RETURN 0 


كود  VB.net

PHP كود :

     Using cmd As New SqlCommand("StoredProcedure2", conn)
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.AddWithValue("@itemCode", TxtGrossIncome.Text.Trim)
            cmd.Parameters.AddWithValue("@barCode ", txtPhone.Text.Trim)
            cmd.Parameters.AddWithValue("@barCodeNo ", txtbarCode.Text.Trim)
            Dim param As New SqlParameter("returnValue", Nothing)
            param.Direction = ParameterDirection.ReturnValue
            cmd.Parameters.Add(param)
            conn.Open()
            cmd.ExecuteNonQuery()
            conn.Close()
            Dim retVal As Integer = cmd.Parameters("returnValue").Value
            MsgBox("Return Value:  " & retVal)
            Select Case retVal
                Case 0
                    MsgBox("تمت إضافة البيانات")
                Case 99999
                    MsgBox("يجب إدخال بيانات")
                Case 55555
                    MsgBox("الاسم موجود مسبقاً" & retVal & vbNewLine & "@barCodeNo")
                Case Else
                    MsgBox("Return Value:  " & retVal & vbNewLine & "فشل")
            End Select
        End Using 


---

انا بعمل استعلام عن هل يوجد باركود   لصنف   مع مورد

لو موجود   انا محتاج ارجع نفس الباركود الى الفورم

لا توجد مشكلة في الكود والStored Procedure

لكن طالما ظهرت لك رسالة بأن الباركود موجود
فأنت من الأساس وضعته في txtbarCode
يعني مكتوب لديك أصلا، فما المشكلة!