[mero5000]

كود :

Private Function GetExpirtProduct(ByVal sType As String) As Integer
        Try
            Dim CON As New SqlClient.SqlConnection
            Dim COM As New SqlClient.SqlCommand
            Dim DR As SqlClient.SqlDataReader = Nothing


            Dim strsql1 As String = "SELECT * FROM material  WHERE ( ProductName ='" & sType & "') AND  ( datex = '" & Date.Today.AddDays(-30).ToString("MM/dd/yyyy") & "')"
            CON.ConnectionString = constring3
            CON.Open()
            COM.Connection = CON
            COM.CommandType = CommandType.Text
            COM.CommandText = strsql1
            COM.Parameters.Clear()

            Dim Result As Integer = COM.ExecuteScalar

            CON.Close()

            Return Result
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Function

هذا الفنكشن من مكتبتى القديمة للفيجول بيسك بيجيب الى قربت على الانتهاء عدل عليه زى ما تحب
لو تحب تحذف اسم المنتج براحتك