تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مطلوب كود للبحث
#1
السلام عليكم

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

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


الملفات المرفقة
.rar   The Car.rar (الحجم : 228.93 ك ب / التحميلات : 63)
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

أي مشروع تقصد، هل المشروع في الموضوع السابق؟
الرد }}}
تم الشكر بواسطة: أبووسم
#3
(31-03-17, 05:48 PM)مساعدة كتب : السلام عليكم

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

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

تم التعديل
الرد }}}
تم الشكر بواسطة:
#4
تفضل التعديل مع إضافة زر لإظهار كافة البيانات مثل قبل البحث
كود :
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
الرد }}}
تم الشكر بواسطة: أبووسم , أبووسم
#5
يعجز لساني عن شكرك ، فلك مني صالح الدعاء في يوم هذا الجمعة الكريم

اللهم أسعده و حقق أمانية و أرزقه من واسع فضلك
الرد }}}
تم الشكر بواسطة:
#6
وهذا حل آخر بالكود ضع الكود في زر البحث لديك وشاهد النتجية  

كود :
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


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

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

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

وياك ومن تحب .

كـعـادتــك دائماً حريص و متألق في الردود على الاعضاء ، جزاك الله خير وكثر من أمثالك
الرد }}}
تم الشكر بواسطة:
#10
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"
الرد }}}
تم الشكر بواسطة: أبووسم



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم