الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة في البحث

بدأه thebest2 في 7 أغسطس 2008 · 4 رد · 704 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

احب أشكر جميع الاعضاء على المجهود اللي بحوه في هذا المنتدى

ان نزلت كتاب الكامل في قواعد البيانات وماشاء الله اكثير استفدت منه ولكن في مشكلة واجهتني

انه لما بدي ابحث بعطيني ناتج ولكن لما بدي اكرر عملية البحث يقوم باعطاء الاخطاء

فهل أجد مساعدة لديكم

ومشكورين :blink: :blink: :blink:

#2

عروستى .....!!! :unsure:

فين السؤال وضح السؤال لو سمحت شوية

علشان تلاقى اجابه سريعه

:blush:

ولدي إليك وصيتي عهد الأسودْ

العز غايتنا نعيش لكي نسود

و عريننا في الأرض معروف الحدود

فاحم العرين و صنه عن عبث القرود

أظفارنا للمجد قد خُلقت فدى

و نيوبنا سُنَّت بأجساد العدى

و زئيرنا في الأرض مرهوب الصدى

نعلي على جثث الأعادي السؤددا

#3

كود البحث

اقتباس

Static m As Integer = 0

If TextBox1.Text = Trim("") Then Exit Sub

If RadioButton4.Checked = True Then

ExactSearch()

ElseIf RadioButton5.Checked = True Then

GeneralSearch()

End If

Conn.Open()

Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)

DataAdapter1.Fill(DataSet1, "Table1")

Conn.Close()

TextBox2.DataBindings.Add("Text", DataSet1, "Table1.Name")

TextBox3.DataBindings.Add("Text", DataSet1, "Table1.City")

TextBox4.DataBindings.Add("Text", DataSet1, "Table1.mobile")

DataGridView1.DataSource = DataSet1

DataGridView1.DataMember = "Table1"

Button1.Enabled = False

If Me.BindingContext(DataSet1, "Table1").Count = 0 Then

MsgBox("No Result, Please Try Again ")

Exit Sub

End If

Public Sub ExactSearch()

If RadioButton1.Checked = True Then

SQLstr = "SELECT * FROM Table1 WHERE name = '" & TextBox1.Text & "'"

ElseIf RadioButton2.Checked = True Then

SQLstr = "SELECT * FROM Table1 WHERE City = '" & TextBox1.Text & "'"

ElseIf RadioButton3.Checked = True Then

SQLstr = "SELECT * FROM Table1 WHERE mobile = '" & TextBox1.Text & "'"

End If

End Sub

Public Sub GeneralSearch()

If RadioButton1.Checked = True Then

SQLstr = "SELECT * FROM Table1 WHERE name LIKE '%" & TextBox1.Text & "%'"

ElseIf RadioButton2.Checked = True Then

SQLstr = "SELECT * FROM Table1 WHERE City LIKE '%" & TextBox1.Text & "%'"

ElseIf RadioButton3.Checked = True Then

SQLstr = "SELECT * FROM Table1 WHERE mobile LIKE '%" & TextBox1.Text & "%'"

End If

End Sub

المشكلة في هذا الكود انه ما يقبل انه يعمل عمليتن بحث متتاليتن بل عند عمل بحث مرة ثانية بعطيني رسالة أنه قيم بالمتغيرات التالية

اقتباس
TextBox2.DataBindings.Add("Text", DataSet1, "Table1.Name")

TextBox3.DataBindings.Add("Text", DataSet1, "Table1.City")

TextBox4.DataBindings.Add("Text", DataSet1, "Table1.mobile")

ارجو ان اكون قد وضحث المشكلة :resentful: :resentful:

:ty: :ty:

#4

المشكلة بالـ DataBindings

استخدم هذا الاسلوب بدلا من DataBindings

TextBox2.Text = DataSet1.Tables.Item("Table1").Rows.Item(0).Item(0)
		TextBox3.Text = DataSet1.Tables.Item("Table1").Rows.Item(0).Item(1)
		TextBox4.Text = DataSet1.Tables.Item("Table1").Rows.Item(0).Item(2)

تحياتي

#5

مشكور على التفاعل وجاري التجربة

مواضيع مشابهة