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

خطأ في بحث و فرز بالداتا قريد

بدأه يوسف احمد في 8 أبريل 2014 · 2 رد · 531 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم و رحمة الله و بركاته

 

احاول تطبيق مثال للاستاذ الغالي محمد فؤاد فجزاه الله كل خير على ما يبذله من جهود لخدمة الجميع  .... و يحدث معي خطأ بعدم التعرف على قاعدة البيانات ...  علماً بأنني استخدم الاكسس 2013 و قاعدة البيانات على القرص الصلب D

 

 

مرفق الملف

 

 

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

SearchDataGridApplication.rar

تم تعديل هذه المشاركة بواسطة يوسف احمد في 8 أبريل 2014 في 03:09

#2

أخي الفاضل يوسف أحمد

الخطأ كان في سلسلة الاتصال

مرفق الكود كامل بعد عمل التعديلات عليه

Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    Dim cnstr As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\datagridsearch.mdb")
    Dim da As New OleDbDataAdapter("select * from table1", cnstr)
    Dim ds As New DataSet
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load


        da.Fill(ds, "table1")
        DataGridView1.DataSource = ds.Tables(0)


    End Sub


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        ds.Tables(0).DefaultView.RowFilter = "Convert(id,System.String) like '%" + TextBox1.Text + "%'"
    End Sub


    Private Sub CheckBox2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox2.CheckedChanged
        ds.Tables(0).DefaultView.RowFilter = "stats=" & CheckBox1.Checked
    End Sub


    Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
        ds.Tables(0).DefaultView.RowFilter = ""
    End Sub
End Class
1

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#3

شكراً جزيلاً و جزاك الله خير استاذنا الغالي محمد فؤاد

 

المثال يعمل الآن

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