+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كود للاستعلام عن الاسعار (/showthread.php?tid=29948)
كود للاستعلام عن الاسعار - علاء الكبابي - 21-06-19
احبابي في الله السلام عليكم
في تصميمي لبرنامج صغير للاستعلام عن الاسعار باستخدام فيجوال بيسك ٢٠١٠ وقاعدة بيانات اكسس.....
اريد كود اذا تم ادخال رقم لصنف غير مسجل على قاعدة البيانات تظهر رسالة تنبيه... الصنف غير مسجل
ولكم جزيل الشكر
RE: سؤال برنامج صغير للاستعلام عن الاسعار - wared - 21-06-19
(21-06-19, 06:03 AM)علاء الكبابي كتب : احبابي في الله السلام عليكم
في تصميمي لبرنامج صغير للاستعلام عن الاسعار باستخدام فيجوال بيسك ٢٠١٠ وقاعدة بيانات اكسس.....
اريد كود اذا تم ادخال رقم لصنف غير مسجل على قاعدة البيانات تظهر رسالة تنبيه... الصنف غير مسجل
ولكم جزيل الشكر
(لست مبرمج VB.NET)
من نتيجة الاستعلام الذي قمت به إفحص عدد الصفوف، فإن كانت=0 فعنئد أظهر رسالة التنبيه.
RE: سؤال برنامج صغير للاستعلام عن الاسعار - elgokr - 21-06-19
(21-06-19, 06:03 AM)علاء الكبابي كتب : احبابي في الله السلام عليكم
في تصميمي لبرنامج صغير للاستعلام عن الاسعار باستخدام فيجوال بيسك ٢٠١٠ وقاعدة بيانات اكسس.....
اريد كود اذا تم ادخال رقم لصنف غير مسجل على قاعدة البيانات تظهر رسالة تنبيه... الصنف غير مسجل
ولكم جزيل الشكر
عفواً اخى الكريم يخالف القوانين
إقتباس :عدم طلب أكواد كاملة فالمنتدى منتدى تعليمي وليس منتدى طلب برامج وذلك يتضمن الواجبات المدرسية ومشاريع التخرج أرنا محاولاتك للوصول إلى الكود الصحيح أولا ثم نتساعد جميعا للوصول إلى الكود الأمثل
يجب عليك مبادرة الامر والبداء فى الامر
وكلما وقف معك كود او فكر ما طرحه ليجيب عليك الكثير هنا
فى انتظار ردك هنا لاتمام الامر اللازم
طبقاً كونك ستبادر فى بداء المشروع وتغيير عنوان ومحتوى الموضوع
او بقاء الموضوع الموضوع على ما هو عليه للحذف
تحياتى لك
وتمنياتى لك التوفيق
RE: سؤال برنامج صغير للاستعلام عن الاسعار - Rabeea Qbaha - 21-06-19
PHP كود :
Private Function product_Exists(ByVal num As String) As Boolean
If ConnectionState.Open Then
Conn.Close()
End If
Conn.Open()
Dim cmd As OleDbCommand = Conn.CreateCommand
cmd.CommandText = "SELECT COUNT(*) FROM ur_table where product_number = @product_number"
cmd.Parameters.AddWithValue("@product_number", num)
product_Exists = cmd.ExecuteScalar > 0
Conn.Close()
End Function
ويتم استدعائه كالاتي :
PHP كود :
If cheque_Exists(product_number.Text) = True Then
MsgBox("! هذا المنتج مسجل من قبل")
End If
RE: سؤال برنامج صغير للاستعلام عن الاسعار - علاء الكبابي - 22-06-19
(21-06-19, 08:17 PM)elgokr كتب :(21-06-19, 06:03 AM)علاء الكبابي كتب : احبابي في الله السلام عليكم
في تصميمي لبرنامج صغير للاستعلام عن الاسعار باستخدام فيجوال بيسك ٢٠١٠ وقاعدة بيانات اكسس.....
اريد كود اذا تم ادخال رقم لصنف غير مسجل على قاعدة البيانات تظهر رسالة تنبيه... الصنف غير مسجل
ولكم جزيل الشكر
عفواً اخى الكريم يخالف القوانين
إقتباس :عدم طلب أكواد كاملة فالمنتدى منتدى تعليمي وليس منتدى طلب برامج وذلك يتضمن الواجبات المدرسية ومشاريع التخرج أرنا محاولاتك للوصول إلى الكود الصحيح أولا ثم نتساعد جميعا للوصول إلى الكود الأمثل
يجب عليك مبادرة الامر والبداء فى الامروكلما وقف معك كود او فكر ما طرحه ليجيب عليك الكثير هنا
فى انتظار ردك هنا لاتمام الامر اللازمطبقاً كونك ستبادر فى بداء المشروع وتغيير عنوان ومحتوى الموضوعاو بقاء الموضوع الموضوع على ما هو عليه للحذف
تحياتى لكوتمنياتى لك التوفيق
للأسف مش فاهم ايه المقصود
يعني عشان يحق لي ان اسأل يجب علي وضع مشروعي كامل على المنتدى؟!
يعني ايه ارنا محاولاتك في الوصول......... اعمل سكرين شوت للهيستوري بتاع المتصفح!!!!
انا لقيت ان الناس بتسأل لما تقع في مشكلة فسألت زيهم
RE: سؤال برنامج صغير للاستعلام عن الاسعار - elgokr - 22-06-19
(22-06-19, 03:41 PM)علاء الكبابي كتب : للأسف مش فاهم ايه المقصود
يعني عشان يحق لي ان اسأل يجب علي وضع مشروعي كامل على المنتدى؟!
يعني ايه ارنا محاولاتك في الوصول......... اعمل سكرين شوت للهيستوري بتاع المتصفح!!!!
انا لقيت ان الناس بتسأل لما تقع في مشكلة فسألت زيهم
اخى الحبيب علاء الكبابي
يحق لك ان تسال وتستفسر كما تشاء عن كل ما يقف معك فى مشروعك
ولكن من المخالف ان تطلب مشروعاً جاهزاً أو برنامج وما شبه من هذا الامر
لهذا تم التنبيه على ذلك حتى تكون على دراية بالامر
فالموقع هنا يهدف للتعليم وليس لتلبية الطلبات لهذا السبب تم وضع هذا النقطة بالقوانين الموقع
والملاحظة تم وضعها بناءاً على هذا الجزء..
(21-06-19, 06:03 AM)علاء الكبابي كتب : في تصميمي لبرنامج صغير للاستعلام عن الاسعار باستخدام فيجوال بيسك ٢٠١٠ وقاعدة بيانات اكسس.....
فاتمنى قبول منى النقاش والتنبيه على هذه الجزئية
تحياتى لك
وتمنياتى لك التوفيق
RE: سؤال برنامج صغير للاستعلام عن الاسعار - alshandodi - 22-06-19
(21-06-19, 06:03 AM)علاء الكبابي كتب : احبابي في الله السلام عليكم
في تصميمي لبرنامج صغير للاستعلام عن الاسعار باستخدام فيجوال بيسك ٢٠١٠ وقاعدة بيانات اكسس.....
اريد كود اذا تم ادخال رقم لصنف غير مسجل على قاعدة البيانات تظهر رسالة تنبيه... الصنف غير مسجل
ولكم جزيل الشكر
إقتباس :أتمنى ان يفيدك هذا الكود المتواضعكود :
Private Sub txtID_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtID.KeyDown
If e.KeyCode = Keys.Enter Then
'get product infos
Try
cmd = New OleDb.OleDbCommand("select Label , price from Table1 where id = " & Textbox1.Text, con)
con.Open()
Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader
dr.Read()
If dr.HasRows Then
textbox2.Text = dr(1)
textbox3.Text = dr(2)
textbox4.Focus()
textbox4.Text = "1"
Else
MsgBox("لايوجد معرف بهذا الرقم", MsgBoxStyle.Exclamation, "تنبيه")
clear()
End If
dr.Close()
Catch ex As Exception
Exit Sub
Finally
con.Close()
End Try
End If
End Sub
RE: سؤال برنامج صغير للاستعلام عن الاسعار - علاء الكبابي - 23-06-19
(22-06-19, 04:47 PM)elgokr كتب : والملاحظة تم وضعها بناءاً على هذا الجزء..
(21-06-19, 06:03 AM)علاء الكبابي كتب : في تصميمي لبرنامج صغير للاستعلام عن الاسعار باستخدام فيجوال بيسك ٢٠١٠ وقاعدة بيانات اكسس.....فاتمنى قبول منى النقاش والتنبيه على هذه الجزئيةتحياتى لكوتمنياتى لك التوفيق
حصل خير انا قصدت بالجملة اني اعرف الي هيشوف الموضوع ويحاول يرد عليه اللغة الي انا شغال بيها ونوع الداتا ..... عشان محدش يرد على اساس لغة تانية او sql
وتحياتي للجميع والمفروض اننا هنا عشان كلنا نتعلم من بعض فأرجو ان مفيش حد يزعل مني
(22-06-19, 05:19 PM)alshandodi كتب :للأسف لم استطع استخدامه(21-06-19, 06:03 AM)علاء الكبابي كتب : احبابي في الله السلام عليكم
في تصميمي لبرنامج صغير للاستعلام عن الاسعار باستخدام فيجوال بيسك ٢٠١٠ وقاعدة بيانات اكسس.....
اريد كود اذا تم ادخال رقم لصنف غير مسجل على قاعدة البيانات تظهر رسالة تنبيه... الصنف غير مسجل
ولكم جزيل الشكر
إقتباس :أتمنى ان يفيدك هذا الكود المتواضعكود :
Private Sub txtID_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtID.KeyDown
If e.KeyCode = Keys.Enter Then
'get product infos
Try
cmd = New OleDb.OleDbCommand("select Label , price from Table1 where id = " & Textbox1.Text, con)
con.Open()
Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader
dr.Read()
If dr.HasRows Then
textbox2.Text = dr(1)
textbox3.Text = dr(2)
textbox4.Focus()
textbox4.Text = "1"
Else
MsgBox("لايوجد معرف بهذا الرقم", MsgBoxStyle.Exclamation, "تنبيه")
clear()
End If
dr.Close()
Catch ex As Exception
Exit Sub
Finally
con.Close()
End Try
End If
End Sub
RE: سؤال برنامج صغير للاستعلام عن الاسعار - alshandodi - 23-06-19
(23-06-19, 05:15 PM)علاء الكبابي كتب :(22-06-19, 04:47 PM)elgokr كتب : والملاحظة تم وضعها بناءاً على هذا الجزء..
(21-06-19, 06:03 AM)علاء الكبابي كتب : في تصميمي لبرنامج صغير للاستعلام عن الاسعار باستخدام فيجوال بيسك ٢٠١٠ وقاعدة بيانات اكسس.....فاتمنى قبول منى النقاش والتنبيه على هذه الجزئيةتحياتى لكوتمنياتى لك التوفيق
حصل خير انا قصدت بالجملة اني اعرف الي هيشوف الموضوع ويحاول يرد عليه اللغة الي انا شغال بيها ونوع الداتا ..... عشان محدش يرد على اساس لغة تانية او sql
وتحياتي للجميع والمفروض اننا هنا عشان كلنا نتعلم من بعض فأرجو ان مفيش حد يزعل مني
(22-06-19, 05:19 PM)alshandodi كتب :للأسف لم استطع استخدامه(21-06-19, 06:03 AM)علاء الكبابي كتب : احبابي في الله السلام عليكم
في تصميمي لبرنامج صغير للاستعلام عن الاسعار باستخدام فيجوال بيسك ٢٠١٠ وقاعدة بيانات اكسس.....
اريد كود اذا تم ادخال رقم لصنف غير مسجل على قاعدة البيانات تظهر رسالة تنبيه... الصنف غير مسجل
ولكم جزيل الشكر
إقتباس :أتمنى ان يفيدك هذا الكود المتواضعكود :
Private Sub txtID_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtID.KeyDown
If e.KeyCode = Keys.Enter Then
'get product infos
Try
cmd = New OleDb.OleDbCommand("select Label , price from Table1 where id = " & Textbox1.Text, con)
con.Open()
Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader
dr.Read()
If dr.HasRows Then
textbox2.Text = dr(1)
textbox3.Text = dr(2)
textbox4.Focus()
textbox4.Text = "1"
Else
MsgBox("لايوجد معرف بهذا الرقم", MsgBoxStyle.Exclamation, "تنبيه")
clear()
End If
dr.Close()
Catch ex As Exception
Exit Sub
Finally
con.Close()
End Try
End If
End Sub
إقتباس :أعتذر أخي امكن حدث مني خطا فانا لم اطلب إحضار جميع ما في الجدول فهذا مثال واتمنى ان تستفيد منه وهو بطريقتين