الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف أعرف الاسم موجود سابقا

مغلق
بدأه الحالم 2005 في 20 سبتمبر 2005 · 8 رد · 651 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم أخواني

عملت برنامج لإستقبال ا لطلبة والبرنامج للدورات وعندي اربع دورات فهل يمكن معرفة الطالب أذا كان قد دخل دورة من الدورات أو أن البرنامج ينبهني بأن الطالب الذي أدخلت اسمة موجود سابقا , أو حتى لايمكن أن يدخل البرنامج أسمة مرة أخرى لأن اسمة موجود ..... أرجو المساعدة أو وضع مثال أو كود

أشكركم أخوتي

تم تعديل هذه المشاركة بواسطة الحالم 2005 في 20 سبتمبر 2005 في 13:33

#2

عن طريق استعلام بسيط

طريقة الادو ADO

'MUST YOU HAVE (DBCONN) VARABLE AS ADODB.CONNECTION
SQL = "SELECT * FROM STUDENTS WHERE STU_NAME = '" & TRIM(TXTNAME.TEXT) & "'"

SET REC_ADO = NEW ADODB.RECORDSET 
REC_ADO.OPEN SQL , DBCONN

IF REC_ADO.EOF THEN 
     MSGBOX "STUDENT FOUND "
  ELSE
     MSGBOX "STUDENT NOT FOUND"
END IF 

REC_ADO.CLOSE

طريقة الـDAO

'MUST YOU HAVE (DB) VARABLE AS DATABASE

SQL = "SELECT * FROM STUDENTS WHERE STU_NAME = '" & TRIM(TXTNAME.TEXT) & "'"
SET REC_DAO = DB.OPENRECORDSET (SQL)
IF REC_DAO.EOF THEN
     MSGBOX "STUDENT FOUND "
  ELSE
     MSGBOX "STUDENT NOT FOUND"
END IF 

REC_DAO.CLOSE

تحياتي لك

تم تعديل هذه المشاركة بواسطة prof_1982 في 20 سبتمبر 2005 في 13:39

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

#3

جزاك الله ألف خير ... وألف شكر لك

#4

أخي العزيز ..

لقد وضعت الكود لكن للأسف ما مشى معاي , ويمكن أنا وضعته بالطريقة الخطا , لكن أذا يوجد مثال على بالطريقة أكون شاكر لك

وسمحلي أوخو لأنني من الذين ليس لهم دراية كاملة عن الفيجوال بيسك لكن منكم ياااااااااااااا أساتذه نستفيد وبالفعل استفدت منكم وها أنا الان أعمل جميع البرامج التي اريدها في مجال عملي واللحمدلله وكل هذا بفضل الله ثم بفضل أخواني الاعضاء والمشرفين والقائمين على هذا الموقع أو هذه الجامعة والحمدالله على كل شي ....

أخي أسمحلي على الاطاله والله مهما تكلم لايمكن أن أوفي في حق هذا الموقع .

تحياااااااااااااااااااااتي لكم جميعا أخوكم الحاااااااااالم

تم تعديل هذه المشاركة بواسطة الحالم 2005 في 20 سبتمبر 2005 في 17:49

#5

ما هي نوعية قواعد البيانات التي تستخدمها ؟؟؟ وما هي اصدارها

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

#6

نوع الاتصال الذي لدي ADO

#7

وينكم يااااااااااااا أخواني

#8

رد الأخ prog_1982 صحيح ولكن أخطأ في ترتيب الفحص

فقط بدل عبارة الـ IF لتصبح كالتالي:

IF REC_ADO.EOF THEN 
    MSGBOX "STUDENT NOT FOUND "
 ELSE
    MSGBOX "STUDENT FOUND"
END IF

أو استخدم أمر البحث Find في متحول أو أداة قاعدة البيانات التي تتعامل معها

#9

تسلم أخوي على الرد .. لكن يااااااااااخوي ممكن تدلني وين أضع الكود لأني ما خليت مكان ما وضعته ومافيش فايدة .

وثانيا أطلب منك طلب بسيط بخصوص هذا الكود عندي البحث برقم العميل واسم العميل واريد أن اضع برقم الفاتورة أو اي شي ثاني .. ممكن تساعدتي الكود شغال معاي والحمدلله بس أريد أن أزيد من عملية البحث بعدة طرق .

Private Sub Command3_Click()

If Trim(Text1.Text) = "" Then

MsgBox "الرجا ادخال المراد البحث عنه", vbInformation

Exit Sub

Else

Select Case Combo1.ListIndex

Case 0

datPrimaryRS.Recordset.Find "[اسم العميل]='" & Trim(Text1.Text) & "'"

Case 1

datPrimaryRS.Recordset.Find "[رقم العميل]=" & Trim(Text1.Text)

End Select

End If

End Sub

اشكرك

هذا الموضوع مغلق.

مواضيع مشابهة