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

اضف مربع نص وزر امر واداة شبيكة البيانات
التعريفات العامة توضع بمنطقة التصريحات العامة

كود :
Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
Dim con As New OleDb.OleDbConnection(str)
Dim sql As String = "select * from tb"
Dim ds As New DataSet
Dim da As New OleDb.OleDbDataAdapter(sql, con)
في حدث تحميل الفورم اكتب:

كود :
ds.Clear()
DataGridView1.DataSource = Nothing
DataGridView1.DataMember = Nothing

da.Fill(ds, "tb")
DataGridView1.DataSource = ds
DataGridView1.DataMember = "tb"
اكتب عدة كلمات في مربع النص مثلا (السلام عليكم ورحمة الله وبركاته)
وضع بقاعدة البيانات مختارات من هذه الكلمات واضف كلمات اخرى وانظر ماذا يفعل الكود التالي تضعه بحدث النقر لزر الامر

كود :
Dim p() As String = TextBox1.Text.Split(" ")
Dim ds1 As New DataSet


For Each s In p
Dim sql1 As String = "select * from tb where tname='" & s & "'"
Dim da1 As New OleDb.OleDbDataAdapter(sql1, con)


da1.Fill(ds1, "tb")
Next
DataGridView1.DataSource = ds1
DataGridView1.DataMember = "tb"
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود لعمل تحجيم تلقائي -AutoSize- لأداة مربع النص TextBox sooriaty03 7 1,621 29-05-16, 01:01 AM
آخر رد: CLARO
  كود لجعل أداة النص لا تقبل إلا الأرقام sooriaty03 11 1,989 29-05-16, 12:59 AM
آخر رد: CLARO
  برنامج البحث عن الملفات الفارغه بجهازك وحذفها RaggiTech 0 483 17-10-12, 08:50 PM
آخر رد: RaggiTech
  كود عرض مربع حوار خصائص الملفات والمجلدات RaggiTech 0 345 17-10-12, 07:27 PM
آخر رد: RaggiTech
  لافراغ جميع مربعات النص textboxes RaggiTech 0 298 17-10-12, 05:21 PM
آخر رد: RaggiTech
  كود خاص لمعرفة كلمة السر لملفات Access 97 RaggiTech 0 355 17-10-12, 05:14 PM
آخر رد: RaggiTech
  النسخ و اللصق من النص الي Windows Clipboard RaggiTech 0 260 17-10-12, 05:03 PM
آخر رد: RaggiTech
  اعادة تعيين حجم زر الأمر بناء على حجم النص RaggiTech 0 200 17-10-12, 04:49 PM
آخر رد: RaggiTech

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


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