منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > كود للاستعلام عن الاسعار
نسخة كاملة : كود للاستعلام عن الاسعار
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

علاء الكبابي

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

wared

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


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

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

elgokr

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

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


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

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

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

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

Rabeea Qbaha

21-06-19, 09:57 PM
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 

علاء الكبابي

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

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



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

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

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

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

elgokr

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

اخى الحبيب علاء الكبابي
يحق لك ان تسال وتستفسر كما تشاء عن كل ما يقف معك فى مشروعك
ولكن من المخالف ان تطلب مشروعاً جاهزاً أو برنامج وما شبه من هذا الامر

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

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

alshandodi

22-06-19, 05:19 PM
(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
 أتمنى ان يفيدك هذا الكود المتواضع 

علاء الكبابي

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
 أتمنى ان يفيدك هذا الكود المتواضع 
للأسف لم استطع استخدامه

alshandodi

23-06-19, 06:29 PM
(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
 أتمنى ان يفيدك هذا الكود المتواضع 
للأسف لم استطع استخدامه



إقتباس :أعتذر أخي امكن حدث مني خطا فانا لم اطلب إحضار جميع ما في الجدول فهذا مثال واتمنى ان تستفيد منه وهو بطريقتين
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > كود للاستعلام عن الاسعار