+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=30288)
تعديل كود معرفة اللاسماء الغير موجودة في جدول - mustafa mohamed - 15-07-19
السلام عليكم ورحمة الله وبركاته
الاخوة اعضاء المنتدي نطلب منكم المساعدة في معرفة الاسماء في جدولين منها الموجود ومكرر في احد الجدولين وهو جدول almstlm
الاخر في جدول aa11 ما اريد عند اختيار المطلوب من الكمبو 1 واظهارة في القريد 2 والضغط على الزر اظهار يقوم البرنامج بالبحث في جدول aa11 عن الاسماء الغير موجودة في القريد 2
نشكر حسن تعاونكم
المرفق به المثال
RE: تعديل كود معرفة اللاسماء الغير موجودة في جدول - سعود - 15-07-19
اخذت الكود من حدث الكومبوبوكس مع التعديل التالي ووضعته بالزر المطلوب
PHP كود :
"select * from aa11 where a1 not in (select a1 from ALMSTLM)", cn, adOpenKeyset, adLockOptimistic
حدث الزر كامل كالتالي:
PHP كود :
Grid3.Rows = 1
If rn11.State Then rn11.Close
rn11.Open "select * from aa11 where a1 not in (select a1 from ALMSTLM)", cn, adOpenKeyset, adLockOptimistic
If rn11.RecordCount <> 0 Then
For k1 = 1 To rn11.RecordCount
Grid3.Rows = Grid3.Rows + 1
Grid3.TextMatrix(k1, 0) = k1
Grid3.TextMatrix(k1, 1) = rn11!a1
rn11.MoveNext
Next
End If
RE: تعديل كود معرفة اللاسماء الغير موجودة في جدول - سعود - 15-07-19
للتنويه للاخ الكريم ان التعديل يستعلم مباشرة من الجدولين ولم انتبه للداتاجريد و امرها بسيط اذا كان لا بد اكتب رد لاعيد التعديل بعد التجربة اذا شاء الله تعالى.
RE: تعديل كود معرفة اللاسماء الغير موجودة في جدول - mustafa mohamed - 16-07-19
(15-07-19, 10:03 PM)سعود كتب : للتنويه للاخ الكريم ان التعديل يستعلم مباشرة من الجدولين ولم انتبه للداتاجريد و امرها بسيط اذا كان لا بد اكتب رد لاعيد التعديل بعد التجربة اذا شاء الله تعالى.
اخي العزيز مشكور على الرد الاستعلام ممتاز والكود ممتاز غير ان اوريد ان يكون هناك تول بار يعطي مدة الانتظار اثناء البحث وكم المتبقي حيث ان البيانات كثيرة واحتمال الزيادة في البيانات والمستخدم لا يعرف المدة في الانتظار وشكرا على حسن التعاون