تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحديد رقم حرف في النص... كيف ؟ Etos 3 65 15-10-17, 11:20 AM
آخر رد: Mohamad Anan
  اريد كتابة هذا الكود الى لغة الفيجول 6 bidaya 3 83 30-09-17, 08:27 PM
آخر رد: bidaya
  لديا قيمة في تاكست بوكس اريد تحويلها wolf1120 2 90 14-09-17, 07:20 PM
آخر رد: wolf1120
  ظهور الخط العربي بخط غريب داخل شاشة الكود للفيجوال بيسك في الوندوز 10 allobaed 2 110 08-08-17, 03:09 AM
آخر رد: allobaed
  اريد طريقه يبين لي ان البرنامج متصل بقاعدة البيانات او غير متصل scsi7000 1 104 05-08-17, 05:09 PM
آخر رد: Amir_alzubidy
  اريد مثال او طريقه لعمل جدول خفارات الموظف الكتروني scsi7000 1 100 02-08-17, 12:33 AM
آخر رد: Ahmed_Mansoor
  اريد احدث تاريخ يظهر في (text1.txt) scsi7000 4 162 01-08-17, 07:17 PM
آخر رد: scsi7000
  تعديل كود إعادة الترقيم بعد الحذف مصمم هاوي 2 203 03-07-17, 12:29 PM
آخر رد: أبوبكر سويدان
  هل من الممكن تعديل بيانات عدد من السجلات في الجدول دفعة واحدة كنونو 7 411 21-06-17, 02:51 PM
آخر رد: awidan76
  [vb6.0] ما هي جملة الكود لعرض ازرار الرسائل بالعربية larbihamri 6 206 26-05-17, 12:15 PM
آخر رد: larbihamri

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


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