[فراس الغزي]

السلام  عليكم  الاخوة  الاعزاء  

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

  لكن لما اقوم  بعمل  التشغير  واكتب  كود المنتج  بيظهر  عندي  خطا  في  الكومند  

 

كود :

Try
            cmd = New MySqlCommand("select pro_name,price_q from project where pro_cod='" & Textpro.Text, con)
            con.Open()
            Dim dr As MySqlDataReader = cmd.ExecuteReader
            dr.Read()
            If dr.HasRows Then
                Textpro.Text = dr(0)
                Textprice.Text = dr(0)
                Textnum.Focus()

            Else
                MsgBox("هذا المنتج غير  موجود في قائمة المنتجات")
                Textpro.Clear()
                Textnum.Clear()
                Textprice.Clear()
                Textpricetak.Clear()
                Textpro.Focus()

            End If
            dr.Close()
            con.Close()


        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

هذه  نقطة  
  انا  جربت  اعمل  حدث  للتكست بوكس  الخاص بالاسم  والذي  اريد  منه لما يكتب  الشخص  كود  المنتج  بيطبع  اسم  المنتج  ويحول  المؤشر  الى  خانة  االعدد  لكن  ايش  الاصار  
 لما  عملت  الصح  ورحت  للاحداث  واختر  الحدث  انتر  وكتبت  الكود  التالي  

if e.keyCode=keyCode.Enter


بيطلع  عندي  الكي  كود  غير  مدعوم  وتحته  خط

[ملهمـ]

جرب

كود :

Try
           (cmd = New MySqlCommand("select pro_name,price_q from project where pro_cod='" & Textpro.Text & "' , con
           con.Open()
           Dim dr As MySqlDataReader = cmd.ExecuteReader
           dr.Read()
           If dr.HasRows Then
               Textpro.Text = dr(0)
               Textprice.Text = dr(0)
               Textnum.Focus()

           Else
               MsgBox("هذا المنتج غير  موجود في قائمة المنتجات")
               Textpro.Clear()
               Textnum.Clear()
               Textprice.Clear()
               Textpricetak.Clear()
               Textpro.Focus()

           End If
           dr.Close()
           con.Close()


       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

[فراس الغزي]

(03-05-18, 03:45 PM)ملهمـ كتب : جرب

كود :

Try
           (cmd = New MySqlCommand("select pro_name,price_q from project where pro_cod='" & Textpro.Text & "' , con
           con.Open()
           Dim dr As MySqlDataReader = cmd.ExecuteReader
           dr.Read()
           If dr.HasRows Then
               Textpro.Text = dr(0)
               Textprice.Text = dr(0)
               Textnum.Focus()

           Else
               MsgBox("هذا المنتج غير  موجود في قائمة المنتجات")
               Textpro.Clear()
               Textnum.Clear()
               Textprice.Clear()
               Textpricetak.Clear()
               Textpro.Focus()

           End If
           dr.Close()
           con.Close()


       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

شكرا لك  اخي  تم  حل  المشكلة قبلا وبالفعل  انا  وجدت الحل  كما ذكرت  انت