قمت بعمل اجراء مخزن يستقبل اثنين بارميتير واحد ادخال والاخر اخراج ولكن عند تنفيذه تظهر رسالة خطأ حاولت حلها لكنني لم استطع وهذا هو الكود الخاص بالاجراء
Private Function Found(ByVal StoredName As String, ByVal InputParamName As String, ByVal InputData As String) As Integer
Try
DoConn()
Dim cmdFound As New SqlCommand(StoredName, Conn)
Using cmdFound
With cmdFound
.CommandType = CommandType.StoredProcedure
Dim FoundPhone As New SqlParameter
.Parameters.Clear()
With FoundPhone
.DbType = DbType.String
.Direction = ParameterDirection.Output
.ParameterName = "@Found"
End With
.Parameters.Add(FoundPhone)
.Parameters.AddWithValue(InputParamName, InputData)
.ExecuteNonQuery()
Found = CInt(FoundPhone.Value)
End With
End Using
Catch ex As Exception
ex.ToString()
Finally
DoCloseConn(Conn)
End Try
End Functionوهذه هي صورة الخطأ
