منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
التعديل على كود البحث - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : التعديل على كود البحث (/showthread.php?tid=8951)

التعديل على كود البحث - allayl - 20-05-13

التعديل على كود البحث

المطلوب : رسالة تظهر بأن قيمة البحث موجودة او لا دون عرض سجل القيمة

PHP كود :
Dim x As String
x = Text18.Text
Adodc1.RecordSource = "select * from carh where carnumbe like'" & x & "'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "القيمة غير موجودة", vbOKOnly + vbMsgBoxRight + vbInformation + vbMsgBoxRtlReading, "البحث"
Else
MsgBox "القيمة موجودة", vbOKOnly + vbMsgBoxRight + vbInformation + vbMsgBoxRtlReading, "البحث"
End If 


التعديل على كود البحث - cvcvcv - 20-05-13

إلى ماذا تشيرAdodc1

التعديل على كود البحث - تركي الحلواني - 20-05-13

جرب هذا
PHP كود :
Dim x As String
x = Text18.Text
Adodc1.RecordSource = "select * from carh where carnumbe='" & x & "'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "القيمة غير موجودة", vbOKOnly + vbMsgBoxRight + vbInformation + vbMsgBoxRtlReading, "البحث"
Else
MsgBox "القيمة موجودة", vbOKOnly + vbMsgBoxRight + vbInformation + vbMsgBoxRtlReading, "البحث"
End If 


التعديل على كود البحث - allayl - 20-05-13

اخي تركي المطلوب

رسالة تظهر للمستخدم فقط دون عرض سجل القيمة في القاعدة

رسالة فقط امل التعديل و جزاك الله الف خير

ملاحظة الربط عن طريق اداة Adodc