+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=24790)
كود الاستعلام فيه مشكلة - فراس الغزي - 03-05-18
السلام عليكم الاخوة الاعزاء
هذا الكود فيه مشكلة ولكن لا اعرف اين حيث انا اريد الاستعلام عن استخراج اسم المنتج وقيمته وطباعته في التكست بوكس خاص بالاسم والاخر في السعر
لكن لما اقوم بعمل التشغير واكتب كود المنتج بيظهر عندي خطا في الكومند
كود :
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
بيطلع عندي الكي كود غير مدعوم وتحته خط
RE: كود الاستعلام فيه مشكلة - ملهمـ - 03-05-18
جرب
كود :
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 TryRE: كود الاستعلام فيه مشكلة - فراس الغزي - 03-05-18
(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
شكرا لك اخي تم حل المشكلة قبلا وبالفعل انا وجدت الحل كما ذكرت انت