السلام عليكم
عندي مشكلة كبيرة ومعقداني في عيشتي
عاوز احفظ صورة في اكسس واعمل تقرير بالصور وبياناتها وطبعاعتها بالكريستال ريبورت 4.6
عملت المشروع بس مش قادر اوصل للطريقة الصحيحة
وعملت الحقل الي انا هضيف فيه الصورة ole
وبردة يبقي الحال كما هو علية
يا ريت تساعدوني
وده ايملي
sadek_gabre@yahoo.com
لو ممكن ترسلوا لي الحل علية
وانا عملت له اب لود هنا
وشكرا جزيلا
بصراحة يا أخي موضوع الكريستال ريبورت أنا تعاملت مع كريستال 7 و 8 و 10 فإذا كنت ترغب مساعدتي فأنا ممكن أن أضع مثال بالمنتدي لأن ببساطة هذه الإصدارات يمكنها تصميم التقرير من داخل البرنامج الخاص بي أو الملف التنفيذي EXE ، ومن ثم من داخل لغة VB 6.0 أقوم بإجراء عمليات لعرض الصورة للمستخدم دون أي مشاكل .
أما بالنسبة لكريستال 4.6 بصراحة أنا لم أتعامل معه سوي القليل ، وفي نفس الوقت لا يمكن تصميم تقرير داخل الملف التنفيذي EXE بل يتم تصميم التقرير خارج الملف التنفيذي ومن ثم يتم عرض التقرير بآداة خاصة ، وأنا بصراحة لم أفكر في عرض صورة من قاعدة البيانات مباشرتاً من الكريستال 4.6
إذا كنت ترغب في المثال فأنا تحت أمرك ، وسوف تجد العديد من الأعضاء سيساهمون معك !!
أما بالنسبة للأعضاء الكرام فإذا كان هناك حل آخر فياريت توضيحة
لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي
ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك
أنت وتصرفاتك
ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه
اشد آلام ... فصمتي أنا عنوان
أول حاجه قم بفتح ملف الصورة Binary وبعد كده قم بحفظ بياناتها داخل Array من نوع Byte كالتالى:
Dim Arr() as Byte
Open "C:\1.jpg" for binary access read lock write as #1
redim Arr(LOF(1)-1)
Arr()=InputB(LOF(1), 1)
Close #1
دلوقتى الـ Array اللى أسمها Arr جواها البيانات بتاعت الصورة بعد كده خلى الحقل بتاع الجدول ياخد قيمته من الـ Array كالتالى :
ADO.Recordset("OLE Field")=Arr()
بالنسبة لجعل الـ Crystal ياخد البيانات بتاعت الصورة من الحقل الـ OLE و يقراها على انها صورة ده امر بسيط بإنك تخلى الحقل بتاع الكريستال إللى هيستقبل الصورة نوعه BLOB أو CLOB الأنواع دى هتلاقيها موجوده فى الكريستال
بس انا فاكر ان الكريستال كان بيقرا الصورة من الحقل اللى نوعه OLE على طول بدون تدخل على العموم لو ظهرت لك مشكله فى الكود او طريقة تنفيذه قولى.
و الله ولى التوفيق
مدونتي: C++ Tips and Tricks
Game Expert كتب:أول حاجه قم بفتح ملف الصورة Binary وبعد كده قم بحفظ بياناتها داخل Array من نوع Byte كالتالى:Dim Arr() as Byte
Open "C:\1.jpg" for binary access read lock write as #1
redim Arr(LOF(1)-1)
Arr()=InputB(LOF(1), 1)
Close #1
دلوقتى الـ Array اللى أسمها Arr جواها البيانات بتاعت الصورة بعد كده خلى الحقل بتاع الجدول ياخد قيمته من الـ Array كالتالى :
ADO.Recordset("OLE Field")=Arr()
بالنسبة لجعل الـ Crystal ياخد البيانات بتاعت الصورة من الحقل الـ OLE و يقراها على انها صورة ده امر بسيط بإنك تخلى الحقل بتاع الكريستال إللى هيستقبل الصورة نوعه BLOB أو CLOB الأنواع دى هتلاقيها موجوده فى الكريستال
بس انا فاكر ان الكريستال كان بيقرا الصورة من الحقل اللى نوعه OLE على طول بدون تدخل على العموم لو ظهرت لك مشكله فى الكود او طريقة تنفيذه قولى.
و الله ولى التوفيق
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…