لغة الدالفي delphi كل ما يتعلق بالدالفي و الباسكال

قديم 04-01-2011, 01:16 PM
  #11
NassIman
 
تاريخ التسجيل: 10-10-2008
المشاركات: 12
NassIman
افتراضي رد: حفظ قاعدة بيانات

السلام عليكم ورحمة الله وبركاته
اشكر اخواني على المساعدة وخاصة اخي ING_HYD..
لقد جربت الكود وفهمت ماذا كنت تقصد ، كما انني جربت ان اغير فيه لكي استطيع ان ان احفظ اكثر من تابل(plusieurs tables) لكن لم تنجح معي ، هذا هو الكود الذي جربته:
[SCRIBD]
TDestination.TableName := 'Nomtabl.DB'; // c'est un nom par hasard que je donne
with BatchMove1 do
begin
Source := TSource1;
Destination := TDestination;
Mode := BatCopy;
Execute;
end;
with BatchMove2 do
begin
Source := TSource2;
Destination := TDestination;
Mode := BatCopy;
Execute;
end ;
[/SCRIBD]
NassIman غير متواجد حالياً  
قديم 04-01-2011, 03:44 PM
  #12
ING_HYD
مشرف منتدى هندسة الري
 الصورة الرمزية ING_HYD
 
La spécialité: Hydraulique
جامعة حسيبة بن بوعلي شلف
تاريخ التسجيل: 08-05-2010
الدولة: الجزائر
المشاركات: 1,127
ING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداع
افتراضي رد: حفظ قاعدة بيانات

اقتباس:
المشاركة الأصلية كتبت بواسطة NassIman مشاهدة المشاركة
السلام عليكم ورحمة الله وبركاته
اشكر اخواني على المساعدة وخاصة اخي ING_HYD..
لقد جربت الكود وفهمت ماذا كنت تقصد ، كما انني جربت ان اغير فيه لكي استطيع ان ان احفظ اكثر من تابل(plusieurs tables) لكن لم تنجح معي ، هذا هو الكود الذي جربته:
[SCRIBD]
TDestination.TableName := 'Nomtabl.DB'; // c'est un nom par hasard que je donne
with BatchMove1 do
begin
Source := TSource1;
Destination := TDestination;
Mode := BatCopy;
Execute;
end;
with BatchMove2 do
begin
Source := TSource2;
Destination := TDestination;
Mode := BatCopy;
Execute;
end ;
[/SCRIBD]
Salam

mais la destination faut aussi la changer ! je te conseil de jeter un coup d'œil sur l'aide Delphi pour mieux comprendre, si t'arrives pas au résultat voulu fais moi signe et je vais t'aider avec un source à deux ou trois tables
ING_HYD غير متواجد حالياً  
قديم 08-01-2011, 04:23 PM
  #13
info_megue
 الصورة الرمزية info_megue
 
La spécialité: Autres
جامعة منتوري قسنطينة
تاريخ التسجيل: 31-01-2009
الدولة: تاجنانت
المشاركات: 82
info_megue عضو يستحق التميزinfo_megue عضو يستحق التميزinfo_megue عضو يستحق التميز
افتراضي رد: حفظ قاعدة بيانات

السلام عليكم
اذا كان عدد قواعد البيانات ثابت يعني مثلا 3, فلماذا لا تعمل كود بسيط ينقل لك المعطيات من القواعد ال3 الى قاعدة واحدة . هذا مثال لكود ننقل فيه معطيات 3 قواعد بيانات باسم source1, source2, source3 كل واحدة متكونة من 4 عناصر و ننقل الكل الى القاعدة الجديدة العامة التي تحمل اسم global.
بمعني:
كود:
for i:=1 to source1.RecordCount do begin global.Append; global.FieldValues['item1']:=source1.FieldValues['item1']; global.FieldValues['item2']:=source1.FieldValues['item2']; global.FieldValues['item3']:=source1.FieldValues['item3']; global.FieldValues['item4']:=source1.FieldValues['item4']; global.Post; source1.Next; end; for i:=1 to source2.RecordCount do begin global.Append; global.FieldValues['item1']:=source2.FieldValues['item1']; global.FieldValues['item2']:=source2.FieldValues['item2']; global.FieldValues['item3']:=source2.FieldValues['item3']; global.FieldValues['item4']:=source2.FieldValues['item4']; global.Post; source2.Next; end; for i:=1 to source3.RecordCount do begin global.Append; global.FieldValues['item1']:=source3.FieldValues['item1']; global.FieldValues['item2']:=source3.FieldValues['item2']; global.FieldValues['item3']:=source3.FieldValues['item3']; global.FieldValues['item4']:=source3.FieldValues['item4']; global.Post; source3.Next; end;
هذه أبسط طريقة و لا تحتاج الى اي ذكاء و تتفادى الاخطاء فيها.
info_megue غير متواجد حالياً  
قديم 11-01-2011, 08:05 PM
  #14
NassIman
 
تاريخ التسجيل: 10-10-2008
المشاركات: 12
NassIman
12 تمت الاجابة..

السلام عليكم ورحمة الله وبركاته
آسفة على التأخر في الاجابة..
اشكر اخوني الذين ساعدوني في حل هذا الكود. بفضل الله اولا ثم اخواني ING_HYD و info_megue [افكارهم التي ساعدتني كثيرا في التوصل الى الحل.. لقد استعملت كود: BatchMove لحفظ القاعدة. وفي استرجاعها استعملت كود الاخ info_megue وبذلك اصبح لدي كود الحفظ والاسترجاع. هو صحيح بطريقة تقليدية لكنها سهلة ومفهمهومة جدا مقارنة بالاكواد التي وجدتها في بعض المنتديات التي صعب علية فهمها وتطبيقها شكرا جزيييييييييييييلا وجزاكم الله كل الخير..
NassIman غير متواجد حالياً  
قديم 12-01-2011, 11:19 PM
  #15
مكيو
 
La spécialité: Autres
جامعة باجي مختار عنابة
تاريخ التسجيل: 24-12-2010
المشاركات: 9
مكيو عضو يستحق التميز
افتراضي رد: حفظ قاعدة بيانات

salut tout le monde merci pour les cours de formation proposé par les membres j'ai voulu svp de me dire comment je peut faire une liaison entre delphi et le word et merci
مكيو غير متواجد حالياً  
قديم 13-01-2011, 10:43 AM
  #16
info_megue
 الصورة الرمزية info_megue
 
La spécialité: Autres
جامعة منتوري قسنطينة
تاريخ التسجيل: 31-01-2009
الدولة: تاجنانت
المشاركات: 82
info_megue عضو يستحق التميزinfo_megue عضو يستحق التميزinfo_megue عضو يستحق التميز
افتراضي رد: حفظ قاعدة بيانات

اقتباس:
المشاركة الأصلية كتبت بواسطة مكيو مشاهدة المشاركة
salut tout le monde merci pour les cours de formation proposé par les membres j'ai voulu svp de me dire comment je peut faire une liaison entre delphi et le word et merci

السلام عليكم

في هذا العنوان ستجد الدرس الكامل و كل الشروحات التتي تتعلق بالتعامل بين الوورد و الدلفي.

http://delphi.developpez.com/faq/?page=worddelphi

لاكن كان الاجدر بك ان تضع موضوع جديد فيه تساؤلك عن الربط بين الدلفي و الوورد.
لكي يكون منفصل عن موضوع حفظ قاعدة البيانات, و سنجيبك ان شاء الله عن كل تساؤلاتك.
بالتوفيق
info_megue غير متواجد حالياً  
قديم 13-01-2011, 10:48 AM
  #17
info_megue
 الصورة الرمزية info_megue
 
La spécialité: Autres
جامعة منتوري قسنطينة
تاريخ التسجيل: 31-01-2009
الدولة: تاجنانت
المشاركات: 82
info_megue عضو يستحق التميزinfo_megue عضو يستحق التميزinfo_megue عضو يستحق التميز
افتراضي رد: تمت الاجابة..

اقتباس:
المشاركة الأصلية كتبت بواسطة nassiman مشاهدة المشاركة
السلام عليكم ورحمة الله وبركاته
آسفة على التأخر في الاجابة..
اشكر اخوني الذين ساعدوني في حل هذا الكود. بفضل الله اولا ثم اخواني ing_hyd و info_megue [افكارهم التي ساعدتني كثيرا في التوصل الى الحل.. لقد استعملت كود: Batchmove لحفظ القاعدة. وفي استرجاعها استعملت كود الاخ info_megue وبذلك اصبح لدي كود الحفظ والاسترجاع. هو صحيح بطريقة تقليدية لكنها سهلة ومفهمهومة جدا مقارنة بالاكواد التي وجدتها في بعض المنتديات التي صعب علية فهمها وتطبيقها شكرا جزيييييييييييييلا وجزاكم الله كل الخير..
الحمد لله انك وجدتي الحل.
بالتوفيق.
info_megue غير متواجد حالياً  

الكلمات الدلالية (Tags)
بيانات, قاعدة

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

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

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
الدرس السابع لدورة php انشاء قاعدة بيانات يوسف الضادي دورات البرمجة بكل لغاتـــــــــــها 2 18-04-2011 09:15 AM
انشاء و ربط قاعدة بيانات Paradox بـ Delphi دون كتابة و لو سطر achraf.mouni لغة الدالفي delphi 3 03-01-2010 07:51 PM
كيفية انشاء قاعدة بيانات والبحث فيها mimik الإستفسارات و الطّلبات 1 31-12-2009 09:51 PM
انشاء و اتصال قاعدة بيانات sql بالفيجوال بيسك دوت نت WADDAH برمجة المواقع وقواعد البيانات 2 07-10-2009 12:18 PM
إنشاء قاعدة بيانات achraf.mouni برمجة المواقع وقواعد البيانات 5 23-03-2009 09:36 PM


الساعة الآن 04:50 AM.
Powered by vBulletin® Copyright ©2000 - 2018, Jelsoft Enterprises Ltd. , TranZ By Almuhajir