[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

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

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

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

جرب وابلغني 

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

تحياتى لك

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