فواز الشمري

في هذا الموضوع لن أخوض بشرح نظري ولكن سيكون التركيز في الشرح عن الأدوات التي سيتم استخدامها عمليا في الكود : ما هي البرمجة باستخدام OOP أو البرمجة الهدفيه : كلمة OOP اختصار من Object Oriented Programming وهي عبارة عن أسلوب برمجي تم ابتكاره على أساس مساعدة المب…

لم افهم السؤال لذلك سوف ادعوك لزيارة موقع الشركة ومن هناك اعمل بحث عن ما تريد http://www.mysql.com/ P:

جيد جدا مناقشة هذه المواضيع : شكرا لك اخي فادي عمروش وليس الأهم هو ان تبيع هذا المنتج بقدر ماهوا المهم انك وصلت إلى اساسياته . وهنا استطيع القول ان المبرمج لما يبدأ بدايات صعبة أقصد المبرمج الي مش مبتدئ . يكون قوي الملاحضة سريع الحلول قوي الفهم . يستطيع حل الم…

شكرا لك في البداية : فعلا مواضيعك تستاهل المتابعة بمجرد ان اشاهد انك كاتب الموضوع : لكني ما اجمل تقسيم الصفحات في قاعدة البيانا MySql : SELECT * FROM emp WHER E Sal > 2000 LIMIT 0,10 يعني رجع لي الحقول من اول حقل حتى العاشر طيب شوف التالي : SELECT * FROM emp W…

جرب التالي وقل لي : فقد كتبته دون التحقق من صحته : Dim str As String ,ch As String * 1 Dim i As Integer,chIndex As Integer str = "123456789abcdef" Do While i <16 chIndex = Int((16 * Rnd) + 1) ch = ch + Mid(str,chIndex,1) i = i +1 Loop

اخي لم تصادفني هذه الرسالة لكن : تأكد من ان قاعدة البيانات مقفله يعني لاتكون فاتح برنامج Access وأنت شغال على الفيجول . حاول استخدام انواع اخرى عند فتح السجل rs إذا كنت تستخدم الكود . تأكد من ان rs مقفل قبل ان تقوم بتمرير الإستعلام . ضع كود الإتصال هنا حتى نرا…

اخي مصطفي : كود النسخ : لدي فكرة وهوا ان تبني إستعلامات تقوم بعمل انشاء الجداول للسنة الجديدة بعد ان تقوم بعمل انشاء لقاعدة البيانات . وأضن AdoX تنشئ القاعدة (جربتها على Access ) ومن ثم بقوم بتمرير الإستعلامات الإنشائ إلى الجداول . بالنسبة للسنة الجديدة : محاس…

اهلا بكي اختي الكريمة معنا : اختي في البداية : سوف اكرر اغلب ردي للأعضاء وهوا المحاولة بالتعلم الفردي أولاً ثم الإستعانة بالقدرات التي تتوفر في هذا المنتدى من قبل اعضائة: حاولي البدأ في التعلم وهي لغة جدا سهلة ورائعة . بالنسبة للبرنامج الذي تودين ان تعملية : ل…

أخي ابن حضرموت هل نسيت المناقشة يعني لو سؤلت كيف عملت ........! أتمنا لك التوفيق . لكن أقراء عن اللغة كما ذكر الأخوه ثم حلل المشروع وبدأ بالتصميم في حال كنت مستعد لذلك والمشاكل التي قد تواجها نحن في الخدمة

اخي الكريم مجرد كيف وصلت لهذا الحجم : يعني لو كان لديك بيانات لسنوات سابقة قم بتقسيم قاعدة البيانات على مستوى السنوات . اما إذا وصل معاك الحجم لهذه الدرجة وأنت في هذه السنة مثلا وكنت تخزن الصور في قاعدة البيانات : قم بفصل الصور من القاعدة وتخزينها في ملف بجانب…

لم اجرب النضام بعد لكن لدي استفسار : في حال قمت بعمل Format للحاسوب وقمت بتثبيت نضام التشغيل الخاص بك فقط ولوحدة هل بيشتغل ام لا أتمنا لك التوفيق ولكل اعضاء فريقك

لما اتزوج ان شاء الله بعلق على الموضوع :P

طيب لماذا Access بالذات : تعتبر من اكبر العيوب التي تعاني منها قاعدة الأكسس هي كبر البيانات لكن لدي اقتراح لك اصلا الـ Access عمل للمشروعات الصغيرة وليست للمشروعات الكبيرة لذا افضل ان كنت تعاني من كبر البيانات ان تنتقل لقاعدة بيانات MSSqlServer أو Oracle فهي ا…

أخي الكريم سوف اعطيك مقدمة بسيطة : أولا vb6 لايدعم البرمجة بالستخدام ما يسمى البرمجة الهدفية 100% ولكن يدعم مفاهيم نستطيع ان نقول ذلك . لذى سوف اعطيك رابط يمكنك منه تنزيل مثال يوضح لك كيف تم بناء Class ثم كيف تم استخدامه في البرنامج : /index.ph...38entry419438…

If rs.State = 1 Then rs.Close If op1.Value = True Then rs.Open "SELECT * FROM person WHERE [Name] LIKE '%" & Trim(Text2) & "%'", adOpenStatic, adLockOptimistic End If If op2.Value = True Then rs.Open "SELECT * FROM person WHERE phone = " & Val(Trim(Text2)), db…

الأخت العزيزة هذا مثال على كيفية تطبيق الفكرة التي ذكرتها في المشاركات السابقة : في البداية : يحتوى البرنامج على Class باسم SqlDataBase وهوا يحتوي جميع الأوامر المتعلقة بإدارة الاستعلامات و كذلك عمليات الفتح والإغلاق : هذا مثال عن دالة في الـ Class تقوم بفتح ق…

اخي hasan_aljudy انا الخامس الي نزل الملف :P أنا معاك لكني لا اركز كثير على الكودات في C لذلك اقراء الكود المكتوب هنا وأفهمة لأتعامل مع لغة اخرى بنفس المنطق . أرجو ان تستمر لكن كسل الإعضاء من التعليق الذي قد يسبب احباط عند كاتب الموضوع لكن اخي hasan_aljudy سيك…

اخي المهنا يعني تريد ان تضهر الأرقام في نهاية النص : جرب التالي : في حدث Click للـ Combo Text1.Text = Text1.Text & Combo15.ItemData(Combo15.ListIndex) أخبرني بالنتيجة :rolleyes: عدل الإجراء الي اخبرتك بتعديلة إلى: Sub rabet() Dim i As Integer For i = 0 To 9 Co…

أخي محمد على الرحب دائما وأسال الله ان يجعل جميع اعمالنا لخدمة بعضنا البعض لننال عليها الأجر والثواب الفكرة في سؤالك هوا ان قبل طباعه الكلمة F1 يجب ان تأخذ موقع العلامة باستخدام الخاصية SelStart وهي تعيد مكان العلامة لذلك يجب ان تخزن في المتغير OffSet قبل ان ت…

اخي الكريم حاليا انا مرهق تماما لكن حاول : زيادة المتغير OffSet + Len(KeyWord ) + 3 غير في الرقم 3 حتى تلاحض ان موقع العلامة طلع معاك مضبوط يعني عد من بداية السطر حتى الكلمة قبل التي تريد طباعتها مثلا لو كان عدد الحروف إلى الأن 5 وضغطتF1 قم بحساب طول الكلمة ال…