+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : اريد حل لمشكلة فى كود بحث مع datagrid (/showthread.php?tid=24933)
اريد حل لمشكلة فى كود بحث مع datagrid - hum100 - 12-05-18
سلام عليكم
صممت برنامج بسيط لتجربة كود بحث يعطينى خطا فى الكود الاتى
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
البرنامج مرفق
RE: اريد حل لمشكلة فى كود بحث مع datagrid - السيد الغالي - 14-05-18
(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
البرنامج مرفق
وعليكم السلام
التعديل في المرفقات
RE: اريد حل لمشكلة فى كود بحث مع datagrid - عبدالله الصافي - 15-05-18
الافضل ان تجعل كل مسميات الحقول بقاعدة البينات باللغة الانجليزية
أما خاصية عنوان الحقل فلا ضرر من كونه عربي
RE: اريد حل لمشكلة فى كود بحث مع datagrid - hum100 - 31-05-18
(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 بارك الله فيك اخى العزيز وادام الله عزك ونفعك بعلمك واعطاك الحكمة وغفر الله لك
شكرا
جربت واشتغل تمام
تمام فهمت المشكلة كانت فين فى الاقواس [الاصناف]