B4J Question [SOLVED]SQL question...

select * from(select TOP 1 * from dbo.DateTest where value < 140 order by value desc ) as A UNION ALL  select * from  (select TOP 1 * from dbo.DateTest where value > 140 order by value asc  ) AS b

rs1=SQL1.ExecQuery("Select * from E192 where value < 140 ") 'E192 is table name
    Log(rs1.GetString("VALUE")) '"VALUE" is field name

rs1 = Sql1.ExecQuery2("SELECT * FROM E192 WHERE Value BETWEEN ? AND ?", Array(MinValue, MaxValue))

query = “SELECT value FROM (SELECT TOP 1 value FROM E192 WHERE valuue < ? ORDER BY value DESC) as A UNION SELECT value FROM  (SELECT TOP 1 value FROM E192 WHERE value > ? ORDER BY value ASC) AS b”
rs1 = SQL1.ExecuteQuery2(query, array as object(intInput, intInput))

query = “SELECT value FROM (SELECT value FROM E192 WHERE value < ? ORDER BY value DESC LIMIT 1) as A UNION SELECT value FROM  (SELECT value FROM E192 WHERE value > ? ORDER BY value ASC LIMIT 1) AS b”
rs1 = SQL1.ExecuteQuery2(query, array as object(intInput, intInput)

Public Sub Adjacencies(TableName As String, FieldName As String, MidValue As Int) As List
    Dim lstResult As List
    lstResult.Initialize
   
Dim Query As String
Query = _
$"
SELECT ${FieldName} FROM
(SELECT ${FieldName} FROM ${TableName} WHERE ${FieldName} < ? ORDER BY ${FieldName} DESC LIMIT 1) AS A
UNION
SELECT ${FieldName} FROM
(SELECT ${FieldName} FROM ${TableName} WHERE ${FieldName} > ? ORDER BY ${FieldName} ASC LIMIT 1) AS B
"$
    Dim Cursor As ResultSet
    Cursor = DB.ExecQuery2(Query, Array(MidValue, MidValue))
    Do While Cursor.NextRow
        lstResult.Add(Cursor.GetInt(FieldName))
    Loop
   
    Return lstResult
End Sub

query = “SELECT value FROM E192 WHERE value < ? ORDER BY value DESC LIMIT 1 UNION SELECT value FROM E192 WHERE value > ? ORDER BY value ASC LIMIT 1”