تقييم الموضوع :
  • 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 ك ب / التحميلات : 23)
الرد
تم الشكر بواسطة: 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 ك ب / التحميلات : 36)
   تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم    
الرد
#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 بارك الله فيك اخى العزيز  وادام الله عزك ونفعك بعلمك واعطاك الحكمة وغفر الله لك
 شكرا
جربت واشتغل تمام
تمام فهمت المشكلة كانت فين فى الاقواس [الاصناف]
الرد
تم الشكر بواسطة: السيد الغالي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo اريد تعديل اداة MSFlexGrid فى هذا المشروع cckills2010 3 74 , 03:02 AM
آخر رد: Ahmed_Mansoor
Photo اريد تعديل بسيط على برنامج الماسحة الضوئية محمد حمد محمد سليمان 5 241 19-08-19, 05:17 AM
آخر رد: Ahmed_Mansoor
Thumbs Up مساعدة في اداة DataGrid توليب 5 504 21-07-19, 12:42 AM
آخر رد: awidan76
  اريد كود لضغط ملف ثم ارساله الي ايميل.........ارجووو المساعدة محمد حمد محمد سليمان 9 457 16-07-19, 01:54 AM
آخر رد: Ahmed_Mansoor
  اساتذتى الكرام ارجو المساعدة اريد نسخه فجول بيسك 6 متوافقة مع ويندوز 10 mhareek 3 290 01-07-19, 01:46 PM
آخر رد: sendbad100
  [vb6.0] اريد كود لنقل اداة PICTURE BOX من فورم الى فورم اخر بنت الشام 5 482 11-02-19, 01:33 PM
آخر رد: بنت الشام
  [vb6.0] اريد مساعدة في برنامج صلاحيات المستخدمين توليب 3 585 24-01-19, 07:58 PM
آخر رد: توليب
  أريد حل لمشكلة "Run Time Error "13 Ahmed Abdulla 1 365 29-11-18, 12:10 AM
آخر رد: عبدالله الصافي
  Datagrid Adnanne 4 510 26-09-18, 03:03 PM
آخر رد: Adnanne
  [سؤال] اريد نسخة Seagate crystal Report 8 لويندوز 7 (32 بيت) mohamed arafa 4 587 10-09-18, 11:35 AM
آخر رد: جاسم عبد

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


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