+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=10350)
تعبئة كومبو بوكس بناءا على اختيارات كومبو بوكس آخر - الديب 2014 - 02-09-14
السلام عليكم ورحمة الله
الاخوة الكرام
عندي مشروع به جدول للعملاء وآخر للمدن على قاعدة بيانات اكسس
واعمل على برنامج فيجوال بيسك 2008
اريد اختيار المدينة في الكومبوبوكس الاول فيظهر لي في الثاني اسماء العملاء الموجودين في تللك المدينة فقط
وجزكم الله خيرا
RE: تعبئة كومبو بوكس بناءا على اختيارات كومبو بوكس آخر - php3 - 23-10-14
حط هذا الكود في خانه جديدة
PHP كود :
Sub fillcombo()
strsql = "select * from tablecity"
Dim acscmd As New OleDb.OleDbCommand
acscmd.CommandText = strsql
acscmd.Connection = acsconn
acsdr = acscmd.ExecuteReader
While (acsdr.Read())
ComboBox1.Items.Add(acsdr("city"))
End While
acscmd.Dispose()
acsdr.Close()
End Sub
PHP كود :
strsql = "select * from tablecostumer where costumername='" & ComboBox1.Text & "'"
Dim acscmd As New OleDb.OleDbCommand
acscmd.CommandText = strsql
acscmd.Connection = acsconn
acsdr = acscmd.ExecuteReader
'هنا اسماء الخانات الموجوده داخل جدول العملاء
If (acsdr.Read() = True) Then
TextBox1.Text = (acsdr("costumername"))
TextBox2.Text = (acsdr("city"))
TextBox3.Text = (acsdr("age"))
TextBox4.Text = (acsdr("phone"))
End If
acscmd.Dispose()
acsdr.Close()
PHP كود :
fillcombo()