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

نسخة كاملة : تعديل كود معرفة اللاسماء الغير موجودة في جدول
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته 
الاخوة اعضاء المنتدي نطلب منكم المساعدة في معرفة الاسماء في جدولين منها الموجود ومكرر في احد الجدولين وهو جدول almstlm

الاخر في جدول aa11  ما اريد عند اختيار المطلوب من الكمبو 1 واظهارة  في القريد 2  والضغط على الزر اظهار يقوم البرنامج بالبحث في جدول aa11 عن الاسماء الغير موجودة في القريد 2 


نشكر حسن تعاونكم

المرفق به المثال
اخذت الكود من حدث الكومبوبوكس مع التعديل التالي ووضعته بالزر المطلوب
PHP كود :
"select * from aa11 where a1 not in (select a1 from ALMSTLM)"cnadOpenKeysetadLockOptimistic 
اقصد الاستعلام فقط والباقي  تغييره سهل
حدث الزر كامل كالتالي:
PHP كود :
Grid3.Rows 1
If rn11.State Then rn11.Close
rn11
.Open "select * from aa11 where a1 not in (select a1 from ALMSTLM)"cnadOpenKeysetadLockOptimistic
If rn11.RecordCount <> 0 Then
For k1 1 To rn11.RecordCount
Grid3
.Rows Grid3.Rows 1
Grid3
.TextMatrix(k10) = k1
Grid3
.TextMatrix(k11) = rn11!a1
rn11
.MoveNext
Next
End 
If 
للتنويه للاخ الكريم ان التعديل يستعلم مباشرة من الجدولين ولم انتبه للداتاجريد و امرها بسيط اذا كان لا بد اكتب رد لاعيد التعديل بعد التجربة اذا شاء الله تعالى.
(15-07-19, 10:03 PM)سعود كتب : [ -> ]للتنويه للاخ الكريم ان التعديل يستعلم مباشرة من الجدولين ولم انتبه للداتاجريد و امرها بسيط اذا كان لا بد اكتب رد لاعيد التعديل بعد التجربة اذا شاء الله تعالى.

اخي العزيز مشكور على الرد الاستعلام ممتاز والكود ممتاز غير ان اوريد ان يكون هناك تول بار  يعطي مدة الانتظار اثناء البحث وكم المتبقي حيث ان البيانات كثيرة واحتمال الزيادة في البيانات والمستخدم لا يعرف المدة في الانتظار وشكرا على حسن التعاون