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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=39709)



ارجو المساعدة فى تكرر كود - mhareek - 16-10-21

اخوانى الاحباب    اريد   عند اختيار مجموعة بينات بكود البحث        اريد ان اكتب فى احد الخانات نفس البيان  وترحيل مرة واحدة الى  فى خانة واحد من الجدول

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

كود :
Adodc1.Refresh
Adodc1.RecordSource = "SELECT cod,mas FROM alldata WHERE  cod >=" & (Text2.Text) & " and cod <=" & (Text3.Text) & ""
Adodc1.CommandType = adCmdText
   Adodc1.Refresh
   
     For i = Text2.Text To Text3.Text
   
  Adodc1.Recordset.Fields![mas] = Combo1.Text
   Adodc1.Recordset.Update
 
     
  Next


End Sub



RE: ارجو المساعدة فى تكرر كود - mhareek - 18-10-21

احبابى فى الله لية محدش رد عليا هلى سوالى صعب


RE: ارجو المساعدة فى تكرر كود - mhareek - 21-10-21

احبابى اى حد يدنى مساعدة جزاكم الله خيرا


RE: ارجو المساعدة فى تكرر كود - ahmedabdelaliem - 31-10-21

سلام عليكم
ممكن توضيح اكثر هل تريد تعبئة الكمبو بالبيانات ام ماذا ويا ريت يكون فيه صور للفهم اكثر

بالتوفيق


RE: ارجو المساعدة فى تكرر كود - mhareek - 01-11-21

استاذي وحبيبنا الغالى الاستاذ احمد عبد الحميد

الموضوع باختصار  :        انا اريد عند البحث فى فليكس جريد  مثلا   هيظهر 10 نتائج       بالجدول  العمود الاخير  اسم المسؤول

اريد ان اكتب   اسم  هانى مثلا  فلا جميع الصفوف العشرة   مرة واحد فى عمود اسمالمسؤول   بدون تغير اى بينات فى باقى الاعمدة


RE: ارجو المساعدة فى تكرر كود - ahmedabdelaliem - 02-11-21

معلش ممكن تتصل عليه

للتوضيح اكثر

حاضرين يا غالي


RE: ارجو المساعدة فى تكرر كود - ahmedabdelaliem - 10-11-21

السلام عليكم

اخي الكريم هذا مثال للمطلوب

بالتوفيق


RE: ارجو المساعدة فى تكرر كود - mhareek - 10-11-21

احسنت استاذى الغالى ربى يحفطك يارب جزاك الله عنى خيرا جعله الله فى ميزان حسناتك اخى الغالى


RE: ارجو المساعدة فى تكرر كود - ahmedabdelaliem - 10-11-21

اتفضل اخي التعديل كما طلبت زر للعرض وزر للاضافة

PHP كود :
Private Sub Command1_Click()
Dim SQLs As String
Dim i 
As Integer
Dim RSDShow1 
As New ADODB.Recordset
SQLs 
""
 
       SQLs "Select * From Trans where Area='" & (Combo1.Text) & "'"
 
       If RSDShow1.State adStateOpen Then RSDShow1.Close
        RSDShow1
.Open SQLsCNadOpenKeysetadLockPessimistic
        
         
         N 
RSDShow1.RecordCount
         
If 0 Then
      
    RSDShow1
.MoveFirst
    Grid
.Rows RSDShow1.RecordCount 1
        
        
        For i 
1 To N
                With Grid
                          If Not IsNull
(RSDShow1.Fields(0)) Then .TextMatrix(i0) = RSDShow1.Fields(0)
 
                         If Not IsNull(RSDShow1.Fields(1)) Then .TextMatrix(i1) = RSDShow1.Fields(1)
 
                         '.TextMatrix(i, 2) = Combo2.Text
                          
                          End With
            RSDShow1.MoveNext
        Next
        End If
End Sub
Private Sub Command2_Click()
Dim i As Integer
 For i = 1 To Grid.Rows - 1
                With Grid
                          .TextMatrix(i, 2) = Combo2.Text
                          
                          End With
        Next
End Sub 
بالتوفيق

اتفضل اخي هذا التعديل مع الحفظ في قاعدة البيانات

بالتوفيق

وهذا الكود لتنظيف الجريد قبل كل عملية بحث ضيفه في اعلى الزر الاول

PHP كود :
For 1 To Grid.Rows 1
For 0 To Grid.Cols 1
Grid
.TextMatrix(iN) = ""
Next
Next 
بالتوفيق


RE: ارجو المساعدة فى تكرر كود - mhareek - 10-11-21

بارك الله فيك استاذانا الفاضل سلمت