منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغات البرمجة الاخرى > قسم لغة vb6.0 > قسم أسئلة vb6.0 > ارجو المساعدة فى تكرر كود
نسخة كاملة : ارجو المساعدة فى تكرر كود
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

mhareek

16-10-21, 02:56 PM
اخوانى الاحباب    اريد   عند اختيار مجموعة بينات بكود البحث        اريد ان اكتب فى احد الخانات نفس البيان  وترحيل مرة واحدة الى  فى خانة واحد من الجدول

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

كود :
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

mhareek

18-10-21, 12:16 PM
احبابى فى الله لية محدش رد عليا هلى سوالى صعب

mhareek

21-10-21, 10:25 PM
احبابى اى حد يدنى مساعدة جزاكم الله خيرا

ahmedabdelaliem

31-10-21, 11:03 AM
سلام عليكم
ممكن توضيح اكثر هل تريد تعبئة الكمبو بالبيانات ام ماذا ويا ريت يكون فيه صور للفهم اكثر

بالتوفيق

mhareek

01-11-21, 08:15 PM
استاذي وحبيبنا الغالى الاستاذ احمد عبد الحميد

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

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

ahmedabdelaliem

02-11-21, 10:56 AM
معلش ممكن تتصل عليه

للتوضيح اكثر

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

ahmedabdelaliem

10-11-21, 12:28 PM
السلام عليكم

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

بالتوفيق

mhareek

10-11-21, 12:41 PM
احسنت استاذى الغالى ربى يحفطك يارب جزاك الله عنى خيرا جعله الله فى ميزان حسناتك اخى الغالى

ahmedabdelaliem

10-11-21, 01:03 PM
اتفضل اخي التعديل كما طلبت زر للعرض وزر للاضافة

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 SQLs, CN, adOpenKeyset, adLockPessimistic
        
         
         N = RSDShow1.RecordCount
         If N > 0 Then
      
    RSDShow1.MoveFirst
    Grid.Rows = RSDShow1.RecordCount + 1
        
        
        For i = 1 To N
                With Grid
                          If Not IsNull(RSDShow1.Fields(0)) Then .TextMatrix(i, 0) = RSDShow1.Fields(0)
                          If Not IsNull(RSDShow1.Fields(1)) Then .TextMatrix(i, 1) = 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 i = 1 To Grid.Rows - 1
For N = 0 To Grid.Cols - 1
Grid.TextMatrix(i, N) = ""
Next
Next 
بالتوفيق

mhareek

10-11-21, 02:55 PM
بارك الله فيك استاذانا الفاضل سلمت
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغات البرمجة الاخرى > قسم لغة vb6.0 > قسم أسئلة vb6.0 > ارجو المساعدة فى تكرر كود