تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد تعديل هذا الكود للبحث لاى كلمه فى النص
#1
السلام عليكم ورحمة الله وبركاته 
كل عام وانتم بخير بمناسبة السنة الهجرية
اريد تعديل هذا الكود للبحث لاى كلمه فى النص

Private Sub DataCombo1_Change()
On Error Resume Next
Dim x As String
x = DataCombo1
Adodc3.RecordSource = " select * from mm where ad like '" & x & "%'"
Adodc3.CommandType = adCmdText
Adodc3.Refresh

End Sub
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم
وانتم بخير اهلا و سهلا بكم

تعديل الكود :
PHP كود :
Private Sub DataCombo1_Change()
On Error Resume Next
Dim X 
As String
DataCombo1
Adodc3
.RecordSource "Select * From mm Where ad Like '%" "%'"    'VB6 Code
Adodc3.CommandType = adCmdText
Adodc3.Refresh

End Sub 
الرد }}}}
#3
شكرا اخى الكريم وزادك الله علما
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] ما هي جملة الكود لعرض ازرار الرسائل بالعربية larbihamri 6 86 أمس, 12:15 PM
آخر رد: larbihamri
  تعديل كود إعادة الترقيم بعد الحذف مصمم هاوي 1 68 22-05-17, 02:36 PM
آخر رد: sendbad100
  اريد كود انشاء مجلد باسم عام جديد suliman alahdl 10 258 01-05-17, 12:18 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] مساعدة في تعديل هاذا المثال Abdellah 5 176 20-04-17, 05:38 PM
آخر رد: Abdellah
  [ تمّ الحل ] : تعديل كلمة المرور عبد العزيز البسكري 8 231 08-04-17, 09:33 PM
آخر رد: larbihamri
Question [سؤال] اريد اكواد حل المعادلات من جميع الدرجات لو سمحتو طارق++ 9 5,817 07-04-17, 01:06 PM
آخر رد: الخير طهوري
  هل من الممكن تعديل بيانات عدد من السجلات في الجدول دفعة واحدة كنونو 6 191 01-04-17, 03:56 PM
آخر رد: كنونو
Question [vb6.0] كيف اشترط على المستخدم ان يحدد السجل الذي اريد حذفه في برنامجي المرفق ؟؟ Microformt 3 300 01-04-17, 02:18 AM
آخر رد: awidan76
  اريد كود لمنع التهنيج عند العمليات الطويله Etos 1 76 27-03-17, 07:32 PM
آخر رد: v_2017_6
  اريد تفعيل الماوس في الفكس جرايد كنونو 5 371 21-03-17, 11:37 AM
آخر رد: كنونو

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


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