منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اريد طريقة ملء اكتر من textbox عن طريق قاعده البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد طريقة ملء اكتر من textbox عن طريق قاعده البيانات (/showthread.php?tid=22477)

الصفحات: 1 2


RE: اريد طريقة ملء اكتر من textbox عن طريق قاعده البيانات - Rabeea Qbaha - 12-11-17

العفو صديقي، و ابدا لا يوجد ازعاج. و اذا اردت مساعده اخرى تواصل معي .


RE: اريد طريقة ملء اكتر من textbox عن طريق قاعده البيانات - مراد بورجي - 12-11-17

جزاك الله الف خير اخي وانا والله اننا اتعلم بقدر المستطاع والهدف منه التعلم وفي نفس الوقت لانهي عمل الشركة الا انا شغال فيها طلبو مني عمل الفورL دا مؤقت للفواتير بسبب نهائية السنة وسامحنا ادا ازعجتك وشكرا لك


فهمت الكود ولكن عند ادخال رقم قطعة غير موجود الداتا جريد فيو تستمر في الادخال في الوصف والعدد والسعر ولا تظهر الرسالة المحددة في الجزء العلوي
If MessageBox.Show("هذا الصنف غير موجود بقاعده البيانات هل تريد تسجيلة ؟؟", "Delete", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.No Then
حوالت اغير القيمة الى TRUE
Public Function part_no_Ex(ByVal part_no As String) As Boolean
Dim correct_version As Boolean = False


Dim command As New OleDbCommand("SELECT part_no FROM price", con)
command.Parameters.AddWithValue("@part_no", part_no)
'فحص الاتصال بقاعدة البيانات
If con.State = ConnectionState.Open Then
con.Close()
End If
con.Open()
Using reader As OleDbDataReader = command.ExecuteReader
While reader.Read
If IsDBNull(reader("part_no")) Then
correct_version = False
Else
correct_version = True
End If
End While
End Using

con.Close()
Return correct_version
End Function

كود :
If part_no_Ex(part_no) = True Then
           If MessageBox.Show("هذا الصنف غير موجود بقاعده البيانات هل تريد تسجيلة ؟؟", "Delete", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.No Then
               Return
           End If
جزاك الله خير اخي الكريم عرفت الغلطة كانت في الFALSE  حولته TRUE اشتغل معي شكرا جزيلا

المعذرة اخي غلطت عندا فعلت ال TRUE اصبح حتي القطع الموجود يطلع الرسالة بهل تريد اضافتها


RE: اريد طريقة ملء اكتر من textbox عن طريق قاعده البيانات - مراد بورجي - 12-11-17

اخواني عملت عملية الحفظ في الداتا جريد فيو ولكن يطلع خطا في الاندكس ارجو المساعده الضرورية


RE: اريد طريقة ملء اكتر من textbox عن طريق قاعده البيانات - Rabeea Qbaha - 12-11-17

تفضل اخي قمت بالتعديل عليها