[new_programer]

السلام عليكم 

كل عام وانتم جميعا بخير 

لدي دالة  تقوم براجع القيمة True  Or False

لكن انا اريد ارجاع القيمة 0   او    1 
لكن عند تحقق القيمة 1   بترجع -1  
اريد القيم ترجع 1
مرفق الكود 

كود :

Public Function CheckPermiss(ByVal ColumnName As String, ByVal UserCodeID As Integer)
       Dim NumberUSR As Integer                       'Count_ID_UserPass(txt_username.Text, txt_pass.Text) If CheckPermiss("Frm_Save", mUserCode, "1") = 0 Then
       'Dim NumberUSR As String
       Try
           Dim cmd As New SqlCommand("select " & ColumnName & " from UserPermissionsTbl where UserCodeID=@UserCodeID", conn)
           cmd.Parameters.Add("@UserCodeID", SqlDbType.Int).Value = UserCodeID
         
           If conn.State = ConnectionState.Closed Then conn.Open()
           NumberUSR = cmd.ExecuteScalar
           conn.Close()
       Catch ex As Exception
           NumberUSR = 0
           conn.Close()
       End Try
       Return NumberUSR
   End Function

[atefkhalf2004]

يمكنك وضع شرط اذا كان الناتج -1 يتم ضربه في -1 فيكون الناتج 1
if number=-1 then number=1

[Taha Okla]

وعليكم السلام ورحمة الله وبركاته

عدل الجزئية من الكود بالكود التالي :

كود :

NumberUSR = Math.Abs(cmd.ExecuteScalar)

--
الأفضل أن تجعل برنامجك يقبل الافتراضيات  التي بنت عليها مايكروسوفت
حيث أنها تعتبر أن 
True = -1

و أن الـ 
False = 0

[new_programer]

Taha Okla

تسلم استاذي الفاضل

[تركي الحلواني]

PHP كود :

Public Function CheckPermiss(ByVal ColumnName As String, ByVal UserCodeID As Integer) As Boolean
 
    Try
        Dim cmd As New SqlCommand("SELECT " & ColumnName & " FROM UserPermissionsTbl WHERE UserCodeID=@UserCodeID", conn)
        cmd.Parameters.Add("@UserCodeID", SqlDbType.Int).Value = UserCodeID

        If conn.State = ConnectionState.Closed Then conn.Open()
        Dim result As Object = cmd.ExecuteScalar()
        conn.Close()

        If result IsNot Nothing AndAlso Not IsDBNull(result) Then
            Return  CBool(result)
        End If
    Catch ex As Exception
        conn.Close()
        Return False
    End Try
End Function