+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 SubRE: ارجو المساعدة فى تكرر كود - 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 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
RE: ارجو المساعدة فى تكرر كود - mhareek - 10-11-21
بارك الله فيك استاذانا الفاضل سلمت