[أبووسم]

السلام عليكم

المشروع جاهز ،، فقط اريد كود بحث ... المشروع المرفق

شاكر و مقدر للجميع

[مساعدة]

السلام عليكم

أي مشروع تقصد، هل المشروع في الموضوع السابق؟

[أبووسم]

(31-03-17, 05:48 PM)مساعدة كتب : السلام عليكم

أي مشروع تقصد، هل المشروع في الموضوع السابق؟

أعتذر منك لم يتم ارفاق المشروع في الموضوع

تم التعديل

[مساعدة]

تفضل التعديل مع إضافة زر لإظهار كافة البيانات مثل قبل البحث

كود :

Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'CarDataSet.AllCars' table. You can move, or remove it, as needed.
        Me.AllCarsTableAdapter.Fill(Me.CarDataSet.AllCars)

        'تغيير لغة المفاتيح للعربية
        InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages.Cast(Of InputLanguage).Where(Function(x) x.Culture.Name.ToLower.StartsWith("ar")).FirstOrDefault()

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        TextBox2.Focus()
        TextBox2.SelectAll()
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        TextBox3.Focus()
        TextBox4.SelectAll()
    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
        TextBox4.Focus()
        TextBox4.SelectAll()
    End Sub

    Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
        If (e.KeyChar < "0" Or e.KeyChar > "9") And e.KeyChar <> ControlChars.Back Then e.Handled = True
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Dim cars As String = Me.TextBox1.Text & " " & Me.TextBox2.Text & " " & Me.TextBox3.Text & " " & Me.TextBox4.Text
        cars = cars.Trim.Replace("ه", "هـ")
        AllCarsBindingSource.Filter = "[cars]='" & cars & "'"

        TextBox1.Focus()
        TextBox1.SelectAll()

    End Sub

    'زر إضافة لإظهر كافة البيانات
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        AllCarsBindingSource.Filter = ""

    End Sub

End Class

[أبووسم]

يعجز لساني عن شكرك ، فلك مني صالح الدعاء في يوم هذا الجمعة الكريم

اللهم أسعده و حقق أمانية و أرزقه من واسع فضلك

[حريف برمجة]

وهذا حل آخر بالكود ضع الكود في زر البحث لديك وشاهد النتجية  

كود :

If Button3.Text = "إبــــحــــث" Then
           Button3.Text = "لا تبحث"

           Dim newcars As String = TextBox1.Text & " " & TextBox2.Text & " " & TextBox3.Text & " " & TextBox4.Text
           Dim dp As New OleDb.OleDbDataAdapter("select * from AllCars where Cars = '" & newcars & "'", My.Settings.CarConnectionString)
           Dim ds As New DataSet
           dp.Fill(ds)
           DataGridView1.DataSource = ds.Tables(0)

       Else
           Button3.Text = "إبــــحــــث"
           'إرجاع البيانات كاملة
           DataGridView1.DataSource = AllCarsBindingSource
       End If

ولكن حل الاستاذ مساعدة جميل لأنه تعامل مع البيانات الموجودة في الذاكرة ،،،

عكسي انا فتحت الداتا بيز وسحبت البيانات منها

[مساعدة]

جزاكم الله خير أستاذ أبووسم وأستاذ حريف برمجة

[حريف برمجة]

(31-03-17, 08:16 PM)مساعدة كتب : جزاكم الله خير أستاذ أبووسم وأستاذ حريف برمجة

وياك ومن تحب .

[أبووسم]

(31-03-17, 08:25 PM)حريف برمجة كتب :

(31-03-17, 08:16 PM)مساعدة كتب : جزاكم الله خير أستاذ أبووسم وأستاذ حريف برمجة

وياك ومن تحب .

كـعـادتــك دائماً حريص و متألق في الردود على الاعضاء ، جزاك الله خير وكثر من أمثالك

[مصطفى الجازوي]

If Not IsNumeric(TextBox1.Text) Then
MsgBox("ارجو ادخال رقم التسجيل")
Exit Sub
End If
sql = "select ( n,n1,n2,......Nn)or (*) from Table Name where The primary key field=" & TextBox1.Text
DataAdapter.SelectCommand = New SqlCommand(sql, connection)
DataSet.Clear()
DataAdapter.Fill(DataSet, " Table Name")
If (DataSet.Tables(" Table Name").Rows.Count = 0) Then
MsgBox("الكتاب غير موجود")
Exit Sub
End If
''''''''''''''''''
DataSet.Clear()
DataGridView1.DataSource = DataSet
DataGridView1.DataMember = " Table Name"