تقييم الموضوع :
  • 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 وعبد الله الدوسري والله جربت كل حلولكم لكن لا حياة لمن تنادي لم افهم اين الخلل تقبل الله صيامكم
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عرض بعض بيانات الاستعلام في datagrid nourmandour 6 83 منذ 31 دقيقة مضت
آخر رد: nourmandour
Exclamation مطلوب هذا البرنامج من فضلكم kador 7 112 21-04-19, 11:42 PM
آخر رد: elgokr
  [VB.NET] مشكلة في الاستعلام اسامه الهرماوي 4 68 18-04-19, 07:05 PM
آخر رد: ابراهيم ايبو
  [تم الحل]مراجعة لكود جملة FOR sads 12 191 03-04-19, 09:34 PM
آخر رد: sads
  [VB.NET] الفرق بين الاستعلام الأول و التاني DT as New DataTable sniperjawadino 2 90 31-03-19, 07:23 PM
آخر رد: بدري
Photo مشكلة فى كود الاستعلام medhat_fouad 3 94 28-03-19, 07:23 PM
آخر رد: medhat_fouad
  [VB.NET] تصحيح الاستعلام التالي محمد اسماعيل 6 130 20-03-19, 07:39 PM
آخر رد: محمد اسماعيل
  [VB.NET] الإكثار من فتح و غلق الاستعلام هل يسبب مشاكل ؟؟؟؟؟ sniperjawadino 5 285 25-01-19, 03:22 PM
آخر رد: sniperjawadino
  [سؤال] عايز دورة انشاء برنامج مثل الهين والامبراطورية من فضلكم omarzerrouki 6 1,267 21-01-19, 06:15 PM
آخر رد: elgokr
  السلام! أريد من فضلكم scrollbar يسحب أكثر من ليستبوكس مرة واحدة hichem1 2 142 21-01-19, 02:34 AM
آخر رد: hichem1

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


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