• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

mmoo

اعضاء جدد
  • عدد المشاركات

    30
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

3 عادي

عن mmoo

  • الرتبة
    عضو جديد
  1. السلام عليكم تم التوصل للحل بفضل الله للفائدة... ADOQuery1.SQL.Clear(); ADOQuery1.SQL.Add('INSERT INTO [;Database=DB2.mdb; PWD=123].Table1 SELECT * FROM Table1'); ADOQuery1.ExecSQL(); على فرض ان ADOQuery1 مربوطة بقاعدة بيانات تحتوي على جدول Table1 ويراد نسخ محتوياته الى الجدول Table1 الموجود في قاعدة بيانات اخرى باسم DB2.mdb والمحمية بباسوورد "123" ... __
  2. السلام عليكم.... استخدم الكود التالي لنسخ محتويات جدول الى جدول اخر في قاعدة بيانات اخرى ويعمل بدون مشاكل على فرض ان القاعدتين في نفس مسار البرنامج ADOQuery1.SQL.Clear(); ADOQuery1.SQL.Add('INSERT INTO Table1 IN "other_DB" SELECT * FROM DB'); ADOQuery1.ExecSQL(); حيث ان Table1 هو اسم الجدول المراد نسخه و DB هي قاعدة البيانات المراد النسخ منها و other_DB هي قاعدة البيانات المراد النسخ اليها وهما قواعد بيانات اكسس.. ولكن لو كانت قاعدة البيانات الاخرى أي المراد نسخ الجدول اليها تحتوي على باسوورد يظهر خطأ مفاده ان الباسوورد خطأ فما هو التعديل على الكود لتمرير الباسوورد وتجاوز ظهور الخطأ علما ان ال ADOQuery1 مربوطة بقاعدة البيانات الاولى أي المراد النسخ منها وتم تمرير الباسوورد لها عند الربط... _____
  3. مشروع المسابقات المدرسية

    انا اتبع الطريقة التالية عندما اربط اداة ADODataSet مثلاً من خلال خاصية ConnectionString ستصبح قيمة هذه الخاصية "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\musabaqa1.1\data.mdb;Persist Security Info=False" ثم اقوم بحذف المسار ليصبح "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Security Info=False" فيعمل البرنامج من اي مسار بنجاح...
  4. مشروع المسابقات المدرسية

    وعليكم السلام ورحمة الله وبركاته مشكور أخي عالبرنامج وانا دائما اشجع البرامج التعليمية والمدرسية. عندي ملاحظة بسيطة يفضل اذا كانت قاعدة البيانات بنفس مسار البرنامج عند ربطها بالمشروع حذف المسار وابقاءاسم القاعدة وامتدادها فقط لكي لايضطر المستخدم بوضع البرنامج بمسار معين بل بأي مسار كان. ففي هذا المشروع اكتب data.mdb بدلا من C:\musabaqa1.1\data.mdb ... تحياتي...
  5. أخ shalwan ال store هو جدول في ملف قاعدة البيانات وليس ملف ... وال ADODataSet1 مربوط بملف قاعدة بيانات اسمه shop ويستعمل الجدول store اما ال ADOQuery1 مربوط بنفس قاعدة البيانات shop ولا داعي لتحديد أسم الجدول له لاننا سوف نحدده بجملة ال sql ولا داعي لتفعيل خاصية ال active له... شكرا أخ najy_zl على الاضافة بالفعل قد يكون هذا احد اسباب ظهور اخطاء... تحياتي...
  6. مساعدة في وضع ديتا من حقل لكمبوبوكس

    عند اختيار عنصر من الكومبوبوكس فان خاصية ال Text تتغير لتصبح العنصر المختار ولهذة من الممكن استخدامها لمعرفة العنصر المختار ComboBox1.Text; تحياتي...
  7. أخي انا جربت المثال من الأول وهو يعمل بصورة صحيحة ولكن لي ملاحظة أين وضعت كلمة Begin هل بعد IF كما في المثال أم بعد For ففي هذه الحالة سيتم الخروج من أول دورة... وهذا المثال كامل والملف المصدري بالمرفقات على دلفي 2010 For i := 0 To ADODataSet1.Fields.Count-1 do Begin IF ADODataSet1.Fields[i].FieldName='month' THEN Begin ADOQuery1.SQL.Clear(); ADOQuery1.SQL.Add('ALTER TABLE store add [buy_month] VARCHAR(30)'); ADOQuery1.ExecSQL(); ADOQuery1.SQL.Clear(); ADOQuery1.SQL.Add('update store set [buy_month] = [month]'); ADOQuery1.ExecSQL(); ADOQuery1.SQL.Clear(); ADOQuery1.SQL.Add('ALTER TABLE store DROP [month]'); ADOQuery1.ExecSQL(); MessageDlg('تم تغيير أسم الحقل' , mtInformation ,[mbok],0); break; End; End; تحياتي..... change name field.rar
  8. مساعدة في وضع ديتا من حقل لكمبوبوكس

    وعليكم السلام ورحمة الله وبركاته.... Form2.ComboBox1.Clear; ADODataSet1.First; while not ADODataSet1.EOF do begin form2.ComboBox1.Items.Add( ADODataSet1.FieldByName('car').Value ); ADODataSet1.Next; end; هذا حل مناسب في حالة كون البيانات غير كثيرة جداً ... لا تنسى تعمل تنسيقات للكومبو بوكس من الخصائص مثلا التكملة التلقائية للنص وترتيب البيانات لكي تسهل على المستخدم.... تحياتي....
  9. ولا تهون أخي هذا واجبنا ولا تنسى ان زكاة العلم نشره... بما ان عدد الحقول مهما بلغ كبر الجدول تعتبر قليلة جداً بالنسبة لجملة FOR فلا مانع من استخدامها: For i := 0 To ADODataSet1.Fields.Count-1 do IF ADODataSet1.Fields[i].FieldName='month' THEN Begin // //ضع الكود المطلوب هنا... // break; End; جملة break هنا ضرورية لاننا سوف نغير في الحقول ولكي نتجنب الاخطاء المحتملة بعد التغيير.. تحياتي...
  10. والله يا أخ " najy_zl" سبقتني كنت ناوي اضع نفس الحل ولكن لي اضافة قبل هذا الحل: لو كان عندنا حقل بأسم احد الكلمات المحجوزة في sql مثلاً "month" ونريد استخدامه بجملة sql يجب علينا وضعه بين هذين العلامتين [month] لكي تفرق بينه وبين المعامل الخاص بالشهر في sqlبهذا يمكن ان تستغني عن فكرة تغيير أسم الحقل .. لكن سأضع الحل وهو يشبه حل الأخ " najy_zl" جزاه الله خير لكن بتطبيق الملاحظة السابقة لكي لايظهر خطأ... علماً ان الصيغة القياسية لتغيير اسم حقل في جدول قاعدة بيانات في جملة sql هو كما يأتي: ALTER TABLE table_name RENAME COLUMN [column1] TO [column2] ولكن عندما اجربه يظهر خطأ ولا اعلم ما هو السبب.. الحل: على فرض ان لدينا حقل نصي بأسم "month" في جدول بأسم "store" ونريد ان نغير أسم الحقل الى أسم "buy_month" ADOQuery1.SQL.Clear(); ADOQuery1.SQL.Add('ALTER TABLE store add [buy_month] VARCHAR(30)'); ADOQuery1.ExecSQL(); ADOQuery1.SQL.Clear(); ADOQuery1.SQL.Add('update store set [buy_month] = [month]'); ADOQuery1.ExecSQL(); ADOQuery1.SQL.Clear(); ADOQuery1.SQL.Add('ALTER TABLE store DROP [month]'); ADOQuery1.ExecSQL(); تحياتي...
  11. برنامج السبورة للأطفال

    شكرا عالرد وعلى الملاحظات القيمة... بس دا يا أخي برنامج سبورة مدرسية بسيطة للتلاميذ مش برنامج رسام... بس معليش ممكن حد يشوف البرنامج ويفكر يعمل برنامج رسام حيستفاد من ملاحظاتك....
  12. وعليكم السلام ورحمة الله وبركاته... أولا شكرا على ردود الاعضاء... ثانيا: بعد البحث المستفيض في ما يتعلق بالموضوع لا وجود لهذا الامر أو ما يرادفه عند التعامل مع قواعد البيانات اكسس عن طريق عبارات SQL القياسية في دلفي . ثالثا: في بعض انظمة قواعد البيانات وبعض لغات البرمجة المتخصصة بقواعد البيانات وبعض التعابير الغير قياسية لل SQL ( التي لا يتعرف عليها الدلفي عند التعامل مع قواعد البيانات اكسس) وعند استخدام سكل سيرفر يوجد هذا الامر على صيغة ()recno أو recnumber أو number_rec وغيرها من الصيغ و حسب اللغة أو نظام قواعد البيانات المستخدم ... طبعا هذا الكلام عند استخدام جملة sql وليس الا. تحياتي....
  13. وعليكم السلام ورحمة الله وبركاته... مادامك ياأخي مبرمج #C فلك طريقين من وجهة نظري: 1- اذا كنت متمكن بدرجة ممتازة من ال #C وبالاخص موضوع الوراثة والكلاسات وتحب كتابة الاكواد الطويلة وتسيطر عليها (يعني ما اتيه بنصها) يمكنك تعلم ال XNA من خلال الدروس في هذا القسم وهناك كتب اخرى عربية ولكن ليس عندي روابطها يمكن ان تبحث عنها بالجوجل... 2- اذا كنت تحب السرعة في الانتاج وكتابة الاكواد القصيرة جدا والسهولة في التعامل مع البيئة الثلاثية الابعاد يمكنك ان تستخدم محرك العاب جاهز مثلا Unity 3D لانه يدعم ال #C سكربت وايضا الجافا سكربت وهناك محركات اخرى ومنها مجانية مثل البلندر ولكن لايدعم ال #C ... واخيرا انصحك بالاطلاع على دروس ال XNA ومحاولة تطبيق بعض الامثلة لانها تعطيك تصور دقيق ومفصل عن عالم برمجة الثري دي... اما موضوع الاحسن الذي طرحته فانصحك ان لاتدوخ فيه كما داخ الذين من قبلك وبلا نتيجة لان المبرمج هو الذي يجعل برنامجه احسن وخصوصا في هذا المجال لانه يعتمد على الكود الاقصر والاذكى والاسرع لانك تتعامل مع الوقت الحقيقي للمعالجة (RealTime)... يعني مثلا مافائدة كتابة كود طويل وبطيء في لغة Cpp والتي تعتبر سريعة وكتابة كود اقصر منه واسرع ويؤدي نفس الغرض بلغة #C والتي هي ابطىء من ال Cpp بشيء ضئيل جدا... تحياتي...
  14. أخي يبدو انك لم تقرأ السؤال جيدا وبالتالي لم تفهمه ... كان المطلوب المرادف للايعاز الذي كتبته انت أي ما يقابله في جملة sql والحمد لله الحل مالي كان فعال ومرضي...
  15. السلام عليكم برنامج السبورة للأطفال من برمجتي مبرمج بالدلفي 2007 رابط التحميل www.4shared.com/file/s3gXINf0/blackboard.html تحياتي....