+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : كود البحث في قاعدة البيانات (/showthread.php?tid=11001)
كود البحث في قاعدة البيانات - Ksa004 - 25-12-14
السلام عليكم ورحمة الله وبركاته ,,,
اخواني لدي كود للبحث في قاعدة البيانات وأريد التعديل عليه بحيث انه اذا لم يتم العثور على بيانات مطابقه يقوم باظهار رساله للمستخدم (لايوجد رقم مطابق )
Dim X, Y
X = InputBox(" intre your id ")
Y = "SELECT * FROM TRYDATA WHERE ID='" & X & "'"
Data1.RecordSource = Y
Data1.Refresh
وفقكم الله وسدد خطاكم .....
RE: كود البحث في قاعدة البيانات - محمد ئوزبك - 02-07-15
(25-12-14, 04:18 PM)Ksa004 كتب : Dim X, Y
X = InputBox(" intre your id ")
Y = "SELECT * FROM TRYDATA WHERE ID='" & X & "'"
Data1.RecordSource = Y
Data1.Refresh
If DATA1.Recordset.RecordCount = 0 Then
MsgBox "لايوجد "
End If