[علاء الكبابي]

احبابي في الله السلام عليكم 
في تصميمي لبرنامج صغير للاستعلام عن الاسعار باستخدام فيجوال بيسك ٢٠١٠ وقاعدة بيانات اكسس.....
اريد كود اذا تم ادخال رقم لصنف غير مسجل على قاعدة البيانات تظهر رسالة تنبيه... الصنف غير مسجل
ولكم جزيل الشكر

[wared]

(21-06-19, 06:03 AM)علاء الكبابي كتب : احبابي في الله السلام عليكم 
في تصميمي لبرنامج صغير للاستعلام عن الاسعار باستخدام فيجوال بيسك ٢٠١٠ وقاعدة بيانات اكسس.....
اريد كود اذا تم ادخال رقم لصنف غير مسجل على قاعدة البيانات تظهر رسالة تنبيه... الصنف غير مسجل
ولكم جزيل الشكر

(لست مبرمج VB.NET)

من نتيجة الاستعلام الذي قمت به إفحص عدد الصفوف، فإن كانت=0 فعنئد أظهر رسالة التنبيه.

[elgokr]

(21-06-19, 06:03 AM)علاء الكبابي كتب : احبابي في الله السلام عليكم 
في تصميمي لبرنامج صغير للاستعلام عن الاسعار باستخدام فيجوال بيسك ٢٠١٠ وقاعدة بيانات اكسس.....
اريد كود اذا تم ادخال رقم لصنف غير مسجل على قاعدة البيانات تظهر رسالة تنبيه... الصنف غير مسجل
ولكم جزيل الشكر

عفواً اخى الكريم يخالف القوانين

إقتباس :عدم طلب أكواد كاملة فالمنتدى منتدى تعليمي وليس منتدى طلب برامج وذلك يتضمن الواجبات المدرسية ومشاريع التخرج أرنا محاولاتك للوصول إلى الكود الصحيح أولا ثم نتساعد جميعا للوصول إلى الكود الأمثل

http://vb4arb.com/vb/showthread.php?tid=885

يجب عليك مبادرة الامر والبداء فى الامر

وكلما وقف معك كود او فكر ما طرحه ليجيب عليك الكثير هنا

فى انتظار ردك هنا لاتمام الامر اللازم

طبقاً كونك ستبادر فى بداء المشروع وتغيير عنوان ومحتوى الموضوع

او بقاء الموضوع الموضوع على ما هو عليه للحذف

تحياتى لك

وتمنياتى لك التوفيق

[Rabeea Qbaha]

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 


[علاء الكبابي]

(21-06-19, 08:17 PM)elgokr كتب :

(21-06-19, 06:03 AM)علاء الكبابي كتب : احبابي في الله السلام عليكم 
في تصميمي لبرنامج صغير للاستعلام عن الاسعار باستخدام فيجوال بيسك ٢٠١٠ وقاعدة بيانات اكسس.....
اريد كود اذا تم ادخال رقم لصنف غير مسجل على قاعدة البيانات تظهر رسالة تنبيه... الصنف غير مسجل
ولكم جزيل الشكر

عفواً اخى الكريم يخالف القوانين

إقتباس :عدم طلب أكواد كاملة فالمنتدى منتدى تعليمي وليس منتدى طلب برامج وذلك يتضمن الواجبات المدرسية ومشاريع التخرج أرنا محاولاتك للوصول إلى الكود الصحيح أولا ثم نتساعد جميعا للوصول إلى الكود الأمثل

http://vb4arb.com/vb/showthread.php?tid=885

يجب عليك مبادرة الامر والبداء فى الامر

وكلما وقف معك كود او فكر ما طرحه ليجيب عليك الكثير هنا

فى انتظار ردك هنا لاتمام الامر اللازم

طبقاً كونك ستبادر فى بداء المشروع وتغيير عنوان ومحتوى الموضوع

او بقاء الموضوع الموضوع على ما هو عليه للحذف

تحياتى لك

وتمنياتى لك التوفيق

للأسف مش فاهم ايه المقصود
يعني عشان يحق لي ان اسأل يجب علي وضع مشروعي كامل على المنتدى؟!
يعني ايه ارنا محاولاتك في الوصول......... اعمل سكرين شوت للهيستوري بتاع المتصفح!!!!
انا لقيت ان الناس بتسأل لما تقع في مشكلة فسألت زيهم

[elgokr]

(22-06-19, 03:41 PM)علاء الكبابي كتب : للأسف مش فاهم ايه المقصود
يعني عشان يحق لي ان اسأل يجب علي وضع مشروعي كامل على المنتدى؟!
يعني ايه ارنا محاولاتك في الوصول......... اعمل سكرين شوت للهيستوري بتاع المتصفح!!!!
انا لقيت ان الناس بتسأل لما تقع في مشكلة فسألت زيهم

اخى الحبيب علاء الكبابي

يحق لك ان تسال وتستفسر كما تشاء عن كل ما يقف معك فى مشروعك

ولكن من المخالف ان تطلب مشروعاً جاهزاً أو برنامج وما شبه من هذا الامر

لهذا تم التنبيه على ذلك حتى تكون على دراية بالامر

فالموقع هنا يهدف للتعليم وليس لتلبية الطلبات لهذا السبب تم وضع هذا النقطة بالقوانين الموقع

والملاحظة تم وضعها بناءاً على هذا الجزء..

(21-06-19, 06:03 AM)علاء الكبابي كتب : في تصميمي لبرنامج صغير للاستعلام عن الاسعار باستخدام فيجوال بيسك ٢٠١٠ وقاعدة بيانات اكسس.....

فاتمنى قبول منى النقاش والتنبيه على هذه الجزئية

تحياتى لك

وتمنياتى لك التوفيق

[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

 أتمنى ان يفيدك هذا الكود المتواضع 

[علاء الكبابي]

(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

 أتمنى ان يفيدك هذا الكود المتواضع 

للأسف لم استطع استخدامه

[alshandodi]

(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

 أتمنى ان يفيدك هذا الكود المتواضع 

للأسف لم استطع استخدامه

إقتباس :أعتذر أخي امكن حدث مني خطا فانا لم اطلب إحضار جميع ما في الجدول فهذا مثال واتمنى ان تستفيد منه وهو بطريقتين