+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] البحث بالاجراءات المخزنة (/showthread.php?tid=25697)
البحث بالاجراءات المخزنة - محمد اسماعيل - 11-07-18
السلام عليكم
عندي قاعدة بيانات سيكول 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 TryRE: البحث بالاجراءات المخزنة - Done - 11-07-18
طريقة استدعاء الاجراء المخزن
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
RE: البحث بالاجراءات المخزنة - محمد اسماعيل - 11-07-18
(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 مشاكل .
- لا يبحث في كلا الجوانب ===>كما يبحث الكود الذي وضعتة بدون اجراء مخزن
- لايقوم باعادة ملا الداتا جريد اذا فرغت التيكست ولا يوجد بها مايتم البحث عنة ===>كما يبحث الكود الذي وضعتة بدون اجراء مخزن
RE: البحث بالاجراءات المخزنة - Done - 11-07-18
عدل الاجراء
PHP كود :
Select * From STUD_TB Where STUDNAME_TB LIKE '%'+Trim(@STUDNAME_TB)+'%' or STUDNOTE_TB LIKE '%'+Trim(@STUDNOTE_TB)+'%' Order By id
RE: البحث بالاجراءات المخزنة - محمد اسماعيل - 11-07-18
(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
ولا يبحث بكلا الجوانب او يستعيد البيانات اذا كانت التيكست الخاصة بالبحث فارغة
ارفع مثال بسيط للايضاح
RE: البحث بالاجراءات المخزنة - Done - 11-07-18
عفوا لم انتبه ان 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
RE: البحث بالاجراءات المخزنة - محمد اسماعيل - 11-07-18
(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
اسال الله ان يكرمك في الدنيا والاخرة كما اكرمتني
ويسر الله لك كل امر عسير
تم الحل
RE: البحث بالاجراءات المخزنة - ابراهيم ايبو - 12-07-18
[attachment=18798][attachment=18798]السلام عليكم اخوتي الكرام هذا مثال بسيط لعرض الاجراء المخزن
اولا يجب تغيير جملة الاتصال وفق السيرفر لديكم وعند التشغيل نضع اسم قاعدة البيانات واسم الاجراء المخزن
اما ان رغبتم في الاكواد فهذا خباركم