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

أين الخطأ في أمر البحث هذا ؟؟؟

مغلق
بدأه alwan في 24 سبتمبر 2003 · 2 رد · 889 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أين الخطأ في هذا الأمر علماً بأن هذا الأمر حسب علمي للبحث ...

Private Sub BSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BSearch.Click

Dim dr As DataRow

Dim co As Integer = 0

Dim name As String = TSearch.Text

' Try

If name = "" Then

MsgBox("pla. wirte the Computuer Name in this Box", MsgBoxStyle.Critical, "Ammar")

TSearch.Focus()

Else

name = TSearch.Text

Me.DataSet11.Tables("ginformation").DefaultView.RowFilter = "computer_name" & name '(index, 0)

If Me.DataSet11.Tables("ginformation").DefaultView.Count = 0 Then

MsgBox(" Sorry the Computer Name not included in our Data", MsgBoxStyle.Information, "Computer Information Search")

Else

For Each dr In Me.DataSet11.Tables("ginformation").Rows

If String.Compare(dr("computer_name").ToString, name) = 0 Then

Me.BindingContext(DataSet11, "ginformation").Position = Me.BindingContext(DataSet11, "ginformation").Position

Me.Record_ChangePo()

End If

co += 1

Next

End If

End If

' End Try

End Sub

الرجاء مساعدتي بهذا الأمر لأنه من غير عملية البحث أعتبر برنامجي لا يعمل ... ولكم الشكر

#2

السلام عليكم

جرب تحط يساوي بعد الكلمة computer_name وتكن ضمن علامة التنصيص 

"computer_name="

بدون تجربة طبعاً

السلام عليكم

في المثال يتضح المقال

#3

السلام عليكم

أخى العزيز من الوهلة الأولى يبدو انك نسيت تحديد العلاقة بين مفتاح البحث وقيمة البحث مثل = أو Like أو ماشابه ذلك واذا واجهتك مشكلة ابحث عن موضوع مشكلة البحث وحلها باسم HosamDahb ستجدبه الكود كامل والمشكلة فى هذا السطر على الأقل

Me.DataSet11.Tables("ginformation").DefaultView.RowFilter = "computer_name" & name '(index, 0)

يجب أن يكون

Me.DataSet11.Tables("ginformation").DefaultView.RowFilter = "computer_name = '" & name '(index, 0)

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

If Microsoft.VisualBasic.IsNothing(ColHeader) = True Then

MessageBox.Show("فضلا اختر مفتاح البحث بالنقر على عنوان العمود بالجدول")

Exit Sub

End If

If TxtHelpSearch.Text = "" Then

DsHelp.Tables(0).DefaultView.RowFilter = ""

DGHelp.DataSource = DsHelp.Tables(0).DefaultView

SearchResult = False

Exit Sub

End If

Dim SearchKey As String = ColHeader

Dim ColSelected As DataColumn

ColSelected = DsHelp.QWakf.Columns(SearchKey)

With DsHelp.Tables(0)

' Filter the view so that only product names starting with a

' specified string are available.

'MessageBox.Show(ColSelected.ColumnName.ToString & " / " & ColSelected.ColumnMapping & " / " & ColSelected.DataType.ToString)

Select Case ColSelected.DataType.ToString

Case "System.String"

.DefaultView.RowFilter = SearchKey & " like '" & TxtHelpSearch.Text & "%'"

Case "system.DateTime"

.DefaultView.RowFilter = SearchKey & " =#" & TxtHelpSearch.Text & "#"

Case "System.Int32"

.DefaultView.RowFilter = SearchKey & " =" & TxtHelpSearch.Text

End Select

' Are there any matching products?

If .DefaultView.Count = 0 Then

MessageBox.Show("لا يوجد بيانات متوفرة.", "نتيجة البحث", MessageBoxButtons.OK, MessageBoxIcon.Information)

SearchResult = False

Else

SearchResult = True

End If

' By binding the grid to the DataView, the grid will now display

' only the matching rows.

DGHelp.DataSource = .DefaultView

هذا الموضوع مغلق.

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