+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : هل جملة الاستعلام هذه صحيحة ام خاطئة من فضلكم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ (/showthread.php?tid=25096)
هل جملة الاستعلام هذه صحيحة ام خاطئة من فضلكم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ - hassan 14 - 26-05-18
كود :
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 SubRE: هل جملة الاستعلام هذه صحيحة ام خاطئة من فضلكم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ - elgokr - 26-05-18
قم باستبدالى الكود من بعد
كود :
where Nlivre =بالكود التالى
كود :
'"& Nlivre.Text &"'", con)فى كود الاستعلام وسيعمل معك بدون اى مشكلة
تحياتى لك
وتمنياتى لك التوفيق
RE: هل جملة الاستعلام هذه صحيحة ام خاطئة من فضلكم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ - hassan 14 - 26-05-18
شكرا على ردك
صححت الخطأ ولكن لا جدوى
RE: هل جملة الاستعلام هذه صحيحة ام خاطئة من فضلكم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ - elgokr - 26-05-18
(26-05-18, 02:04 AM)hassan 14 كتب : شكرا على ردك
صححت الخطأ ولكن لا جدوى
ما الذى يحدث معك
اذا كان فى رسالة خطاء ارفقها لنا
وثانياً تاكد من مسميات الحقول بقاعدة البيانات صحيحة المدرجة بالكود
تحياتى لك
RE: هل جملة الاستعلام هذه صحيحة ام خاطئة من فضلكم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ - hassan 14 - 26-05-18
يعني حالة الكتاب معار اولا نوعه نعم اولا صح او خطأ ولحد الساعة الاستعلام لا يشتغل chekbox
RE: هل جملة الاستعلام هذه صحيحة ام خاطئة من فضلكم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ - elgokr - 26-05-18
ارفق المشروع
حتى يتم مراجعة قاعدة البيانت والاكواد فى المشروع
لتوضيح ما هى المشكلة لديك بعد مراجعة المشروع
تحياتى لك
RE: هل جملة الاستعلام هذه صحيحة ام خاطئة من فضلكم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ - hassan 14 - 26-05-18
هذا الرسالة تضهرلي aucune ligne à la position 0
RE: هل جملة الاستعلام هذه صحيحة ام خاطئة من فضلكم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ - elgokr - 26-05-18
جرب استبدل هذا السطر بالسطر التالى
كود :
If dt.Rows(0).Item("mooar").ToString() = 1 Thenويفضل ارفاق قاعدة البيانات
لاتمام معرفة اذا كان الخطاء بقاعدة البيانات من حيث القيم
تحياتى لك
RE: هل جملة الاستعلام هذه صحيحة ام خاطئة من فضلكم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ - عبدالله الدوسري - 26-05-18
أولا : جملة الإستعلام لم ترجع ولا سجل واحد
الجدول خالي من السجلات لذلك ستجد خطأء عند طب السجل في الفهرس رقم 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 في قاعدة البيانات نوعة رقمي
RE: هل جملة الاستعلام هذه صحيحة ام خاطئة من فضلكم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ - hassan 14 - 27-05-18
اشكركم الاخوة وكم كنت مسرورا لتعاونكم خاصة الاخ elgoker وعبد الله الدوسري والله جربت كل حلولكم لكن لا حياة لمن تنادي لم افهم اين الخلل تقبل الله صيامكم