تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد حل لمشكلة فى كود بحث مع datagrid
#1
سلام عليكم
صممت برنامج بسيط لتجربة كود بحث  يعطينى خطا فى الكود الاتى
adogrid.Refresh
----------------------
Private Sub Command4_Click()
adogrid.RecordSource = "Select * from الاصناف where المعرف='" + Text1.Text + "' or اسم الصنف='" + Text1.Text + "'"
adogrid.Refresh
If adogrid.Recordset.EOF Then
MsgBox "gfgfgf", vbCritical, "fgfgfgfg"
Else
adogrid.Caption = adogrid.RecordSource
End If

End Sub
البرنامج مرفق


الملفات المرفقة
.rar   Njomy.rar (الحجم : 26.51 ك ب / التحميلات : 26)
الرد }}}
تم الشكر بواسطة: princeofislam
#2
(12-05-18, 04:31 PM)hum100 كتب : سلام عليكم
صممت برنامج بسيط لتجربة كود بحث  يعطينى خطا فى الكود الاتى
adogrid.Refresh
----------------------
Private Sub Command4_Click()
adogrid.RecordSource = "Select * from الاصناف where المعرف='" + Text1.Text + "' or اسم الصنف='" + Text1.Text + "'"
adogrid.Refresh
If adogrid.Recordset.EOF Then
MsgBox "gfgfgf", vbCritical, "fgfgfgfg"
Else
adogrid.Caption = adogrid.RecordSource
End If

End Sub
البرنامج مرفق

وعليكم السلام 
التعديل في المرفقات


الملفات المرفقة
.rar   Njomy1.rar (الحجم : 27.29 ك ب / التحميلات : 58)
   تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم    
الرد }}}
#3
الافضل ان تجعل كل مسميات الحقول بقاعدة البينات باللغة الانجليزية
أما خاصية عنوان الحقل فلا ضرر من كونه عربي
الرد }}}
#4
(14-05-18, 10:00 AM)السيد الغالي كتب :
(12-05-18, 04:31 PM)hum100 كتب : سلام عليكم
صممت برنامج بسيط لتجربة كود بحث  يعطينى خطا فى الكود الاتى
adogrid.Refresh
----------------------
Private Sub Command4_Click()
adogrid.RecordSource = "Select * from الاصناف where المعرف='" + Text1.Text + "' or اسم الصنف='" + Text1.Text + "'"
adogrid.Refresh
If adogrid.Recordset.EOF Then
MsgBox "gfgfgf", vbCritical, "fgfgfgfg"
Else
adogrid.Caption = adogrid.RecordSource
End If

End Sub
البرنامج مرفق

وعليكم السلام 
التعديل في المرفقات
[/quo بارك الله فيك اخى العزيز  وادام الله عزك ونفعك بعلمك واعطاك الحكمة وغفر الله لك
 شكرا
جربت واشتغل تمام
تمام فهمت المشكلة كانت فين فى الاقواس [الاصناف]
الرد }}}
تم الشكر بواسطة: السيد الغالي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد تصحيح الخلل 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
  اريد طريقة لطباعة مستند مكون من صفحتين علي ورقة وحدة من الجهتين 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
  [كود] اريد المساعده mohamed memoo 0 370 01-12-22, 07:23 PM
آخر رد: mohamed memoo
Question [vb6.0] كيف امنع المستخدم إدخال في Text نص عربي اريد إدخال انجليزي فقط ؟ Microformt 5 914 26-11-22, 01:25 PM
آخر رد: عبدالمؤمن
  هذا كود اريد كود مختصر والتعديل عليه abde6726 0 624 30-05-22, 03:25 AM
آخر رد: abde6726
  اريد طريقة لتنفيذ امر داخل TEXT بعد ضغط مفتاح ENTER محمد حمد محمد سليمان 2 1,010 25-01-22, 01:00 AM
آخر رد: محمد حمد محمد سليمان

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


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