السلام عليكم
اعدروني لكترة اسئلتي (:
لكن اليوم أسئل واضن ان الموضوع سيستفيد منه الكتير
المهم اخواني ما ابحت عنه هو كود لنقل البيانات من
dbgrid
إلى
Excel
TExcelApplication باستعمال المكون
يعني اضيف زر في برنامجي عند الضغط عليه يقوم بنقل جميع السجلات الى الاكسل
وشكرا
تم تعديل هذه المشاركة بواسطة aderfiad في 31 يوليو 2008 في 06:33
وجدت هدا الشرح
http://www.mnasman.com/blog/?p=25
ممكن احد الاخوان يبسط لنا
وجدت هدا الشرح
http://www.mnasman.com/blog/?p=25
ممكن احد الاخوان يبسط لنا
هناك طريقة نستخدمها ولكن فى دوت نت وهى كتابة ملف الأكسيل على هيئة xml
بالأمتداد xls
---------------------
وأعتقد أنها طريقة قياسية لا تعتمد على لغة برمجة معينة
-------------------------------------------------------------
يمكنك البحث عن ذلك الموضوع فى منتديات الدليفى الأجنبية
------------------------------------------
يوجد لدى مثال ولكن c #
أصفق أو لا أصفق فخلفي كتلة شحم تصفق وبعض المساحيق كانت تصفق وجاري يصفق وأسأل .. هل أعجبته الرواية؟ يبحلق ثم يلكز جنبي ويمضي يصفق أصفق أو لا أصفق أمامي كل الرؤوس تصفق وخلفي كل الصفوف تصفق أتى مارد شدني من يدي وتساءل لم لا تصفق تصايح كل الحضور اطردوه تحسست عقلي اطردوه أفقت لنفسي طريداً طريد فصفقت حتى انقطاع الوريد حتى انقطاع الوريد أصفق من أجل ذاك الذي لايصفق
لقد وجدت كود سورس لكن يستعمل مكونات لم اجدها
متل المكون
ToolButtonOpen
+
ToolButtonRun
+
ToolButtonNew
+
augeXlsToDb
اين توجد هده المكونات
هل يجب تحميلها ؟
تم تعديل هذه المشاركة بواسطة aderfiad في 31 يوليو 2008 في 09:12
بالنسبة لردك اخي هدا
اقصد جلب قاعدة بيانات بارادوكس تم عمل حفض لها على صيغة xls
وهدا الكود سورس الدي وجدت
http://www.delphifr.com/code.aspx?ID=28226
جربته شغال 100%
لكن كيف اطبق على برنامجي لم اجد المكوانت المستعملة
تم تعديل هذه المشاركة بواسطة aderfiad في 31 يوليو 2008 في 09:11
أخى العزيز أنا لا أبرمج بالدليفى ولكن بدوت نت
--------------
ولكن الفكرة تكون هكذا
---------------------
-- الأتصال مع قاعدة البيانات ( طبعا بلغتكم )
-- عرض البيانات على الشاشة كما تريد
-- أخذ هذة البيانات ووضعها بترميز xml إلى ملف يكون إمتدادة xls ( ولا تختلف xml
بين لغات البرمجة
---------------------------------------------------------
أصفق أو لا أصفق فخلفي كتلة شحم تصفق وبعض المساحيق كانت تصفق وجاري يصفق وأسأل .. هل أعجبته الرواية؟ يبحلق ثم يلكز جنبي ويمضي يصفق أصفق أو لا أصفق أمامي كل الرؤوس تصفق وخلفي كل الصفوف تصفق أتى مارد شدني من يدي وتساءل لم لا تصفق تصايح كل الحضور اطردوه تحسست عقلي اطردوه أفقت لنفسي طريداً طريد فصفقت حتى انقطاع الوريد حتى انقطاع الوريد أصفق من أجل ذاك الذي لايصفق
http://www.delphi4arab.com/forum/showthread.php?t=205
هذا رابط فيه ما تريد بالعربي
اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا
عدرا اخي بحت في النت ووجدت هدا الموضوع سابقا لكنه مشروح للخبراء فقط
لم افهم اين اضع تلك الاكواد
ممكن تبسط لي قليلا اخي
أخي الكريم جرب المثال المرفق
يقوم بتحويل الجريد إلى ملف إكسل و يقوم بفتح الملف ثم تقوم بحفظه أينما تشاء
لكن هناك مشكل في الأمر freeandnil قمت بإقاف الأمر لعل أحد الأخوة قد يحل المشكلة
المثال فيه شرح كامل في حال أي أستفسار أنا بالخدمة
المسار الحالي لقاعدة البيانات f:\grid to xls
I'm Away For Sometimes
I'll Finish My Works
Come Back Soon
More Study > More Search > More Try > More Learning > Great Success
شكرا لك اخي فهو شغال لكن به مشكل هو اللغة العربية
عند نقل البيانات الى الاكسل تخرج بشكل غريب
لاحظ الصورة
السلام عليكم
أخي الكريم أعتذر على الرد المتأخر
مشكلة اللغة العربية في المثال الحالي هي مشكلة بنوع الخط لكني لم أجد لها حل
بحثت عن طريقة أخرى فوجد طريقة أسهل من الطريقة القديمة
و قمت بعمل مثال مرفق مع حل لمشكلة اللغة العربية لكن لاحظ بأن الحقول التي من نوع date سوف تظهر بشكل #### في كلا الأحوال فحاول أن يكون
نوع الحقول التي تريد تصديرها إلى الأكسل من النوع string
في المثال الجديد أنقر على export مرة واحدة و ستجد في القرص c ملف أكسل بأسم test
في حال ضغت على الزر و كان الملف test موجود و فيه sheet بنفس إسم الشيت المضاف سوف تظهر رسالة خطأ
أنا موجود لأي إستفسار
الكود المستخدم :
procedure TForm1.Button1Click(Sender: TObject); begin ADOConnection1.Execute( 'SELECT * INTO employee IN "C:\test.xls" "Excel 8.0;" FROM employee'); end;
أرجو الفائدة
و السلام ختام
تم تعديل هذه المشاركة بواسطة rober في 2 أغسطس 2008 في 16:31
I'm Away For Sometimes
I'll Finish My Works
Come Back Soon
More Study > More Search > More Try > More Learning > Great Success
شكرال ك اخي جاري التجريب
خطأ في هدا السطر اخي
ADOConnection1.Execute(
استعمل قاعدة بيانات paradox
كتبتها هكدا Table1.Execute(
نفس الشيئ
Identificateur non declaré :Execute
هل يجب كتابة شيء في Uses
تم تعديل هذه المشاركة بواسطة aderfiad في 3 أغسطس 2008 في 03:28
اخي الكريم استعمل محرك البيانات ADO وليس BDE
حتى تتمكن من انجاز المثال
اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا
up
I'm Away For Sometimes
I'll Finish My Works
Come Back Soon
More Study > More Search > More Try > More Learning > Great Success
لكن اخي برنامجي يعتمد محرك بيانات BDE
اخي الكريم المكون ADOConnection ليس موجود في BDE
جرب نقل البيانات من جدول في BDE الى ADO
اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا