منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] هل يوجد كود افضل من هذا ؟؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=10656)

هل يوجد كود افضل من هذا ؟؟ - 0theghost0 - 11-11-14

السلام عليكم

لدي كود اثناء اختياري لاسم او تاريخ يتم اظهار لي البيانات التي احددها وسؤالي هل يوجد كود ابسط وافضل منه للفهم اكثر ؟

اريد كود مبسط مثل parameter 

كود :
Try
           Dim cmd As New OleDbCommand
           cmd.Connection = dbConnect()
           cmd.CommandText = "Select * from CustomerPaid where Cust_Name = '" & cboxname.Text & "'"
           Dim dr As OleDbDataReader
           dr = cmd.ExecuteReader

           While dr.Read()
               txtwebsite.Text = dr("Cust_Website").ToString
               txtwhat.Text = dr("Cust_What").ToString
               txtpaid.Text = dr("Cust_Paid").ToString
               picdate.Value = dr("Cust_Date").ToString
           End While
           dr.Close()

       Catch ex As Exception
           MessageBox.Show(ex.Message, "خطأ في القراءة", MessageBoxButtons.OK, MessageBoxIcon.Error)
       End Try

اتمنى انكم تفيدوني

RE: هل يوجد كود افضل من هذا ؟؟ - الوليد ☺ - 11-11-14


السلام عليكم ورحمة الله

شوف هذه المشاركة إن شاء الله راح تفيدك كثير
كود بسيط ولم استطع تجاوزه #8

المقصد من توجيهك لهذه المشاركة لترى الفكرة أو طريقة عمل دالة خاصة لترجع بسطر واحد بكل حقوله مثل الدالة GetItemInfo، وشوف كيف تم استدعائها والتأكد من الرجوع منها بشيء أم لا يوجد شيء، وهي من أحد مشاريع الأخوة

وإن شاء الله راح تفيدك الفكرة أو الطريقة في مشاريعك