السلام عليكم و حمة الله و بركاته
أقوم بتصميم مسابقة اسلامية و قد واجهتني المشكلة التالية و اتوقع انها بسيطة
الاسئلة موجودة ضمن قاعدة بيانات و يوجد جدول يسمى no1 و لكن المشكلة ليست
المشكلة انني لا اريد اظهار نفس السجل اي السجل رقم واحد في كل مرة يعمل فيها البرنامج
و لكن اريده ان يظهر سجل مختلف في كل مرة يعمل بها اي مرة يظهر الاول و مرة يظهر الثاني و مرة يظهر
الثالث و مرة ...و هكذا و يجب ان يكون هذا بشكل عشوائي
و ليس بالترتيب
و شكرا لكم سلفاً
أخوكم : مختار سيد صالح
من سوريا - أبوكمال
Dim ShowAtStartup As Long
ShowAtStartup = GetSetting(App.EXEName, "Options", "Show Tips at Startup", 1)
If ShowAtStartup = 0 Then
ممكن توحيلك الفكرة
على ما اعتقد والله اعلم
وَقُل رَّبِّ زِدْنِي عِلْماً
ممكن تستعمل الدالة rnd التي تأتي رقم عشوائي
المشكلة سهلة إن شاء الله
طبعا اذا تنتقل من سجل الى اخر بدك تكتب الامر التالي
rs.movenext
لو بدك تنتقل عشوائي
اكتب في حدث form_load
randomize rs.move int(100*rnd)
طبعا الرقم 100 هو عدد الحقول غير فيه زي مابدك حسب عدد حقولك
اذا كنت بتسعمل ado
اكتب كالتالي
randomize rs.move int(rnd*100),1
مع تمنياتي لك بالتوفيق
شكراً للأخوة الاعزاء و الدالة rnd
هي الحل
السلام عليكم
ولكن المشكلة التالية في برنامج المسابقات هي قاعدة البيانات
كيف يمكن تشفيرها او حمايتها بكلمة سر لمنع المستخدم من معرفة الاجابات عن طريقها
علما ان طريقة حماية قاعدة البيانات عن طريق الاكسس
مابتزبط مع الفيجوال بيسك
الي عنده حل ياريت يرد وسلااام
سهلة اخي العزيز
1 - عن طريق تغيير لاحقة قاعدة البيانات
2 - تستطيع استخدام حماية الإكسس بالفيجوال عن طريق ado
السلام عليكم
لقد حليت المشكلة والحمدالله
خلاص المسابقة تمام التمام
الاخ سيد مختار صالح
هل تظن ان كلامك واضح
ياريت تاني مرة توضح اكثر في كلامك وشرحك عشان الكل يستفيد
للفائدة:
يمكننا تغيير امتداد قاعدة البيانات الى اي امتداد
مثلا نغيرها الى db.wav
نذهب الى الفيجوال بيسك وفي تعريف القاعدة نكتب امتداد القاعدة الجديد
يعني app.path & db.wav
وهكذا يتم تشفير القاعدة
وتحياتي
سلااام
أخي العزيز
أولاً : أنا مختار سيد صالح
و ليس سيد مختار صالح
و ثانياً : أنا قدمت لك كل ما اعرفه و انت استخدمت الطريقة الأولى و اللي هي تغيير الاحقة و فوقاها عم بتبهدلني بس الحق مو عليك الحق عليا انا اللي ساعدتك
سلام
ماشا الله عليكم
مني فاهم ولا كلمة :(
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…