23-12-15, 01:41 AM (آخر تعديل لهذه المشاركة : 03-01-16, 03:20 AM {2} بواسطة awidan76.)
اخواني ماهي المشكله في الكود ساعدونا
المظلوب:
اريد من الكود سرد رقم القسم في التكست رقم بعد رقم في كل دوره
يعني في الدوره الاولي التكس يساوي 1 وتعلمني رسالة لتاكد لي مافي داخل التكست
في الدوره التانبة التكس يساوي 2 وتعلمني رسالة لتاكد لي مافي داخل التكست ....... الخ
PHP كود :
Private Sub Command1_Click()
Set rs = New ADODB.Recordset If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT partid FROM partsTable ", Db, adOpenStatic, adLockOptimistic Set DataGrid1.DataSource = rs If Not rs.BOF Then rs.MoveFirst Text1.Text = rs![partid] Do While rs.EOF rs.MoveNext Loop End Sub Private Sub Text1_Change() MsgBox Text1.Text End Sub
25-12-15, 01:57 AM (آخر تعديل لهذه المشاركة : 25-12-15, 02:11 AM {2} بواسطة awidan76.)
اخي الكود روعه مررررره
الله يعطيك العافية اخي جزاك الله خير
اخي الغالي
ظهرت لي مشكله في كود الاستعلام مع انني كنت متاكد من انه بيشتغل ولكن للاسف
الذي كنت اريده :
1) يقوم بعرض ارقام الاقسام في تكست
2) في داخل التكست وفي حدث التشينج يوجد كود استعلام يقوم بحساب عدد الذكور والاناث عدد كل الطلاب
انظر الكود :
كود :
Set RS2 = New ADODB.Recordset
RS2.Open "SELECT count (students.stuid) as Total,(students.stusex='f') as Totalfemal,(students.stusex='m') as Totalmale FROM stuTable where stupartnumber = '" & (Text1.Text) & "'", Db, adOpenStatic, adLockOptimistic
Set DataGrid2.DataSource = RS2
Text2.Text = total
Text3.Text = Totalfemal
Text4.Text = Totalmale