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

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

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


الملفات المرفقة
.rar   The Car.rar (الحجم : 228.93 ك ب / التحميلات : 57)
الرد
تم الشكر بواسطة:
#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"
الرد
تم الشكر بواسطة: أبووسم


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo مطلوب كود لتقسيم نص لعدة نصوص من داخل ملف نصي Top King 8 258 07-05-19, 06:15 PM
آخر رد: asemshahen5
Exclamation مطلوب هذا البرنامج من فضلكم kador 7 210 21-04-19, 11:42 PM
آخر رد: elgokr
  [VB.NET] استعلام للبحث عن عدد تكرار كلمة في بيانات حقل واحد في سجل واحد tarek 0 123 24-03-19, 09:09 PM
آخر رد: tarek
  السلام عليكم محتاج كود صغير للبحث داخل الكمبو بوكس عن طريق الكمبو بوكس نفسه mohamedgadain61 2 183 19-03-19, 04:07 PM
آخر رد: mohamedgadain61
  مطلوب مثال لعرض بيانات كبيرة الحجم مع بروجرس بار new_programer 2 189 05-03-19, 06:28 AM
آخر رد: new_programer
Star مطلوب طرية عمل setup Aziz170020 0 142 11-02-19, 02:23 AM
آخر رد: Aziz170020
  مطلوب عرض تفاصيل بيانات داخل Texbox عن طريق ListView ... احتاج كود استعلام mohamedgadain61 9 439 30-01-19, 06:42 AM
آخر رد: حريف برمجة
  مطلوب معاينة المثال والمساعدة في تعديل الكود وفقكم الله فراس الغزي 8 367 29-01-19, 10:43 PM
آخر رد: فراس الغزي
  [SQL] مطلوب تعديل كود الاستعلام من جدولين غير مرتبطين فراس الغزي 10 457 18-01-19, 11:05 PM
آخر رد: asemshahen5
  [سؤال] عايز كود للبحث اسامه الهرماوي 1 221 28-11-18, 09:35 PM
آخر رد: حريف برمجة

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


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