تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
هل جملة الاستعلام هذه صحيحة ام خاطئة من فضلكم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
#1
كود :
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(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

       Catch ex As Exception

       End Try
   End Sub


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
قم باستبدالى الكود من بعد
كود :
where Nlivre =

بالكود التالى
كود :
'"& Nlivre.Text &"'", con)

فى كود الاستعلام وسيعمل معك بدون اى مشكلة

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: سعود , سعود , hassan 14 , hassan 14
#3
شكرا على ردك 
صححت الخطأ ولكن لا جدوى Sad
الرد
تم الشكر بواسطة: سعود
#4
(26-05-18, 02:04 AM)hassan 14 كتب : شكرا على ردك 
صححت الخطأ ولكن لا جدوى Sad


ما الذى يحدث معك 

اذا كان فى رسالة خطاء ارفقها لنا
وثانياً تاكد من مسميات الحقول بقاعدة البيانات صحيحة المدرجة بالكود

تحياتى لك
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: سعود , سعود , hassan 14
#5
يعني حالة الكتاب معار اولا نوعه نعم اولا صح او خطأ ولحد الساعة الاستعلام لا يشتغل chekbox
الرد
تم الشكر بواسطة:
#6
ارفق المشروع
حتى يتم مراجعة قاعدة البيانت والاكواد فى المشروع
لتوضيح ما هى المشكلة لديك بعد مراجعة المشروع

تحياتى لك
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:
#7
هذا الرسالة تضهرلي  aucune ligne à la position 0


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#8
جرب استبدل هذا السطر بالسطر التالى
كود :
If dt.Rows(0).Item("mooar").ToString() = 1 Then

ويفضل ارفاق قاعدة البيانات
لاتمام معرفة اذا كان الخطاء بقاعدة البيانات من حيث القيم

تحياتى لك
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:
#9
أولا : جملة الإستعلام لم ترجع ولا سجل واحد

       الجدول خالي من السجلات لذلك ستجد خطأء عند طب السجل في الفهرس رقم  dt.Rows(0) : 0

في جملة الإستعلام لا تضع علامة التنصيص بين القيمة المرسلة ، لأن القيمة رقم وليس نص , فلا ترسل الرقم كنص , إذا وضعت علامة التنصيص ، سيعامل كأنة نص
كود :
da = New OleDbDataAdapter("select * from Table3 where Nlivre = '" & Nlivre.Text & "'", con)

إكتفي بهذة : لتعلم القاعدة أنك تقصد رقم
كود :
da = New OleDbDataAdapter("select * from Table3 where Nlivre = " & Nlivre.Text, con)

تأكد أن الحقل Nlivre في قاعدة البيانات نوعة رقمي
الرد
تم الشكر بواسطة: dell
#10
اشكركم الاخوة وكم كنت مسرورا لتعاونكم خاصة الاخ elgoker وعبد الله الدوسري والله جربت كل حلولكم لكن لا حياة لمن تنادي لم افهم اين الخلل تقبل الله صيامكم
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم