تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ربط اداة datareport مع قاعدة البينات عن طريق الكود
#1
إخواني الكرام 
أستعمل الاداة Data Control
في ربط قاعدة البينات بالفيجوال بيسك
وعند عمل التقارير يتوجب علي ربط قاعدة البينات بالاداة DataEnvironment1
ولكنها تطلب مسار القاعدة كاملا
وهذه مشكلة في نقل البرنامج من جهاز لاخر

وسؤالي كيف اقوم بالربط عن طريق الكود لاستطيع كتابة كود مسار قاعدة البينات بالكود
لتفادي هذه المشكلة

وجزاكم الله خيرا
الرد
تم الشكر بواسطة:
#2
كود :
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\" & "data.mdb;" & "Jet OLEDB:Database Password=123;"
Set rs = New ADODB.Recordset
rs.Open " select * from Tabel1 ", cn, adOpenStatic, adLockReadOnly
DataReport1.Orientation = 2
Set DataReport1.DataSource = rs
DataReport1.Caption = "عنوان التقرير"
DataReport1.Show
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد
#3
جزاكم الله كل خير
ونفع الله بك
الرد
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محاذاة اداة list view من اليمين الى اليسار hannileo 7 175 منذ 3 ساعة مضت
آخر رد: hannileo
  [vb6.0] هل يوجد طريق مختصرة يتم نحويل التاريخ الهجري الى ميلادي ؟؟ Microformt 1 18 أمس, 09:41 PM
آخر رد: AL_BRNS
  مساعدة في اداة MMcontrol VB.NET 1 38 18-11-18, 03:15 AM
آخر رد: VB.NET
Question [vb6.0] كيف يتم إضهار الترقيم تلقائي المجود في قاعدة البيانات عند النقر على امر جديد ؟ Microformt 8 484 20-10-18, 09:54 PM
آخر رد: gonm64
  كيفية نسخ قاعدة بيانات جديدة وباسم في هذا المثال khezzani 5 119 15-10-18, 10:55 PM
آخر رد: سعداء
  مشكلة عندي مشكلة في فتح قاعدة بيانات اكسس 2000 بيتم التعامل مع اكسس 97 fathyfarag122 3 82 03-10-18, 02:54 AM
آخر رد: عبدالله الصافي
  احبابى فى الله ارجو المساعدة تغير ربط قاعدة البينات من (.accdb) الى mbp mhareek 6 163 14-09-18, 11:18 PM
آخر رد: mhareek
  [vb6.0] خاصية تعتمد علي Artificial intelligence عند كتابة في قاعدة بيانات اكسيس من خلال VB6 mohamed arafa 5 203 13-09-18, 03:47 AM
آخر رد: mohamed arafa
  [vb6.0] حل مشكلة حفظ الصورة في ملف وليس على قاعدة البياناتDataBase عبدالقادرعواد 2 164 11-09-18, 02:45 PM
آخر رد: عبدالقادرعواد
  مثال على كيفية الطريقة لتحديث برنامجك عن طريق الإنترنت Ahmed_Mansoor 14 3,331 01-09-18, 03:41 PM
آخر رد: MicroDoha

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


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