Службы отчетов SQL Server - выполнение выражений отчетов - PullRequest
Новая
       8

Службы отчетов SQL Server - выполнение выражений отчетов

0 голосов
/ 24 августа 2018

Скажите, у меня есть следующее выражение: 

=DateAdd(DateInterval.Year,-1,Today())

Существует ли конечная точка веб-службы SQL Server, которая позволит мне передать выражение и вернуть результат выполненного выражения? Я просмотрел перечисленные конечные точки здесь , но не смог их найти.

Или есть другой способ оценить это выражение?

1 Ответ

0 голосов
/ 25 августа 2018

Я нашел другой способ оценить выражение с помощью VB.net (предполагается, что @Wolfgang Kais правильно использует VB.net вместо VBA)

Вот фрагмент кода: 

using System;
using System.CodeDom.Compiler;
using System.Text;
using Microsoft.VisualBasic;

namespace VbStringCompiler
{
internal class Program
{
    public static void Main(string[] args)
    {
        new Program();
    }

    private const string CRLF = "\r\n";

    private Program()
    {
        var vbCodeProvider = new VBCodeProvider();

        var compilerParameters = new CompilerParameters();
        compilerParameters.ReferencedAssemblies.Add("Microsoft.VisualBasic.dll");
        compilerParameters.ReferencedAssemblies.Add("System.dll");
        compilerParameters.CompilerOptions = "/t:library";
        compilerParameters.GenerateInMemory = true;

        var stringBuilder = new StringBuilder();

        stringBuilder.Append("Imports Microsoft.VisualBasic" + CRLF);
        stringBuilder.Append("Imports System" + CRLF + CRLF);

        stringBuilder.Append("Namespace Evaluate" + CRLF);
        stringBuilder.Append("Class RunTime" + CRLF);
        stringBuilder.Append("Public Function Run() As Object" + CRLF);

        // insert code to return
        stringBuilder.Append("Return DateAdd(DateInterval.Year, -1, Today())" + CRLF);

        stringBuilder.Append("End Function" + CRLF);
        stringBuilder.Append("End Class" + CRLF);
        stringBuilder.Append("End Namespace" + CRLF);

        try
        {
            var compilerResults =
                vbCodeProvider.CompileAssemblyFromSource(compilerParameters, stringBuilder.ToString());
            if (compilerResults.Errors.Count > 0)
            {
                foreach (CompilerError compilerError in compilerResults.Errors)
                {
                    Console.Error.WriteLine(compilerError.ToString());
                }

                return;
            }

            var instance = compilerResults.CompiledAssembly.CreateInstance("Evaluate.RunTime");
            var methodInfo = instance.GetType().GetMethod("Run");
            var methodReturn = methodInfo.Invoke(instance, null);

            Console.WriteLine(methodReturn);
        }
        catch (Exception e)
        {
            Console.WriteLine(e.StackTrace);
        }
    }
}
}
...