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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 0 73 05-03-24, 02:40 PM
آخر رد: مصمم هاوي
  اريد تصحيح الخلل abde6726 2 350 04-11-23, 11:11 PM
آخر رد: abde6726
  اريد طريقة تصدير بيانات الاكتف ريبورت لملف اكسل scsi7000 0 299 03-11-23, 10:41 AM
آخر رد: scsi7000
  اريد طريقه او مثال ...للطباعة من الجهتين في الاكتيف ريبورت scsi7000 4 433 02-11-23, 11:06 PM
آخر رد: Microformt
  اختصار الكود حسب المثال المرفق abde6726 2 282 29-10-23, 11:00 AM
آخر رد: abde6726
  اختصار الكود حسب المثال المرفق abde6726 0 220 28-10-23, 05:01 PM
آخر رد: abde6726
  اريد طريقة لطباعة مستند مكون من صفحتين علي ورقة وحدة من الجهتين scsi7000 2 371 25-10-23, 07:38 PM
آخر رد: scsi7000
Question [vb6.0] عندي مشكلة في هذا الكود حيث انه لا يقبل الا رقم فقط اريد ان يقبل الارقام والاحرف ؟ Microformt 1 269 25-10-23, 04:10 PM
آخر رد: Amir_Alzubidy
Question [vb6.0] اريد إذا كان قيمة المحول صفر يظهر لي رسالة هل يمكن ذلك ؟ Microformt 0 371 20-03-23, 08:33 PM
آخر رد: Microformt
  مربع النص Abdellah 2 467 10-12-22, 11:40 AM
آخر رد: Abdellah

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


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