كيفية حساب عدد السجلات؟

اخى الفاضل

ممكن توضيح بسيط واعذرنى لانى لم افهمك

ماهى الطريقة التى تبحث بها

هل تبحث بواسطة حلقة تكرارية ام بواسطة الامر Find؟

ماهى الاداة التى تستقبل البيانات التى تم العثور عليها

هل اداة ليست بوكس ام اداة فليكس جريد؟

وضح لى وان شاء الله تجد الحل. :rolleyes:

أخى العزيز انا ربطت قاعدةالبيانات بتاعتى بالفيجوال بيزك عن طريق ال DATA

وعملت جملة select عشان ابحث عن كلمة معينه او كلمة بأستخدام الاحرف الاولى منها

data1.datasource = "select * from dic where english like '*' &text1.text&"*'" m

data1.refresh

وبرجع البيانات بتاعى فى text item

دى الإجابة على استفساراتك أخى العزيز

سؤال تانى أخى جوست وانا عارف انى كده بتقل عليك

لو ناتج البحث بتاعى عايز ارجعه او استقبله فى list item

ازاى اقدر اعملها لانى مش عارف اعملها خالص بربط ال list بقاعدة البيانات بس مفيش حاجه بترجع عليها بعد البحث ولا قبله

ياريت أخى العزيز تشرحلى طريقة ربط قاعدة البيانات بال list item وازاى بعد عملية البحث بتاعتى ارجع ناتج البحث داخل ال list دى

وجزاك الله خيرا

السلام عليكم ورحمة الله وبركاته

اخى الفاضل اصارحك اننى لااجيد التعامل مع جملة Select ولااحب استعمالها فأنا استخدم الحلقات التكرارية للبحث....كم تمنيت ان اساعدك انا اسف :(

لكن اذا اردت كود البحث بواسطة الحلقات التكرارية وربط البحث بالليست بوكس فأنا مستعد وانا اسف مرة اخرى :(

راجع موضوع ( كيفية البحث في قاعدة بيانات Access, بخصائص .. ) ..

ربما تفيدك الحلقات التكرارية ..

/index.php?showtopic=65866

تحية،

أخى العزيز جوست بارك الله فيك وشكرا على أهتمامك

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

ياريت تعرفنى طريقة البحث بإستخدام الحلقات التكرارية وطريقة ربطها بال list item وجزاك الله خير

وارجو منك ان يكون الشرح واف كما عودتنا أخى الكريم

وشكرا لإهتمامك مره أخرى

ممكن اعرف اسماء الحقول الموجودة فى القاعدة حتى اتمكن من كتابة الكود؟ :rolleyes:

أخى جوست

ان بعمل قاموس متكون من ثلاثة حقول

englsih

arabic

disc

عايز اعمل بحث داخل حقل ال english ونتيجة البحث تطلع فى list item لما تطلعلى قيمة أو اكثر مجرد انى اضغط عليها double click بالماوس يجبلى فى list تانية معناها بالعربى

وفى list تالتة الdesc بتاع الكلمة اللى كنت ببحث عنها

اتمنى انى اكون وضحتلك اللى انا عايزه

وبجد شكرا جدا على اهتمامك اخى جوست والله يعينك

ملحوظة : اتمنى ان شرحك يكون على نظام ال data

وليس نظام ال ado

وسلام

بإنتظار الرد منك أخى جوست

بعد التحية

اقتباس

بإنتظار الرد منك أخى جوست

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

أخى جوست أعانك الله على ما انت به واتمنى من الله ان تكون بخير

واتمنى منك ان تعيننى فى هذه المسأله ضرورى جدا فى أسرع وقت

اخى الفاضل MISINY_FOREVER انا اسف لتأخرى فى الرد واليك هذا الكود لانى لم استطع ان اعمل لك مثالا لان الجهاز معطل وانا الان اكتب الكود وانا داخل نت كافيه فارجو الا يكون به اخطاء وان وجدت اخطاء فاخبرنى فى اسرع وقت حتى اتمكن من اصلاحه

هذا هو كود البحث

Private Sub Command1_Click()
Dim i As String, e As String, c As Integer
i = InputBox("ادخل النص الذى تبحث عنه", "مثال", i)
If Len(i) Then
    With Data1.Recordset
        .MoveFirst
        Do While Not .EOF
        DoEvents
            e = !english
            If InStr(1, e, i, vbTextCompare) Then
                lstEnglish.AddItem e
                c = c + 1
            End If
            .MoveNext
        Loop
    End With
    Label1.Caption = c
End If
End Sub

وهذا هو كود اظهار البيانات

Private Sub lstEnglish_DblClick()
Dim e As String, a As String
With Data1.Recordset
    .MoveFirst
    Do While Not .EOF
    DoEvents
        e = !english
        a = !arabic
        If e = lstEnglish.Text Then lstArabic.AddItem a: Exit Sub
        .MoveNext
    Loop
End With
End Sub

ارجوك اذا وجدت به خطأ فأخبرنى واعتذر لك مرة اخرى على التأخر.

أخى جوست شكرا على مجهودك معى وجارى تجربة الكود

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

مثلا لو طلع عندى 40 قيمة فى البحث لو مشيت بالترتيب مثلا معنى اول كلمة ثم الثانية ثم الثالثة الكود يشتغل عادى بس لو مثلا جيت اجيب معنى الكلمة اللى ترتيبها 30 يعملى خطأ

انا هرفق ليك البرنامج وانتا شوف الخطأ فين

ومحتاج منك تعديل بسيط

لما اضغط على كلمة من اللى طلعتلى والى انا عايز اجيب معناها يفضيلى الحق كله ماعدا الكلمة اللى انا ضغطت عليها

New Folder.rar

اقتباس

لما اضغط على كلمة من اللى طلعتلى والى انا عايز اجيب معناها يفضيلى الحق كله ماعدا الكلمة اللى انا ضغطت عليها

ارجو توضيحها قليلا.

جملة اظهار عدد السجلات هي كالتالي

SELECT COUNT(*) as TotalRecord FROM [YourTable]

ولمزيد من الأمثله المساعدة أدخل على رابط كل ما تود معرفته من التوقيع في الاسفل

تقبل تحياتي

أخى جوست ده الخطأ اللى بيطلعلى اللى موجود فى الصورة دى

شكرا لك hnhn وجارى تجربة الكود بس ياترى الكود ده يتكتب على اى حدث برمجى

بما ان الموضوع قد طرح ،، اريد ان افهم وظيفة الخاصية RecordCount .. ما معنى القيم التي ترجعها ؟؟

بنت اليمن ،،

الفاضلة " بنت اليمن "

إن كان السؤال كما هو , أي ليس له ابعاد اخري :

فوظيفة الخاصية "RecordCount " لاعادة عدد السجلات الموجودة في المتغير من النوع

"Recordset " سواء اكانت سجلات من جدول او من عملية بحث ..

حلو الكلام اخي ابراهيم ،، و لكني حينما استخدمها لهذا الغرض تعيد لي سالب واحد -1 ... يبدز انه سؤال مضحك :)

بنت اليمن ،،

اخى MISINY FOREVER هذا الخطأ ليس من الكود وانما من القاعدة حيث انك نسيت ان تدخل معنى كلمة فى القاعدة وبالتالى يكون معناها Null اى قيمة مهملة فراجع القاعدة مرة اخرى وادخل معنى الكلمة ولن تجد الخطأ اما بالنسبة لسؤال الاخت بنت اليمن فكما قال الاستاذ ابراهيم الطيب هذا الامر يعيد عدد السجلات واذا كانت القاعدة خالية من السجلات يعود بالقيمة 0 وليس -1 لكن يبدو ان الفيجوال بيهزر معاكى :lol: :lol:

الفاضلة بنت اليمن

العفو لا يوجد ماهو مضحك

نعم ستعيد القيمة " zero" اذا كانت قاعدة البيانات خالية او في حالة البحث " لا توجد نتائج "

ما هي الجملة التي تعيد لك -1 ?

او كيف يكون الاستخدام ...?

أخى جوست القاعدة تأكدت من معانى الكلمات فيها وموجود معنى كل كلمة

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

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

اعتقد أن الاخ ابراهيم الطيب .. لبى المطلوب في أيصال المعلومة ..

الله يعطيك العافيه