+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=14241)
ارجوا الرد للاهمية عن الارقام والنسخ - hisoma - 26-12-15
السلام عليكم
لدى سؤالين مهمين ليه
1 -
انا عايز كود يعمل الاتى
لما ادخل رقم وليكن فى تكست رقم الموبايل يقول لى ان الرقم دة تم ادخاله من قبل اى لا يتكرر الرقم تانى
2-
عايز عدم نسخ البرنامج المصنوع بالفيجوال بيسك 6 على جهاز اخر غير الجهاز الى نزل عليه البرنامج فقط
وشكرا
RE: ارجوا الرد للاهمية عن الارقام والنسخ - احمداحمداحمد6 - 26-12-15
المطلب الاول اكدر عليه:
تعمل قاعدة بيانات
if text1.text= data1.feild1 then exit sub
else
text1.text=data1.feild1
endif
RE: ارجوا الرد للاهمية عن الارقام والنسخ - hisoma - 26-12-15
تمام
طيب يا استاذ احمد
الكود دة يكتب فى انهى حدث
ثانيا
حضرتك بتقول فى الكود
if text1.text = data1.field
المقصود هنا ان انا ازود داتا كنترول
عكس ان انا شغال بالادو
RE: ارجوا الرد للاهمية عن الارقام والنسخ - hisoma - 27-12-15
هل من رد يا جماعة
هل من رد يا استاذ احمد
RE: ارجوا الرد للاهمية عن الارقام والنسخ - Ahmed_Mansoor - 27-12-15
أهلا أخي الكريم , لنفترض أن إسم الجدول Table1 وإسم الحقل الخاص برقم الجوال هو Mobile والتكست الذي يكتب فيه رقم الموبايل هو Text1 إذا سيكون كود التحقق من ما إذا كان رقم الجوال قد تم تسجيله من قبل أو لا , كالتالي :
PHP كود :
Set RS = New ADODB.Recordset
RS.Open "Select * From Table1 Where Mobile='" & Trim$(Text1.Text) & "'", DB, adOpenKeyset, adLockOptimistic
If RS.RecordCount > 0 Then
MsgBox "رقم الجوال المكتوب في التكست1 قد تم تسجيله من قبل"
Set RS = Nothing
Exit Sub
End If
- طبعا الكود بإستخدام مكتبة الأدو ADO .
RE: ارجوا الرد للاهمية عن الارقام والنسخ - hisoma - 27-12-15
طيب تمام جدا
طيب بالنسبة للنقطة الثانية وهى عدم نسخ البرنامج على اى جهاز اخر الا الجهاز بتاع صاحب البرنامج فقط
هل من كود لذلك
RE: ارجوا الرد للاهمية عن الارقام والنسخ - hisoma - 27-12-15
هل من رد اخى احمد منصور
ايضا الكود الى حضرتك كتبته
الكود دة يكتب فى انهى حدث الخاص بالتكست ولا زرار الحفظ ولا فين
RE: ارجوا الرد للاهمية عن الارقام والنسخ - Ahmed_Mansoor - 27-12-15
أهلا أخي الكريم ، الكود وضع في كود زر الحفظ قبل كود الحفظ ، بالنسبه للنقطه الثانيه إن شاء الله سأضع موضوع منفصل خاص بذلك .
RE: ارجوا الرد للاهمية عن الارقام والنسخ - hisoma - 28-12-15
السلام عليكم
اخى احمد منصور
انا قمت بالفعل بادخال الكود الى كتبته
بس بيقولى ان الجدول او الاوبجيكت اصلا مفتوح
ويظهر خطأ
ارجوا الرد اخى
من فضلك