ظهور رساله عند طباعة التقرير على جهاز اخر00

أخى الفاضل

تبدو المشكله فى طريقة ربط القاعدة بالبرنامج مع مجموعة العمل من خلال odbc او فى كلمة سر

ارسل معلومات اضافيه عن القاعدة المستخدمة و طريقة ربطها

اشكرك اخي العزيز على مرورك والرد

القاعده اكسس تم تحويلها الى نسق97

وجلبتها الى الفيجول باداة الداتا وجعلت مسارها فى الفورم لويد

app.path

وشغالها القاعده اقصد بالبرنامج البحث واضافه وحذف

لكن التقرير تطلع لى الرساله هذه

علما بان القاعده ليس لها كلمة سر او مرور عند عملها

أخى الفاضل

هل تستخدم DAO او تستخدم ADO

على العموم اطبع جزء الكود اللى بيوجد عنده المشكله وربنا يسهل

أشكرك اخي العزيز ماجد على التواصل عموما

طبعا وضعت كومند ووضعت الكود التالي لجلب التقرير

Private Sub Command4_Click()

DataReport1.Show

End Sub

اضفت الكود التالي لجلب التقرير 00 ولكن لازالت المشكله 00

ارجوا من لديه خبره فى التقارير لايبخل علينا 000

Private Sub Command4_Click()

Dim cn As ADODB.Connection

Dim Rs As ADODB.Recordset

Set cn = New ADODB.Connection

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\Db2.mdb;" & "Jet OLEDB:Database Password="

Set Rs = New ADODB.Recordset

Set Rs = cn.Execute("select * from جدول1")

DataReport1.Show

End Sub

اخى الفاضل

ليس لى خبرة بالداتا ريبورت

لكن واضح ان المشكله ليس لها علاقة بالتقرير

اريد كود بحيث يقوم الدتا ريبورت بالبحث عن القاعده 00 هذا حل لهذه الرساله

حيث وضعت مسار القاعده من مجلد البرنامج بعد التنصيب واشتغل التقرير

اريد كود بحيث يقوم الدتا ريبورت بالبحث عن القاعده 00 هذا حل لهذه الرساله

حيث وضعت مسار القاعده من مجلد البرنامج بعد التنصيب واشتغل التقرير

اسف للتكرار 00 مشاكل المتصفح

حسب علمي بالداتا ريبورت أنه يتم ربطه بـ command في dataenvironment

فما عليك هو تغيير ربط الكوماند مع قاعدة البيانات حسب مسار البرنامج

بفرض أن لديك dataenvironment1 وفيها command1 فعليك تنفيذ الأمر التالي في الفورم لود:

DataEnvironment1.rsCommand1.Source = "SELECT * FROM جدول1"

مشكور اخي Ferasieev وكل عام وانت بخير 00

ولكن اين اضع الكود فى الفورم لويد اللى ربطت القاعده

به 000 ام فى خصائصdataenvironment1

اكرر الشكر0