منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سوال اخوانى الاحباب ارجو المساعدة فى هذا المثال - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : سوال اخوانى الاحباب ارجو المساعدة فى هذا المثال (/showthread.php?tid=36061)

سوال اخوانى الاحباب ارجو المساعدة فى هذا المثال - mhareek - 09-08-20

اساتذتى المحنرمين        تحية طيبة  


برجاء التعديل على هذا المثال

حيث انى اريد ان املاء كل البينات 
وعندما اقوم بالحفظ كل سطر من الموجود فى الفورم    ياخذ رقم جديد فى قاعدة البينات   ويحفط فى صف جديد


بمعنى ان البيانات فى الفورم تحفظ فى قاعدة البينات تحت بعض فى 12 صف



ارجو المساعدة جزاكمالله خيرا

RE: سوال اخوانى الاحباب ارجو المساعدة فى هذا المثال - mhareek - 10-08-20

استاذتي الكرام ارجو المساعده جزاكم الله خيرا

RE: سوال اخوانى الاحباب ارجو المساعدة فى هذا المثال - Ahmed_Mansoor - 13-08-20

أهلا بك أخي الكريم , تم تعديل المثال , بالتوفيق .

RE: سوال اخوانى الاحباب ارجو المساعدة فى هذا المثال - mhareek - 14-08-20

جزاك الله خيرا اخى الغالى استاذى الغالى

اخى الغالى كنت اريد ان يتم ترحيل الصف الى امام الشيك ببوينت =1

وليس كل الصفوف اخى الغالى


بمعنى لو انا عامل علامة صح الصف يترحل لو مش علامة صح الصف لا يترحل


جزاك الله خيرا

RE: سوال اخوانى الاحباب ارجو المساعدة فى هذا المثال - Ahmed_Mansoor - 17-08-20

أهلا بك أخي الكريم , إستبدل كود زر الحفظ بهذا الكود :

PHP كود :
Dim I As Integer
Dim MaxRecordNumber As Long

Adodc1.Refresh

MaxRecordNumber = Adodc1.Recordset.RecordCount

For I = 0 To Check.UBound
       
    If Check(I).Value = 1 Then
    
       MaxRecordNumber = MaxRecordNumber + 1
       
       Adodc1.Recordset.AddNew
       Adodc1.Recordset!cod = Text1.Text
       Adodc1.Recordset!name1 = Text2.Text
       Adodc1.Recordset!phone = Text3.Text
       Adodc1.Recordset!msal = MaxRecordNumber
       Adodc1.Recordset!Month = Combo(I).Text
       Adodc1.Recordset!ddate = Text4(I).Text
       Adodc1.Recordset!mname = Text5(I).Text
       Adodc1.Recordset!molahzat = Text6(I).Text
       Adodc1.Recordset!Done = Check(I).Value
       Adodc1.Recordset.Update
    
    End If
    
Next

Adodc1.Refresh

MsgBox ("تم الحفظ")