Add support for <> in VB.NET

Author: mythz

src/ServiceStack.OrmLite/Expressions/SqlExpression.cs

@@ -1053,14 +1053,14 @@ protected virtual object VisitBinary(BinaryExpression b)
                 if (right as PartialSqlString == null)
                     right = ((bool)right) ? GetTrueExpression() : GetFalseExpression();
             }
-            else if (operand == "=" && b.Left is MethodCallExpression && ((MethodCallExpression)b.Left).Method.Name == "CompareString")
+            else if ((operand == "=" || operand == "<>") && b.Left is MethodCallExpression && ((MethodCallExpression)b.Left).Method.Name == "CompareString")
             {
                 //Handle VB.NET converting (x => x.Name == "Foo") into (x => CompareString(x.Name, "Foo", False)
                 var methodExpr = (MethodCallExpression)b.Left;
                 var args = this.VisitExpressionList(methodExpr.Arguments);
                 object quotedColName = args[0];
                 object value = GetValue(args[1], typeof(string));
-                return new PartialSqlString("(" + quotedColName + " = " + value + ")");
+                return new PartialSqlString("({0} {1} {2})".Fmt(quotedColName, operand, value));
             }
             else
             {

tests/ServiceStack.OrmLite.VbNetTests/Class1.vb

@@ -28,7 +28,7 @@ Module Module1
 
         Dim q As SqlExpression(Of Poco) = db.From(Of Poco)()
 
-        q.Where(Function(x) x.Name = "Foo")
+        q.Where(Function(x) x.Name <> "Bar")
 
         Dim rows As List(Of Poco) = db.Select(q)