تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكلة في كود البحث
#1
السلام عليكم ورحمة الله و بركاته 

الأخوة الأعزاء محتاج مساعدة منكم والسؤال كالتالي : -

في عملية البحث  أريد أن أبحث عن ActionName و VolationFees من خلال VolationCode و ActionNumber

الأكواد كالتالي : 

الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله و بركاته

أخي الكريم، لا تتعب من يريد مساعدك بوضع صورة للأكواد،

ضع الأكواد نصاً، بارك الله فيك

المشكلة في الدالة VolationCode الموضوعة في (cmd.Parameters.Add(VolationCode
الرد }}}
تم الشكر بواسطة:
#3
شكرا لك أخي الكريم 

الأكواد كالتالي 

Data 
كود :
Friend Function Load_Volations_Details(ByRef dr As SqlDataReader, ByVal VolationCode As Integer, ByVal ActionNumber As Integer)
           Dim cmd As New SqlCommand("Load_Volations_Details")
           cmd.Parameters.Add("@VolationCode", SqlDbType.Int).Value = CType(VolationCode, Integer)
           cmd.Parameters.Add("@ActionNumber", SqlDbType.Int).Value = CType(ActionNumber, Integer)
           
           Dim retval As Integer = dm.executeReader(cmd, dr)
           Return retval
       End Function


Business 
كود :
Public Function Load_Volations_Details(ByVal VolationCode As Integer, ByVal ActionNumber As Integer)
           p.Load_Volations_Details(dr, VolationCode, ActionNumber)
           Return dr
       End Function


SearchBtn
كود :
ActionOneName.Text = p.Load_Volations_Details(txtFineCode.Text, ActionOne.Text)
       ActionOneFees.Text = p.Load_Volations_Details(txtFineCode.Text, ActionOne.Text)
الرد }}}
تم الشكر بواسطة:
#4
المشكلة كما ذكرتها لك في المتغير أوالدالة VolationCode وكذلك على ما أعتقد ActionNumber

فأكوادك ناقصة ليتضح الأمر

فلو ترفق مشروع مصغر فإنه يساعد على الإجابة السريعة.
الرد }}}
تم الشكر بواسطة:
#5
النموذج في المرفقات 

شكرا جزيلا ...


الملفات المرفقة
.rar   xy.rar (الحجم : 379.79 ك ب / التحميلات : 40)
الرد }}}
تم الشكر بواسطة:
#6
جرب هذا التعديل وطبق نفس الأسلوب مع كل Parameter
كود :
cmd.Parameters.AddWithValue("@VolationCode",VolationCode)

أمر آحر: هل Load_Volations_Details هو StoredProcedure؟
إذا كان كذلك فيبقى إبلاغ Command بأنه كذلك مثل
كود :
cmd.CommandType = CommandType.StoredProcedure
الرد }}}
تم الشكر بواسطة:
#7
تم التعديل لكن يظهر نفس الخطأ

Conversion from type 'SqlDataReader' to type 'String' is not valid.


Load_Volations_Details هو StoredProcedure
الرد }}}
تم الشكر بواسطة:
#8
ضع StoredProcedure هنا للتأكد منه
الرد }}}
تم الشكر بواسطة:
#9
كود :
ALTER PROCEDURE [dbo].[Load_Volations_Details]

@VolationCode int,
@ActionNumber int
as

begin

Select ActionNumber, VolationCode, VolationActionName, VolationFees from VolationsActionsTbl Where VolationCode = @VolationCode And ActionNumber = @ActionNumber
Return

End
وشكرا ..
الرد }}}
تم الشكر بواسطة:
#10
أخي الكريم

في Procedure يقوم بإرجاع عدة أعمدة وهي actionnumber,  volationcode,  volationactionname,  volationfees
في حين أن Function Load_Volations_Details يطلب منه قراءة واحدة قيمة Integer

فهناك عدم تطابق المطلوب

فماذا تريد من Procedure Load_volations_details ومن Function Load_Volations_Details أن يقوما به

كود :
ALTER PROCEDURE [dbo].[Load_volations_details]
 @VolationCode INT,
 @ActionNumber INT
AS
 BEGIN
     SELECT actionnumber,
            volationcode,
            volationactionname,
            volationfees
     FROM   volationsactionstbl
     WHERE  volationcode = @VolationCode
            AND actionnumber = @ActionNumber

     RETURN
 END


والمرفق لم يفتح معي لاختلاف الإصدار


أيضا طريقة قراءة executeReader خطأ
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم