27-05-18, 12:23 AM
اشكر الجميع على التفاعل خاصة elgoker وعبد الله الدوسري لقد جربت كل الحلول ولم تفد معي لم افهم اين الخلل تقبل الله الصيام والقيام
27-05-18, 12:23 AM
27-05-18, 01:28 AM
(27-05-18, 12:08 AM)hassan 14 كتب : [ -> ]اشكركم الاخوة وكم كنت مسرورا لتعاونكم خاصة الاخ elgoker وعبد الله الدوسري والله جربت كل حلولكم لكن لا حياة لمن تنادي لم افهم اين الخلل تقبل الله صيامكم
لا عليك اخى الكريم والشكر دائماً لله
لكن ساقوم بتبسيط الامور اكثر
قد يكون المشكلة فى جزء محدد لا يخطر على بالي فى الفترة السابقة
وما اعطي تلميح له هو الاخ عبدالله الدوسري
من حيث هذا الجزء
كود :
da = New OleDbDataAdapter("select * from Table3 where Nlivre = " & Nlivre.Text, con)كما تعلم انا لا اجيد اللغة الفرنسية
لذلك لا اعلم Nlivre هو القصود هنا رقم الكتاب أو انه اسم الكتاب
لكن على كلا الحالتين والاهم PHP كود :
Nlivre.Text
اى كان اذا المقصود هنا رقم الكتاب او اسم الكتاب
السؤال هنا هل اليمة المدخلة هنا هي يدوية من قبل المستخدم
يعنى يقوم بكتابة اسم الكتاب المطلوب يدوياً او رقم الكتاب
فى الحالة دى اى كان سيكون حالة الاستعلام وارد ان تكون 0
حيث لا يوجد بالجدول اى نتائج للاستعلام لان لا يوجد رقم او اسم الكتاب المطلوب
مما يجعل الخطاء ياتى بهذا السطر
كود :
If dt.Rows(0).Item("mooar").ToString = True Thenطيب لتفادى هذا ما عليك ان تفعل
ستقوم باستبدال الكود فى اول مشاركة للموضوع بالكود التالىكود :
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Try
Dim dt As New DataTable
Dim da As New OleDbDataAdapter
dt.Clear()
da = New OleDbDataAdapter("select * from Table3 where Nlivre = "& Nlivre.Text, con)
da.Fill(dt)
If dt.Rows.Count > 0 Then
If dt.Rows(0).Item("mooar").ToString = True Then
MsgBox("هذا الكتاب في الاعارة", MsgBoxStyle.Exclamation, "تنبيه")
Else
preedt.Rows.Add()
Dim last As Integer = preedt.Rows.Count - 1
preedt.Rows(last).Item("Nlivre") = Nlivre.Text
preedt.Rows(last).Item("Npree") = Npree.Text
preedt.Rows(last).Item("Nometalib") = Nometalib.Text
preedt.Rows(last).Item("Prnometalib") = Prnometalib.Text
preedt.Rows(last).Item("Titerlivre") = Titerlivre.Text
preedt.Rows(last).Item("Classelivre") = Classelivre.Text
preedt.Rows(last).Item("Auterlivre") = Auterlivre.Text
preedt.Rows(last).Item("Ntalib") = Ntalib.Text
preedt.Rows(last).Item("mooar") = CheckBox1.Checked
preedt.Rows(last).Item("Datepre") = Datepre.Value
preedt.Rows(last).Item("nmbtotard") = Nmbtotard.Text
Dim sav As New OleDbCommandBuilder(preeda)
preeda.Update(preedt)
preedt.AcceptChanges()
MsgBox("تم الاعارة بنجاح", MsgBoxStyle.Information, "تنبيه")
loudpree()
novoupree()
End If
Else
MsgBox("لا يوجد اى نتائج عن رقم/أسم الكتاب المدخل", MsgBoxStyle.Exclamation, "تنبيه")
''''''''''''| قم بتغيير نص الرسالة لما تشاء |'''''''''''
End If
Catch ex As Exception
End Try
End Subكل ما تم اضافته هو التحق ان نتائج الاستعلام يحتوى على اى نتائج او لا
وفى حالى ان القيمة اكبر من صفر يقوم بتنفيذ باقي الكود
وفى حالة لا يقوم بظهور رسالة تفسد بان رقم / اسم الكتاب غير مدرج بقاعدة البيانات
جرب وابلغني
باذن الله سيتم حل هذا الخطاء ويعمل معك بدون اى مشكلة
تحياتى لك
وتمنياتى لك التوفيق
27-05-18, 04:10 AM
بعد محاولات وبالطبع بمساعدتكم اخوتي الاستعلام يشتغل لكن هناك مشكلة بعد اعارة كتاب والتشيييك عليه اجرب واعيد اعارته من جديد يشتغل الاستعلام بصفة جيدة وبعد ان اعيد الكتاب نزع علامة الصح يصبح الكتاب في الجدول بحالتين في حالة اعادة اعارته واحدة فيها حالة الصح واخري فيها حالة الفلص الخطأ وهنا اصبح هناك تكرار كيف اتفادى الكتاب الذي اعيد حتى لا يصبح عندي تكرار وبعد هذا المشكل يتجاهل الشرط ويصبح يحفظ عادي اتمنى نكون اوصلت الفكرة كما اتمنى ان لا اكون ثقيل عليكم
27-05-18, 04:56 AM
(27-05-18, 04:10 AM)hassan 14 كتب : [ -> ]بعد محاولات وبالطبع بمساعدتكم اخوتي الاستعلام يشتغل لكن هناك مشكلة بعد اعارة كتاب والتشيييك عليه اجرب واعيد اعارته من جديد يشتغل الاستعلام بصفة جيدة وبعد ان اعيد الكتاب نزع علامة الصح يصبح الكتاب في الجدول بحالتين في حالة اعادة اعارته واحدة فيها حالة الصح واخري فيها حالة الفلص الخطأ وهنا اصبح هناك تكرار كيف اتفادى الكتاب الذي اعيد حتى لا يصبح عندي تكرار وبعد هذا المشكل يتجاهل الشرط ويصبح يحفظ عادي اتمنى نكون اوصلت الفكرة كما اتمنى ان لا اكون ثقيل عليكم
لهذا قمت بتوضيح من قبل
كما طلبت ارفاق قاعدة البيانات
لاتمام معرفة توزيع قاعدة البيانات لتجنبك من هذه المشكلة
السؤال هنا:
هل انت قمت بعمل سجل اعارة الكتب
حيث ان اكتاب يسجل بجدول لعمل احصائية لعدد الاعارة
اما انه فقط جدول الكتب ويوجد حقل يوضح قيمته اذا كان الكتاب معار او لا فقط
لان بنائاً على الاجابة دى يمكننا افادتك لمشكلة المقتبسة بالاعلى
مع اعادة تذكير [true = 1] || [false = 0]
تحياتى لك
وتمنياتى لك التوفيق
27-05-18, 05:18 AM
شكرا اخي elgoker الانترنات عندي ضعيف حاولت غدا سارفقها كما اني من تعليقك الاخير ذكرت سجل او جدول لتقييم الاعارة كيف اضع لجدول المستقل حتى اتجنب تكرار البيانات بعد ارجاع الكتاب وعلى فكرة والله من خلال مناقشتي معكم تعلمت اشياء كثيرة انتم نعمة في هذا المنتدى شكرا لكم كثير وكل من تفاعل الله يكون في حماكم
حبيت نظيف فكرة الجدول الذي عليه العمل هو جدول بياناته هي نتاج مابين جدول الطلاب وجدول الكتب اخذ بيانات الطلاب واخذ بيانات الكتب واحفظ انا عندي ثلاث جداول لا اكثر ؟؟؟؟؟
الاخ elgoker شرحك صحيح مئة في المئة الاستعلام يشتغل في حالة البيانات لا توجد تضهر الرسالة بنعدام البيانات
السؤال المطروح ؟ كيف ادخل البيانات اذن
اعرف بأن الخطأ عندي ولكن لا بأس بالمحاولة ومحاولة فهم الطريقة بمساعدتكم بطبع شكر خاص elgoker
حبيت نظيف فكرة الجدول الذي عليه العمل هو جدول بياناته هي نتاج مابين جدول الطلاب وجدول الكتب اخذ بيانات الطلاب واخذ بيانات الكتب واحفظ انا عندي ثلاث جداول لا اكثر ؟؟؟؟؟
الاخ elgoker شرحك صحيح مئة في المئة الاستعلام يشتغل في حالة البيانات لا توجد تضهر الرسالة بنعدام البيانات
السؤال المطروح ؟ كيف ادخل البيانات اذن
اعرف بأن الخطأ عندي ولكن لا بأس بالمحاولة ومحاولة فهم الطريقة بمساعدتكم بطبع شكر خاص elgoker
27-05-18, 06:13 AM
فى تعليقات سابقة قمت بتنبيه مع التوضيح
اذا كان الاستعلام عن الكتاب مبني فى جدول الكتب فقط
وليس سجل حركة الكتاب
فمثلاً جدول الكتاب مبني على التالى
ID || CodeBook || NameBook || CeckBook
هذا كا مثال فقط
وهو التالى ( رقم التسلسل - كود الكتاب - اسم الكتاب - حقل بنعم أو لا [ للتاكد بانه معار او لا ] )
لما هنعمل الاستعلام
سيفضل الاستعلام يكون على CodeBook
حيث ان كود الكتاب لن يتكرر مع كتاب اخر
بما ان فى احتمالية اسم الكتاب يتكرر كمثال
كتاب ( ما هو الاسلام ) للكاتب : فضيلة الشيخ الدكتور فلان الفلان تاريخ الاصدار 1872كتاب ( ما هو الاسلام ) للكاتب : الدكتور فلان الفلان تاريخ الاصدار 2002
فالاسم تكرر لكن كلا منهما مختلف عن الاخر
اذا كان الاستعلام عن اسم الكتاب
فمن الطبيعي سيقوم عرض 2 سجل فى الاستعلام
وبما ان الاستعلام مش مرتب من الاحدث للاقدم او العكس فسيتم اخد السجل الاول فى الاستعلام
لذلك يفضل عمل كود للكتاب بحيث ان الكود لا يتم تكراره
وبكدة ناتج الاستعلام 1 مهما تم
طيب لو كان الفكرة من جدولين مثلاً
جدول الكتب و جدول حركة
فـ مثلاً كل جدول به التالى
جدول الكتب
ID || CodeBook || NameBook || NCeckBook
جدول سجل حركة الكتاب
ID || NCeckBook || CodeBook || CheckBook
هنا يكون التالى
عملية الاستعلام مع الربط
بان قيمة CodeBook من جدول الكتب تسوى CodeBook من سجل الحركة
وايضاً NCeckBook من جدول الكتب يساوى NCeckBook من سجل الحركة
من ثم التاكد من قيمة CheckBook من جدول سجل الحركة اذا كان 0 او 1
سيكون القيمة لاستعلام 1 مهما كان لان كل مرة بيتم فيها اعارة الكتاب
يتم تحديث قيمة NCeckBook من جدول الكتاب بيكون مثلاً تاريخ ووقت الاعارة
ولما يتم استرجاعه يتم تحديث القيمة لتاريخ ووقت الاسترجاع
بينما NCeckBook فى جدول السجل يقوم باضافة وليس تحديث
لعمل سجل حركة الكتاب ومعرفة عدد مرات تمت اعارة الكتاب فيه
التعليق هنا لاضاة من الافكار لما تقوم به
وبخصوص الحل النهائي لما يقف معك سيعتمد على قعدة البيانات او المشروع المرفق فى ردك
تحياتى لك
وتمنياتى لك التوفيق
27-05-18, 03:17 PM
السلام عليكم
هدا هو الملف ل ما يخص اسماء الحقول ستجه في قاعدة البيانات اكسس في الوصف
هدا هو الملف ل ما يخص اسماء الحقول ستجه في قاعدة البيانات اكسس في الوصف
28-05-18, 05:57 PM
(27-05-18, 03:17 PM)hassan 14 كتب : [ -> ]السلام عليكم
هدا هو الملف ل ما يخص اسماء الحقول ستجه في قاعدة البيانات اكسس في الوصف
اسف كثيراً على تاخيرى على الرد
لن انتبه ولا اطلع على ملفك الا الوقت الحالى
بعد الاطلاع على قاعدة البيانات
وجت قيمة واحدة فقط للكتاب
فى البداية محتاج منك تطبق الكود ى الرد التالى
ثانياً للتوضيح بان قاعدة البيانات فى الجدول رقم 3
يحتوى فقط على كتاب واحد
وما تم عمله فى المشاركة رقم 12 من تعديلات فى الكود
هو عملية التحقق بان نتائج الاستعلام ايجابية او سلبية
قبل اتمام التحقق من باقى الكود الخاص بك
لان مثلاً فى جول 3 يوجد قيمة الحقل 7 فمثلاً انا قمت بعمل اعارة كتاب رقم 8
بما ان الكتاب غير موجود فى جدول 3 بكده الاستعلام هيكون 0 / سلبي
ومنها لما يقوم بخطوة التاكد فى هذا السطر
كود :
If dt.Rows(0).Item("mooar") = True Thenيجد فشل فى العملية لان من الاساس الاستعلام لا يقوم بعرض اى نتائج
ليقوم من التحقق من قيمة هذا العمود فى هذا السطر
بعد تطبيق كود المشاركة رقم 12 بهذا الموضوع
سيحل كل المشاكل لديك
تحياتى لك
وتمنياتى لك التوفيق
29-05-18, 02:18 AM
صيام مقبول اشكرك الاخ elgoker والله الاستعلام يشتغل جيد جدا والحمد لله بفضلك تعلمنا اشياء كنا نجهلها كل شيئ يمشي كما طبقت لكن وقعت في مشكلة وهي كيف ادخل الكتب حتى استعلم عليها بعد تطبيق الكود لا يجد ولا كتاب يستعلم عليه ؟؟؟؟؟ وسمحولي اذا تعبتكم معي خاصة من ناحية الوقت
29-05-18, 02:58 AM
(29-05-18, 02:18 AM)hassan 14 كتب : [ -> ]صيام مقبول اشكرك الاخ elgoker والله الاستعلام يشتغل جيد جدا والحمد لله بفضلك تعلمنا اشياء كنا نجهلها كل شيئ يمشي كما طبقت لكن وقعت في مشكلة وهي كيف ادخل الكتب حتى استعلم عليها بعد تطبيق الكود لا يجد ولا كتاب يستعلم عليه ؟؟؟؟؟ وسمحولي اذا تعبتكم معي خاصة من ناحية الوقت
ولا يهمك اخى الكريم
والشكر لله دائماً
الامر سهل جداً بنائاً على قاعدة البيانات التى لديك والتى اطلعت عليها مسبقاً
كل ما ستحتاج اليه التالى
تخيل معى الفكرة لتسهل معك كيية عمل الكود
الان جدول رقم 3 يحتوى على كتاب رقم 7 الى هنا جميل
مثلاً انا اريد اعارة الكتاب رقم 8 ولكن الكتاب غير موجود فى الجدول 3
فكل الفكرة هنا هيتم بعد الاستعلام واتضح ان قيمة الاستعلام لجدول 3 سلبى اى انه 0
تقوم انت بادراج كود اضافة كتاب فى الجدول 3
مع جعل القيمة خاصة الكتاب 3 معار
بس بكل بساطة
ولما الشخص يعيد الكتاب
بطبيعي كود الاستعلام وقتها سيقوم بجلب قيمة الاستعلام ايجابي اى 1
وبكده هيطبق كود التخديث لتحويل الكتاب من معار الى غير معار
الامر بسيط واترك انت تقوم بانشاء الكود
واذا كنت غير ادر بعد المحولة ساقوم بتوضيح
كيف عمل الكود واى منطة يتم الادراج
لتسهيل الامر علك
ركز عن الجزء دهكود :
If dt.Rows.Count > 0 Thenوان كل ما ستحتاجة هو Else
لعمل الكود اللازم
تحياتى لك
وتمنياتى لك التوفيق