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

نسخة كاملة : البحث بالاجراءات المخزنة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

عندي قاعدة بيانات سيكول 2014

اريد البحث بالاجراءات المخزنة عملت الاجراء بالشكل دة


كود :
SEARCH--

CREATE proc searchtb

 @STUDNAME_TB nchar(10), @STUDNOTE_TB nchar(10)

 as

 select * from STUD_TB where STUDNAME_TB=@STUDNAME_TB or STUDNOTE_TB=@STUDNOTE_TB order by id


كود البحث العادي لدي بدون الاجراء
كود :
Try
           Dim searchQuery As String = "Select * From STUD_TB Where STUDNAME_TB LIKE '%" & Trim(Me.TextSEARCH.Text) & "' or STUDNOTE_TB LIKE '%" & Trim$(TextSEARCH.Text) & "%'"

           Dim command As New SqlCommand(searchQuery, conns)
           Dim adapter As New SqlDataAdapter(command)
           Dim table As New DataTable()

           adapter.Fill(table)

           DataGridView1.DataSource = table
       Catch ex As Exception

       End Try
طريقة استدعاء الاجراء المخزن
PHP كود :
Try
 
   Dim command As New SqlCommand("searchtb"conns)
 
   command.Parameters.AddWithValue("@STUDNAME_TB"Trim(Me.TextSEARCH.Text))
 
   command.Parameters.AddWithValue("@STUDNOTE_TB"Trim(Me.TextSEARCH.Text))
 
   command.CommandType CommandType.StoredProcedure
    Dim adapter 
As New SqlDataAdapter(command)
 
   Dim table As New DataTable()

 
   adapter.Fill(table)

 
   DataGridView1.DataSource table
Catch ex As Exception
    MsgBox
(ex.Message)
End Try 
(11-07-18, 05:02 PM)Done كتب : [ -> ]طريقة استدعاء الاجراء المخزن
PHP كود :
Try
 
   Dim command As New SqlCommand("searchtb"conns)
 
   command.Parameters.AddWithValue("@STUDNAME_TB"Trim(Me.TextSEARCH.Text))
 
   command.Parameters.AddWithValue("@STUDNOTE_TB"Trim(Me.TextSEARCH.Text))
 
   command.CommandType CommandType.StoredProcedure
    Dim adapter 
As New SqlDataAdapter(command)
 
   Dim table As New DataTable()

 
   adapter.Fill(table)

 
   DataGridView1.DataSource table
Catch ex As Exception
    MsgBox
(ex.Message)
End Try 


- شكرا علي ردك

الكود سبق ووضعتة بنفس الشكل بس في 2 مشاكل .

- لا يبحث في كلا الجوانب   ===>كما يبحث الكود الذي وضعتة بدون اجراء مخزن
- لايقوم باعادة ملا الداتا جريد اذا فرغت التيكست ولا يوجد بها مايتم البحث عنة ===>كما يبحث الكود الذي وضعتة بدون اجراء مخزن
عدل الاجراء
PHP كود :
Select From STUD_TB Where STUDNAME_TB LIKE '%'+Trim(@STUDNAME_TB)+'%' or STUDNOTE_TB LIKE '%'+Trim(@STUDNOTE_TB)+'%' Order By id 
(11-07-18, 06:04 PM)Done كتب : [ -> ]عدل الاجراء
PHP كود :
Select From STUD_TB Where STUDNAME_TB LIKE '%'+Trim(@STUDNAME_TB)+'%' or STUDNOTE_TB LIKE '%'+Trim(@STUDNOTE_TB)+'%' Order By id 

كل الشكر والاحترام علي ردك ومتابعة موضوعي

خطا الاجراء لدي

كود :
Msg 195, Level 15, State 10, Procedure searchtb, Line 16
'Trim' is not a recognized built-in function name.



حذفت  TRIM

ولا يبحث بكلا الجوانب او يستعيد البيانات اذا كانت التيكست الخاصة بالبحث فارغة

ارفع مثال بسيط للايضاح
عفوا لم انتبه ان Trim مدعومة فقط من 2017 وما بعد
تفضل التعديل للاصدارات الاقدم من 2017
PHP كود :
Select From STUD_TB Where STUDNAME_TB LIKE '%'+LTRIM(RTRIM(@STUDNAME_TB))+'%' or STUDNOTE_TB LIKE '%'+LTRIM(RTRIM(@STUDNOTE_TB))+'%' Order By id 
(11-07-18, 06:20 PM)Done كتب : [ -> ]عفوا لم انتبه ان Trim مدعومة فقط من 2017 وما بعد
تفضل التعديل للاصدارات الاقدم من 2017
PHP كود :
Select From STUD_TB Where STUDNAME_TB LIKE '%'+LTRIM(RTRIM(@STUDNAME_TB))+'%' or STUDNOTE_TB LIKE '%'+LTRIM(RTRIM(@STUDNOTE_TB))+'%' Order By id 





اسال الله ان يكرمك في الدنيا والاخرة كما اكرمتني

 ويسر الله لك كل امر عسير

تم الحل
[attachment=18798][attachment=18798]السلام عليكم اخوتي الكرام هذا مثال بسيط لعرض الاجراء المخزن 
اولا يجب تغيير جملة الاتصال وفق السيرفر لديكم وعند التشغيل نضع اسم قاعدة البيانات واسم الاجراء المخزن
اما ان رغبتم في الاكواد فهذا خباركم