تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] خاصية تعتمد علي Artificial intelligence عند كتابة في قاعدة بيانات اكسيس من خلال VB6
#1
انا مش عارف الخاصية دي اسمها ايه لكنها تسهل كثيرا من العمل موجودة في الاكسيل يمكن الصورة توضح!

سؤالي بقي هل ممكن اعمل حاجة كده بكود معين في الفيجوال بيسيك 6 تسهل عملية البحث او حتي الكتابة او الحذف؟ Huh


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
تسلم اخي الكريم بارك الله فيك ازاي بقي اعمل ده علي  text box هل نفذ الكود؟
الرد
تم الشكر بواسطة:
#3
(01-09-18, 06:40 AM)عابر سبيل 2 كتب :
عدلت قدر الإمكان
على الكود في الموضوع المشار إليه في مشاركتي السابقة

إعمل مشروع جديد
ثم ضع أداة TextBox ثم ضع هذا الكود
PHP كود :
Option Explicit

Dim names
(5) As String

Private Sub Form_Load()
 
   names(0) = "ahmed"
 
   names(1) = "amal"
 
   names(2) = "muhammad"
 
   names(3) = "mahmoud"
 
   names(4) = "saeed"
 
   names(5) = "salah"
End Sub

' الربط مع دالة الإكمال التلقائي
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
    AutoSel Text1, KeyCode
End Sub

دالة الإكمال التلقائي
Function AutoSel(tb As TextBoxKeyCode As Integer)
 
   
    On Error Resume Next
    Select 
Case KeyCode
        
'  8 = Backspace, 37=LeftArraw,   38=UpArraw, 39=RightArraw, 40=DownArraw
        ' 
46 Delete   33=PageUp    34=PageDown35=End       36=Home
        Case vbEnter
8373839404633343536
        Exit 
Function
 
   End Select
    
    Dim Text 
As String
    Text 
tb.Text
    
    Dim i 
As Long
    Dim Temp 
As String
    
    For i 
0 To UBound(names)
 
       Temp Left(names(i), Len(Text))
 
       If LCase(Temp) = LCase(TextThen
            tb
.Text names(i)
 
           tb.SelStart Len(Text)
 
           tb.SelLength Len(names(i))
 
       End If
 
   Next

End 
Function 


جزاك الله عني خير الجزاء ولكن اصبح الموضوع صعب اين اكتب ال function وجربت المثال السابق اصبح هناك اخطاء يقرأها compiler
الرد
تم الشكر بواسطة: عابر سبيل 2 , عابر سبيل 2
#4
وجدت لك مثال في أحد المواقع أفضل مما أشرت له سابقا


حمل المرفق الأخير في الموقع
الرد
تم الشكر بواسطة: elgokr , جاسم عبد , جاسم عبد
#5
(01-09-18, 07:41 AM)عابر سبيل 2 كتب :
وجدت لك مثال في أحد المواقع أفضل مما أشرت له سابقا


حمل المرفق الأخير في الموقع

الف الف شكر
الرد
تم الشكر بواسطة: elgokr , جاسم عبد , جاسم عبد
#6
(01-09-18, 07:41 AM)عابر سبيل 2 كتب :
وجدت لك مثال في أحد المواقع أفضل مما أشرت له سابقا


حمل المرفق الأخير في الموقع


المشكلة انه بيظهر الاسم المخزن من قبل ولكن لا يمكن الاكمال عليه
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  احناج مثال لكيفية استيراد بيانات من ملف اكسيل الى قاعدة البيانات عن طريق الفيجوال amro1965 0 54 19-01-21, 06:22 PM
آخر رد: amro1965
  رسالة خطأ في كود البحث في قاعدة البيانات اكسس ahmed201 1 68 04-01-21, 06:52 PM
آخر رد: aboezzat84
  مشكلة قراءة من قاعدة البيانات بعد تنصيب البرنامج على ويندوز 10 aboezzat84 0 84 03-01-21, 12:24 AM
آخر رد: aboezzat84
  [vb6.0] كيفية تغيير خاصية Style للCommandButton في زمن التنفيذ ياسر عبد الكريم 0 111 16-11-20, 09:00 PM
آخر رد: ياسر عبد الكريم
  طلب كواد ترحيل بيانات منMSFlexGrid الي جدول ahmed201 3 208 15-11-20, 08:02 AM
آخر رد: sendbad100
  مشكلة اعادة ترقيم التلقائي في قاعدة بيانات اكسس ahmed201 8 377 25-10-20, 01:37 PM
آخر رد: sendbad100
  مساعدة في عرض بيانات محددة في التقرير مصمم هاوي 1 383 17-09-20, 08:39 PM
آخر رد: مصمم هاوي
  مساعدة في كود تفريغ بيانات الكومبوكس والليست بوكس مصمم هاوي 4 618 13-09-20, 03:57 AM
آخر رد: مصمم هاوي
  مشكله في كواد بحث في قاعدة بيانات اكسس ahmed250 2 387 07-08-20, 09:50 AM
آخر رد: ahmed250
  [سؤال] لايمكن الاتصال بقاعدة بيانات MYsql ناجح احمد 5 741 30-07-20, 03:10 AM
آخر رد: حريف برمجة

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


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