[rochdi191]

(25-04-20, 02:17 AM)ابراهيم ايبو كتب : السلام عليكم
اخي انا متأسف لك ولكل من يقوم بتحميل المثال كوني تركت كود مسار الاتصال على حاله 
قم بتغيير هذا السطر وهو جملة الاتصال من هذا :

كود :

   Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\Users\IBRAHIM\Desktop\vbArab\SaadNew\SaadNew\bin\Debug\Saad1.mdb;persist security info=false;")

استبدله بهذا السطر اكسس 2003

كود :

   Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Saad1.mdb;persist security info=false;")

او ههكذا ان كانت نسخة الاكسس 2007 فما فوق

كود :

Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= Saad1.mdb;persist security info=false;")

جزاك الله خبر اخي ابراهيم
بقي لي زر الطباعة وبقي لي ان اضع قورم ثاني لمراجعة لتسجيل مبلغ الاشتراكات الشهرية او السنوية

---

اريد اخي ابراهيم برمجة زر طباعة يطبع جدول الموجودة datagridiew