تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] سؤال في البحث بإستخدام Combo
#1
Question 
SmileSmile السلام عليكم و رحمة الله SmileSmile:

WinkWinkWink امل المساعده WinkWinkWink

في البحث بإستخدام Combo

ملاحظة البحث و عرض النتائج ليس الاكمال التلقائي

ملاحظة الربط عن طريق الاداة Adodc

ShyShyShy امل المساعده و الملف مرفق


الملفات المرفقة
.rar   البحث بإستخدام Combo.rar (الحجم : 8.64 ك ب / التحميلات : 113)
الرد }}}
تم الشكر بواسطة:
#2
(31-05-14, 04:51 PM)allayl كتب : ...
...البحث بإستخدام Combo
ملاحظة البحث و عرض النتائج ليس الاكمال التلقائي
...

(22-05-14, 01:56 AM)allayl كتب : ...
المطلوب : عند كاتبة اول حرف يظهر النتائج المشابه فقط
يعني كتب حرف م يظهر لي محمد و ماجد فقط
...

.....

منقول

كود :
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long

Dim con As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset

Dim isBusy As Boolean '' متغير للحالة مشغولة أو لا


Private Sub Form_Load()
    Call arabic ''تحويل لوحة المفاتيح للغة العربية
End Sub


Private Sub Combo1_Change()
    ' في حالة لا يوجد نص للبحث عنه
    If Trim$(Combo1.Text) = "" Then
        Combo1.Clear
        Call SendMessage(Combo1.hwnd, &H14F, False, 0) '' غلق القائمة إن كانت مفتوحة
        Exit Sub
    End If
    '-------------------------------
    If isBusy Then Exit Sub '' أخرج من هنا إذا كانت الحالة مشغولة
    isBusy = True '' الحالة مشغولة
    '-------------------------------
    Dim txt As String
    txt = Combo1.Text '' الإحتفاظ بالنص المدخل
    '-------------------------------
    
    ' تجهيز إعداد الإتصال
    con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;"
    con.CursorLocation = adUseClient
    
    '-------------------------------
    con.Open ' فتح الإتصال
    '-------------------------------
    
    ' تنفيذ الاستعلام
    rst.Open "Select Distinct * From [allayl] WHERE [name] LIKE '" & Trim(Combo1.Text) & "%' ", con, adOpenStatic, adLockOptimistic
    
    Combo1.Clear '' مسح محتوى الكومبو استعدادا لملئه بالجديد
    Do Until rst.EOF '' إعمل حلقة تكرار طالما لم تنتهي الأسطر
        Combo1.AddItem rst.Fields("name").Value
        rst.MoveNext '' تحرك للتالي
    Loop
    
    '-------------------------------
    con.Close ' غلق الإتصال
    '-------------------------------
    
    Call SendMessage(Combo1.hwnd, &H14F, True, 0) '' فتح القائمة لعرض النتائج

    '-------------------------------
    Combo1.Text = txt '' إعادة النص المدخل
    Combo1.SelStart = Len(Combo1.Text) '' ضبط موقع المؤشر
    '-------------------------------
    isBusy = False '' الحالة غير مشغولة
    '-------------------------------
End Sub

Public Sub arabic() '' تحويل لوحة المفاتيح للغة العربية
    Call LoadKeyboardLayout("00000401", 1)
End Sub
Public Sub english() '' تحويل لوحة المفاتيح للغة الإنجليزية
    Call LoadKeyboardLayout("00000409", 1)
End Sub

.....


الملفات المرفقة
.rar   البحث بإستخدام Combo2.rar (الحجم : 8.77 ك ب / التحميلات : 215)
الرد }}}
تم الشكر بواسطة: allayl
#3
شكرآ لك
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب مساعدة " البحث بأكثر من معامل " (صاحب البرنامج الأصلي Raggi Tech ) AEDC 7 2,419 18-06-23, 12:23 PM
آخر رد: Taha Okla
  الحفظ والحذف و البحث باستخدام ado ENG.MPROG 7 14,308 03-12-22, 02:12 PM
آخر رد: عبدالمؤمن
  كيف استخدم خاصيه (thread) في امر زر البحث من قاعده بيانات مثلا (mdb) او (mysql) scsi7000 0 751 29-07-22, 10:53 AM
آخر رد: scsi7000
  [ سؤال ] للخبراء كيفية عرض جميع اسماء قواعد البيانات في mysql server ابوبدر 3 2 2,539 30-08-20, 12:16 AM
آخر رد: diggitalk2017@gmail.com
  سؤال فى الActiveReport اسلام الكبابى 3 2,099 05-09-18, 12:50 AM
آخر رد: اسلام الكبابى
  سؤال عزف الرياح 0 1,576 27-03-18, 12:47 AM
آخر رد: عزف الرياح
  مشكلة في البحث والتعديل في البرنامج thams 1 2,220 29-01-17, 10:04 PM
آخر رد: عبد العزيز البسكري
  سؤال فى الupdate اسلام الكبابى 0 1,719 15-09-16, 03:31 PM
آخر رد: اسلام الكبابى
  سؤال حول حماية ملف قاعدة البيانات VAVABEL 2 2,483 10-07-16, 04:00 PM
آخر رد: VAVABEL
  [Acces2007] سؤال بسيط Emad Nashaat 1 2,135 03-07-16, 10:11 PM
آخر رد: Amir_Alzubidy

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم