+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : البحث بقاعدة البيانات سيكول سيرفر (/showthread.php?tid=25644)
البحث بقاعدة البيانات سيكول سيرفر - محمد اسماعيل - 06-07-18
السلام عليكم
عندي قاعدة بيانات سيكول سيرفر مرفوعة اونلاين باستضافة اريد افضل طريقة للبحث
استخدمت الطريقة الاتية ولكن لاتعمل
PHP كود :
Try
If IsNumeric(TextBox1.Text) = False Then
Dim DataAdapter As New SqlDataAdapter("SELECT * FROM Table_TB WHERE NAME_TB LIKE '%" & Trim$(TextBox1.Text) & "%'", conns)
conns.Open()
ds.Clear()
DataAdapter.Fill(ds, "Table_TB")
If Me.BindingContext(ds, "Table_TB").Count = 0 Then
MsgBox("لم يتم العثور على شيء", 48 + MsgBoxStyle.MsgBoxRight, "البحث")
TextBox1.Text = ""
conns.Close()
Exit Sub
Else
ds.Clear()
ConnectSERVER()
conns.Close()
Exit Sub
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
RE: البحث بقاعدة البيانات سيكول سيرفر - سعود - 06-07-18
ds.Clear()
لو وجد صفوف فلقد اجبرته على حذفها
RE: البحث بقاعدة البيانات سيكول سيرفر - محمد اسماعيل - 06-07-18
(06-07-18, 08:22 PM)سعود كتب : ds.Clear()
لو وجد صفوف فلقد اجبرته على حذفها
اسف علي عدم التركيز انا في وضع النوم دلوقتي
اهم شيء الكود لايعمل
وطبيعة الكود الي كنت بستخدمة سابقا علي ما اعتقد غير جيد مع البحث اونلاين
RE: البحث بقاعدة البيانات سيكول سيرفر - سعود - 06-07-18
اخي الكريم لو ترفع مثال بسيط من دون معلومات الاتصال لكي يتم التعديل وعليك التجربة.
RE: البحث بقاعدة البيانات سيكول سيرفر - elgokr - 06-07-18
كل ما عليك استخدام هذا الكود بعد ما تم التعديل عليه
كود :
Try
If IsNumeric(TextBox1.Text) = False Then
ds.Clear()
Dim DataAdapter As New SqlDataAdapter("SELECT * FROM Table_TB WHERE NAME_TB LIKE '%" & Trim$(TextBox1.Text) & "%'", conns)
conns.Open()
DataAdapter.Fill(ds)
If ds.Rows.Count() = 0 Then
MsgBox("لم يتم العثور على شيء", 48 + MsgBoxStyle.MsgBoxRight, "البحث")
TextBox1.Text = ""
conns.Close()
Exit Sub
Else
ConnectSERVER()
conns.Close()
Exit Sub
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Tryتحياتى لك
وتمنياتى لك التوفيق
RE: البحث بقاعدة البيانات سيكول سيرفر - محمد اسماعيل - 06-07-18
(06-07-18, 08:36 PM)سعود كتب : اخي الكريم لو ترفع مثال بسيط من دون معلومات الاتصال لكي يتم التعديل وعليك التجربة.
طيب ارفع معاة قاعدة بيانات
RE: البحث بقاعدة البيانات سيكول سيرفر - سعود - 06-07-18
إقتباس :طيب ارفع معاة قاعدة بياناتاخي الكريم لا فرق بين الاتصال عن قرب او عن بعد
انظر للامثلة اللتي تم عملها بقسم المشاريع .
اخيانا لحبي للنقاش ابدا وكاني لاول مرة اشاهد سؤالا معينا.
آخر مثال عملته ستجد به كل ماتريد فقط استثني جملة الاتصال
RE: البحث بقاعدة البيانات سيكول سيرفر - محمد اسماعيل - 07-07-18
(06-07-18, 09:13 PM)سعود كتب :إقتباس :طيب ارفع معاة قاعدة بياناتاخي الكريم لا فرق بين الاتصال عن قرب او عن بعد
انظر للامثلة اللتي تم عملها بقسم المشاريع .
اخيانا لحبي للنقاش ابدا وكاني لاول مرة اشاهد سؤالا معينا.
آخر مثال عملته ستجد به كل ماتريد فقط استثني جملة الاتصال
وفقك الله لكل خير
تم غلق الموضوع