+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : (تم الحل) في جملة do while (/showthread.php?tid=14211)
الصفحات:
1
2
(تم الحل) في جملة do while - awidan76 - 23-12-15
[attachment=8819]اخواني ماهي المشكله في الكود ساعدونا
المظلوب:
اريد من الكود سرد رقم القسم في التكست رقم بعد رقم في كل دوره
يعني في الدوره الاولي التكس يساوي 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
لا حظ وضعت الرساله في حدث التشينج للتكست
هذا وجزاكم الله خيرا
RE: في جملة do while - Ahmed_Mansoor - 23-12-15
أهلا أخي الكريم , جرب التعديل التالي :
PHP كود :
Private Sub Command1_Click()
Dim RS As ADODB.Recordset
Set RS = New ADODB.Recordset
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT partid FROM partsTable ", Db, adOpenStatic, adLockOptimistic
If RS.RecordCount > 0 Then
Set DataGrid1.DataSource = RS.Clone
RS.MoveFirst
Do While Not RS.EOF
Text1.Text = RS![partid]
MsgBox Text1.Text
RS.MoveNext
Loop
Else
Set DataGrid1.DataSource = Nothing
Text1.Text = ""
MsgBox "لايوجد سجلات"
End If
End Sub
RE: في جملة do while - awidan76 - 23-12-15
تسلم جاري التجربه ولك جزيل الشكر
RE: في جملة do while - awidan76 - 25-12-15
اخي الكود روعه مررررره
الله يعطيك العافية اخي جزاك الله خير
اخي الغالي
ظهرت لي مشكله في كود الاستعلام مع انني كنت متاكد من انه بيشتغل ولكن للاسف
الذي كنت اريده :
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والمثال مرفق جزاكم الله خير
RE: في جملة do while - Ahmed_Mansoor - 25-12-15
أهلا أخي الكريم , تم التعديل في المرفقات .
RE: في جملة do while - awidan76 - 25-12-15
الله يخليك ياغالي ويحفظك ويعطيك العافيه اخي
اللهم آمين
اخي الغالي
جاري التجربه
RE: في جملة do while - awidan76 - 26-12-15
اخي الغالي انت اخ غالي جدا , الكود اشتغل 100%
الله يعطيك العافية ويسعدك ويحفظك انت واخي sniper.ps واخي محمد يحي خاصة واعضاء المنتدي عامه
الله يحفظكم اجمعين
بالنسبة للكود المعدل بواسطتك اشتغل 100%
انا اضفت كود اخر يقوم بالاستعلام عن الاقسام واضافة الارقام المستخرجه من الكود الأول كأحصائيات وقد قمت بالعملية100%
""""""""""""
الان في مشكلة اخيرة واعتقد انها بسيطه بالنسبة لك ان شاء الله وهي اضافة شرط اخير وهو شرط مابين تاريخين
مش عارف كيف وبعي اي where احطه , لان في الكود اكثر من where.
'WHERE studateregs BETWEEN" & DTPicker1.value & "AND" & DTPicker2.value بعد اي whereاضعها؟؟
اخي عذبتك معاي سامحنا ارجوك فانت املي الوحيد جزاك الله خير
سارفق المثال مع تعديلي الاخير
اسال الله ان يستفيذو منه اعضاء المنتدي الرائع وهذا الفظل يعود لك اخي
سارفق لك المثال وارجو التعديل عليه
RE: في جملة do while - Ahmed_Mansoor - 26-12-15
أهلا أخي الكريم , تم التعديل في المرفقات .
RE: في جملة do while - awidan76 - 26-12-15
اتعبتك اخي معي
الله يحفظك اخي ويجزيك خير
ارسل لي اسمك الكامل
RE: في جملة do while - awidan76 - 26-12-15
اخي لا لا لا لا لا لا الشرط اريده في التكست في حدث التشينج في rs2 فقط
وليس في كل جمل الاستعلام لان باقي جمل الاستعلام شغاله 100%