ماذا عن أمر ال fill و كيفية فتح الإتصال ؟

بعد ماتنشئ الاتصال

تكتب هذا الكود

 Try

            con.Open()
            Dim adapt As New OleDbDataAdapter("select * from myTable", con)
            Dim d As New DataTable()
            adapt.Fill(d)
            datagrid1.SetDataBinding(d, "")

        Catch oo As Exception
            MsgBox(oo.Message)
        Finally
            con.Close()


        End Try

وهذا الكود يعرض البيانات في داتاجريد

بسم الله

السلام عليكم

الأخ CODEFINDER ، جزى الله الأخ RED^EYES ، عنك وعني وعن أعضاء المنتدى خيرا ، وقد قمت ولله الحمد بعمل ، تعديل بسيط في كود مشابه لكوده ، كنت قد أعددته قبل فترة ، بحيث تقرأ الداتا سيت من ثلاث جداول ، مع عمل علاقة بينها ، وهناك أخ لا أذكر اسمه ، قد بعثه للمنتدى ، وبه بعض المشاكل في الإستعلام ، وكان عنوان رابط التحميل "مساعدة" ، وفيه استعلام برقم الفاتورة ، وقد أسميته InvoiceNoQuery ، بالإضافة ، إلى أن الأخ WALEEDHM ، بعث قبل فترة وجيزة ، كود ملأ اللست بوكس من الداتا سيت ، فقمت بنقله ، والفضل لله ، ثم له ، في مشروعين صغيرين ، أحدهما للست ، والآخر للكومبو ، بالإضافة إلى مشروع لربط التكست بوكس بقيمة من الداتا سيت ، وبذلك يكون لديك ، ربط الداتا جريد بالداتا سيت الأخ RED^EYES ، مع بعض التطوير عليها ، في المشروع المرفق ، واللست بوكس والكومبو بوكس ، من الأخ وليد ، والتكست بوكس ، فهذا ربط لأربع أدوات بالداتا سيت ، وتقريبا هي أهم الكائنات التي تربط بالداتا سيت ، والله أعلى وأعلم .

fill dataset.rar

-09

شكرا لكم جميعا ً على المساعدة

مجهود تشكر عليه اخوي

ابو المهاجر:)

بصراحة نفخر لوجود عضو مثلك....

يهتم بالربط بين المواضيع وذلك لتقليل او منع تكرار الاسئلة

:) شكرا لك