[hassan 14]

اشكر الجميع على التفاعل خاصة elgoker وعبد الله الدوسري لقد جربت كل الحلول ولم تفد معي لم افهم اين الخلل  تقبل الله الصيام والقيام

[elgokr]

(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

كل ما تم اضافته هو التحق ان نتائج الاستعلام يحتوى على اى نتائج او لا

وفى حالى ان القيمة اكبر من صفر يقوم بتنفيذ باقي الكود

وفى حالة لا يقوم بظهور رسالة تفسد بان رقم / اسم الكتاب غير مدرج بقاعدة البيانات

جرب وابلغني 

باذن الله سيتم حل هذا الخطاء ويعمل معك بدون اى مشكلة

تحياتى لك

وتمنياتى لك التوفيق

[hassan 14]

بعد محاولات وبالطبع بمساعدتكم اخوتي الاستعلام يشتغل لكن هناك مشكلة بعد اعارة كتاب والتشيييك عليه اجرب واعيد اعارته من جديد يشتغل الاستعلام بصفة جيدة وبعد ان اعيد الكتاب نزع علامة الصح يصبح الكتاب في الجدول بحالتين في حالة اعادة اعارته واحدة فيها حالة الصح واخري فيها حالة الفلص الخطأ وهنا اصبح هناك تكرار كيف اتفادى الكتاب الذي اعيد حتى لا يصبح عندي تكرار وبعد هذا المشكل يتجاهل الشرط ويصبح يحفظ عادي اتمنى نكون اوصلت الفكرة كما اتمنى ان لا اكون ثقيل عليكم

[elgokr]

(27-05-18, 04:10 AM)hassan 14 كتب :

بعد محاولات وبالطبع بمساعدتكم اخوتي الاستعلام يشتغل لكن هناك مشكلة بعد اعارة كتاب والتشيييك عليه اجرب واعيد اعارته من جديد يشتغل الاستعلام بصفة جيدة وبعد ان اعيد الكتاب نزع علامة الصح يصبح الكتاب في الجدول بحالتين في حالة اعادة اعارته واحدة فيها حالة الصح واخري فيها حالة الفلص الخطأ وهنا اصبح هناك تكرار كيف اتفادى الكتاب الذي اعيد حتى لا يصبح عندي تكرار وبعد هذا المشكل يتجاهل الشرط ويصبح يحفظ عادي اتمنى نكون اوصلت الفكرة كما اتمنى ان لا اكون ثقيل عليكم

لهذا قمت بتوضيح من قبل

كما طلبت ارفاق قاعدة البيانات 

لاتمام معرفة توزيع قاعدة البيانات لتجنبك من هذه المشكلة

السؤال هنا:

هل انت قمت بعمل سجل اعارة الكتب

حيث ان اكتاب يسجل بجدول لعمل احصائية لعدد الاعارة 

اما انه فقط جدول الكتب ويوجد حقل يوضح قيمته اذا كان الكتاب معار او لا فقط

لان بنائاً على الاجابة دى يمكننا افادتك لمشكلة المقتبسة بالاعلى

مع اعادة تذكير [true = 1] || [false = 0] 

تحياتى لك

وتمنياتى لك التوفيق

[hassan 14]

شكرا اخي elgoker الانترنات عندي ضعيف حاولت غدا سارفقها كما اني من تعليقك الاخير ذكرت سجل او جدول لتقييم الاعارة كيف اضع لجدول المستقل حتى اتجنب تكرار البيانات بعد ارجاع الكتاب وعلى فكرة والله من خلال مناقشتي معكم تعلمت اشياء كثيرة انتم نعمة في هذا المنتدى شكرا لكم كثير وكل من تفاعل الله يكون في حماكم
حبيت نظيف فكرة الجدول الذي عليه العمل هو جدول بياناته هي نتاج مابين جدول الطلاب وجدول الكتب اخذ بيانات الطلاب واخذ بيانات الكتب واحفظ انا عندي ثلاث جداول لا اكثر ؟؟؟؟؟

الاخ elgoker شرحك صحيح مئة في المئة الاستعلام يشتغل في حالة البيانات لا توجد تضهر الرسالة بنعدام البيانات 
السؤال المطروح ؟ كيف ادخل البيانات اذن 
اعرف بأن الخطأ عندي ولكن لا بأس بالمحاولة ومحاولة فهم الطريقة بمساعدتكم بطبع شكر  خاص elgoker

[elgokr]

فى تعليقات سابقة قمت بتنبيه مع التوضيح

اذا كان الاستعلام عن الكتاب مبني فى جدول الكتب فقط

وليس سجل حركة الكتاب 

فمثلاً جدول الكتاب مبني على التالى

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 فى جدول السجل يقوم باضافة وليس تحديث

لعمل سجل حركة الكتاب ومعرفة عدد مرات تمت اعارة الكتاب فيه

التعليق هنا لاضاة من الافكار لما تقوم به

وبخصوص الحل النهائي لما يقف معك سيعتمد على قعدة البيانات او المشروع المرفق فى ردك

تحياتى لك

وتمنياتى لك التوفيق

[hassan 14]

السلام عليكم 
هدا هو الملف ل ما يخص اسماء الحقول ستجه في قاعدة البيانات اكسس في الوصف

[elgokr]

(27-05-18, 03:17 PM)hassan 14 كتب : السلام عليكم 
هدا هو الملف ل ما يخص اسماء الحقول ستجه في قاعدة البيانات اكسس في الوصف

اسف كثيراً على تاخيرى على الرد

لن انتبه ولا اطلع على ملفك الا الوقت الحالى

بعد الاطلاع على قاعدة البيانات

وجت قيمة واحدة فقط للكتاب

فى البداية محتاج منك تطبق الكود ى الرد التالى

12

ثانياً للتوضيح بان قاعدة البيانات فى الجدول رقم 3

يحتوى فقط على كتاب واحد

وما تم عمله فى المشاركة رقم 12 من تعديلات فى الكود

هو عملية التحقق بان نتائج الاستعلام ايجابية او سلبية 

قبل اتمام التحقق من باقى الكود الخاص بك

لان مثلاً فى جول 3 يوجد قيمة الحقل 7 فمثلاً انا قمت بعمل اعارة كتاب رقم 8

بما ان الكتاب غير موجود فى جدول 3  بكده الاستعلام هيكون 0 / سلبي

ومنها لما يقوم بخطوة التاكد فى هذا السطر

كود :

If dt.Rows(0).Item("mooar") = True Then

يجد فشل فى العملية لان من الاساس الاستعلام لا يقوم بعرض اى نتائج 

ليقوم من التحقق من قيمة هذا العمود فى هذا السطر

بعد تطبيق كود المشاركة رقم 12 بهذا الموضوع

سيحل كل المشاكل لديك

تحياتى لك

وتمنياتى لك التوفيق

[hassan 14]

صيام مقبول اشكرك الاخ elgoker والله الاستعلام يشتغل جيد جدا والحمد لله بفضلك تعلمنا اشياء كنا نجهلها كل شيئ يمشي كما طبقت لكن وقعت في مشكلة وهي كيف ادخل الكتب حتى استعلم عليها بعد تطبيق الكود لا يجد ولا كتاب يستعلم عليه ؟؟؟؟؟ وسمحولي اذا تعبتكم معي خاصة من ناحية الوقت

[elgokr]

(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

لعمل الكود اللازم

تحياتى لك

وتمنياتى لك التوفيق