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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=3377)

تصحيح خطأ الاستعلام في المثال المرفق - m-kaylani - 01-07-14

الاستعلام في المثال لا يعطي نتيجة Huh

RE: تصحيح خطأ الاستعلام في المثال المرفق - vbnet - 01-07-14

.....

كود :
Private Sub Command1_Click()
    Dim b1, b2 As String
    
    b1 = Format(Me.Combo1.Text, "yyyy/MM")
    b2 = Format(Me.Combo2.Text, "yyyy/MM")
    
    Adodc1.RecordSource = "select * from bayan where FORMAT(dat,'yyyy/MM') Between '" & b1 & "' AND '" & b2 & "'"
    Adodc1.CommandType = adCmdText
    Adodc1.Refresh
    If Adodc1.Recordset.EOF Then
        MsgBox "غير موجود", , "تنبيه"
    End If
End Sub

.....

RE: تصحيح خطأ الاستعلام في المثال المرفق - m-kaylani - 02-07-14

أخي vbnet أشكرك على المساعدة وفقك الله Heart