+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=24422)
ربط تكست بوكس بي كومبو بوكس - mawadaalmogrbi - 04-04-18
السلام عليكم اخواتي عندي منظومة يوجد بها الرقم الوظيفي واسم الموظف بنسال ع طريقة بمجرد ادخال الرقم الوظيقي يظهر اسمه الموظف تلقائيا في الكومبو يااريت تساعدوني ضرو ري وشكرا مقدما
RE: ربط تكست بوكس بي كومبو بوكس - khalid475 - 05-04-18
وعليكم السلام
أرجوا إرفاق مثال للمشروع ليتم التطبيق عليه
RE: ربط تكست بوكس بي كومبو بوكس - عبد العزيز البسكري - 05-04-18
(04-04-18, 09:16 PM)mawadaalmogrbi كتب : السلام عليكم اخواتي عندي منظومة يوجد بها الرقم الوظيفي واسم الموظف بنسال ع طريقة بمجرد ادخال الرقم الوظيقي يظهر اسمه الموظف تلقائيا في الكومبو يااريت تساعدوني ضرو ري وشكرا مقدما
السلام عليكم و رحمة الله و بركاته
ماذا تقصد أخي الكريم بالإدخال .. هل تقصد به الحفظ ..؟؟
تحياتي
RE: ربط تكست بوكس بي كومبو بوكس - emamtron2014 - 09-04-18
وعليكم السلام ورحمة الله وبركاته
اولا :قم بعمل sub مثلا باسم EmpName_Load
وحدد اسم الفيلد الذي يحتوي علي رقم الموظف وليكن EmpID
كما يلي
كود :
Public Sub EmpName_Load(ByVal EmpID As String)
Dim dtEmpName As New DataTable
dtEmpName.Clear()
Dim cmd As New OleDbCommand("select [EmpName] from EmpName_Table where EmpID=@EmpID", connAccess2007)
cmd.Parameters.Add("EmpID", OleDbType.Integer).Value = EmpID
connAccess2007.Open()
dtEmpName.Load(cmd.ExecuteReader)
connAccess2007.Close()
cmd = Nothing
End Subثانيا : في حدث ال TextChanged للتكست بوكس الذي تريد ان تضع فيه رقم الموظف تقوم باستدعاء ال Sub
وتكتب الكود التالي
كود :
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
EmpName_Load(TextBox1.Text)
comboBox1.Text = dtEmpName.Rows(0).Item(0)
End Sub