اول سؤال لي في المنتدى وارجو ان ينال الاهتمام بليززززززز

لو ترفق ملف الفجول ليكون التعديل علبه افضل

rs.open"select * from emp order by Emp_no",db,adOpenKeyset, adLockReadOnly

السلام عليكم...

الكود المرفق به العديد من الأخطاء:

1. لا يصح البحث في قواعد البيانات باستعمال الحلقات. إذا كان لديك عدد كبير من السجلات فإن استعمال الحلقات سيؤدي إلى بطء شديد و استهلاك للوقت مع توقف البرنامج عن الاستجابة.

2. جملة Do While لا تحتاج إلى Then معها.

3. الشرط المستعمل مع عبارة Do While خاطئ. يجب استعمال Not مع الشرط.

4. حتى إذا تم تصحيح كل ما سبق فإن الحلقة تحتوي على خطأ قاتل إذ أنها حلقة لا نهائية (Infinite Loop) بسبب وجود عبارة rs.MoveFirst حيث في هذه الحالة سيبقى البرنامج دائماً في أول سجل إلى ما لانهاية.

جرب الكود التالي:

Private Sub Command1_Click()
    If Not IsNumeric(Text4.Text) Then
        MsgBox "أدخل رقم الموظف", vbOK, "تنبيه"
        Text4.SetFocus
    Else
        Connect
        rs.Open "SELECT * FROM emp WHERE Emp_no = " & Text4.Text, db, adOpenStstic, adLockPessimistic
        If rs.Bof And rs.EOF Then
            MsgBox "لا يوجد موظف بهذا الرقم", vbOK, "بحث"
            Text4.SetFocus
        Else
            Tx_no.Text = rs("Emp_no")
            Tx_name.Text = rs("Emp_name")
            Tx_jobname.Text = rs("Emp_jobname")
        End If
    End If
End Sub

لاحظ أن جملة SELECT تعمل على جلب السجل المطلوب فقط.

لاحظ كذلك أن عبارة If rs.Bof And rs.EOF تتأكد مما إذا كانت مجموعة السجلات فارغة.

نرجو الاستفادة و السلام.