+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=15550)
البحث بأول حرف بقاعدة البيانات - عبد العزيز البسكري - 22-04-16
السّلام عليكم و رحمة الله و بركاته
إخواني الأعزّاء .. أدعو الله مخلصًا أن تكونوا بتمام الصحّة و العافية
هذا الملف هو للأخ الغالي و الأستاذ الكريم المحترم .. و أحد أعمدة هذا المنتدى الكبير و عمالقته
الأستاذ الفاضل " أحمد منصور "
كل ما بالملف يعمل بشكل أكثر من الرّائع ..
بارك الله في هذا الرّجل الخيّر .. و في صحته و أوقاته و جميع أعماله .. و أثابه الجنّة إن شاء الله المولى القدير
فقط سادتي الأفاضل لو تكرمتم ..هل من الممكن ا ستبدال التاكست 6 بالليست1 أو بواسطة كومبوبكس ..أعتقد ستكون عملية البحث بأول حرف من الاسم أحسن و أفضل .. لأنّه نفترض أنّه عندنا عدّة أسماء تبدأ بنفس الحرف .. بالطريقة الحالية لا يمكن إظهار كل الأسماء
بارك الله فيكم و لكم مقدّمًا
خالص تحيّاتي للجميع
RE: البحث بأول حرف بقاعدة البيانات - WAEL ABED - 22-04-16
PHP كود :
Private Sub Text6_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next: Err.Clear
Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\abed\Downloads\Important\العيادة\العيادة\db1.mdb;Persist Security Info=False"
Adodc3.CommandType = adCmdText
Adodc3.RecordSource = "Select na_pat From tb1 where [na_pat] LIKE '" & Trim$(Text6.Text) & "%'"
Adodc3.Refresh
List1.Clear
Do While Not Adodc3.Recordset.EOF
List1.AddItem Adodc3.Recordset![na_pat]
Adodc3.Recordset.MoveNext
Loop
End Sub
Private Sub Text6_KeyUp(KeyCode As Integer, Shift As Integer)
On Error Resume Next: Err.Clear
Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\abed\Downloads\Important\العيادة\العيادة\db1.mdb;Persist Security Info=False"
Adodc3.CommandType = adCmdText
Adodc3.RecordSource = "Select na_pat From tb1 where [na_pat] LIKE '" & Trim$(Text6.Text) & "%'"
Adodc3.Refresh
List1.Clear
Do While Not Adodc3.Recordset.EOF
List1.AddItem Adodc3.Recordset![na_pat]
Adodc3.Recordset.MoveNext
Loop
End Sub
RE: البحث بأول حرف بقاعدة البيانات - عبد العزيز البسكري - 22-04-16
السّلام عليكم و رحمة الله و بركاته
جمعة مباركة إن شاء الله
ألف شكر أخي الكريم " وائل عابد " على المساعدة
بارك الله فيك و لك و بصحّتك و اوقاتك و أعمالك و بجميع أفراد أسرتك الفاضلة من قريب أو من بعيد
جزاك الله خيرًا و زادها بموازين حسناتك إن شاء الله و رزقك من حيث لا تحتسب
حاولت عزيزي الغالي كتابة أول حرف بالتاكست رقم 6 فتعلق الكتابة و يستمر مؤشّر الماوس بالدوران و تعطيل كل شيء لغاية ظهور الرسالة مثلما تشير الصورتيْن أدناه
لو تكرّمت فضلاً لا أمرًا النظر بالمشكلة
بارك الله فيك و لك مقدّمًا
فائق إحتراماتي
RE: البحث بأول حرف بقاعدة البيانات - WAEL ABED - 22-04-16
اتفضل اخى وشكرا على كلماتك
RE: البحث بأول حرف بقاعدة البيانات - عبد العزيز البسكري - 22-04-16
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك أخي الغالي " وائل عابد " دنيا و آخرة على حسن المتابعة و نيّة المساعدة
لاحظ عزيزي الفاضل الصور حتي تفهم المشكلة عن كثب ..
أفتح الملف ..
تظهر لي هذه الرّسالة فأضغط على OUI
أدخل إلى الفورم و بمجردّ كتابة أوّل حرف بالتاكست 6 ..تظهر هذه الرّسالة
فيعلق كل شيء مثلما أشرت بالمشاركة السّابقة
معذرة أخي الكريم أتعبتك معي
جعل الله كل حرف ممّا تكتبه بمليون حسنة إن شاء الله
فائق إحتراماتي
معذرة أخي الكريم أتعبتك معي
جعل الله كل حرف ممّا تكتبه بمليون حسنة إن شاء الله
فائق إحتراماتي
RE: البحث بأول حرف بقاعدة البيانات - WAEL ABED - 22-04-16
اتفضل اخى
وشكرا
RE: البحث بأول حرف بقاعدة البيانات - عبد العزيز البسكري - 22-04-16
السّلام عليكم و رحمة الله و بركاته
الحمد لله .. تمام الّتمام بطريقة أكثر من الرّائعة
يسّر الله أمورك مثلما يسّرت أموري أخي الغالي " وائل عابد "
عمل فعلاً رائع .. جزاك الله خير الجزاء و نفع بك الاسلام و المسلمين
فقط رجاء أخير لو كان ذلك طبعًا بالامكان فعله
هل من الممكن عند الضغط دوبل كليك على اسم أختاره تظهر معلوماته حسب قاعدة البيانات بالتاكسات المخصّصة مثلما هو موضّح بالصورة
مقدّر و شاكر مجهوداتك .. أدعو الله أن يجعل كل حرف مما تكتبه بمليون حسنة
فائق إحتراماتي سيدي الكريم
فقط رجاء أخير لو كان ذلك طبعًا بالامكان فعله
هل من الممكن عند الضغط دوبل كليك على اسم أختاره تظهر معلوماته حسب قاعدة البيانات بالتاكسات المخصّصة مثلما هو موضّح بالصورة
مقدّر و شاكر مجهوداتك .. أدعو الله أن يجعل كل حرف مما تكتبه بمليون حسنة
فائق إحتراماتي سيدي الكريم
RE: البحث بأول حرف بقاعدة البيانات - WAEL ABED - 22-04-16
PHP كود :
Private Sub List1_DblClick()
On Error Resume Next: Err.Clear
If Trim$(Text6.Text) = "" Then Exit Sub
Dim gBookMark As Variant
gBookMark = RS.Bookmark
Adodc1.Recordset.Find "[na_pat] = '" & Trim$(List1.List(List1.ListIndex)) & "'", 0, adSearchForward, 1
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.Bookmark = gBookMark
MsgBox "لاتوجد نتائج للبحث", vbOKOnly + vbExclamation, "تنبيه"
Exit Sub
End If
Enable_Disable_Buttons True, False, True, True, True, True
ViewRecord
End Sub
RE: البحث بأول حرف بقاعدة البيانات - عبد العزيز البسكري - 22-04-16
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك أخي الكريم " وائل عابد "
جزاك الله خير الجزاء و زادك من علمه و فضله و نفع بك الاسلام و المسلمين
عمل متقن و رائع .. هذا ما أردت رؤيته بالتمام و الكمال
لا يمكن التّعبير و وصف مدى امتناني لسيادتك
سهّل الله جميع أمورك إن شاء الله ورحمك فوق الأرض و بباطنها
خالص تحيّاتي و احتراماتي
RE: البحث بأول حرف بقاعدة البيانات - WAEL ABED - 23-04-16
عفوا اخجلتم تواضعنا