SQLClient 命令参数查询字符串长度



我正在连接到SQL Server,并试图通过添加参数来限制结果。 @sdate,我添加的第一个参数工作得很好。 但是,现在我正在尝试添加第二个不起作用的参数。 我希望字段 LP_EOC_DATA.PL 仅在字符串长度大于 6 个字符时返回。 下面的代码执行,就像我说的,返回的日期是正确的,但它也从字符串长度小于 6 的LP_EOC_DATA.PL返回值。 如果您知道如何使其工作,请告诉我。 提前谢谢。

Sub doSQL()
    Dim myConn As SqlConnection
    Dim myCmd As SqlCommand
    Dim myReader As SqlDataReader
    Dim sqlString As String = "SELECT LP_EOC_DATA.PL as PLs, LP_EOC_DATA.cDate as ReadDate, LP_EOC_LOV.LOCATION as Location " &
        "FROM LP_EOC_DATA INNER JOIN LP_EOC_LOV ON LP_EOC_DATA.PIC = LP_EOC_LOV.PIC " &
        "WHERE LP_EOC_DATA.cDate > (@sdate) AND LEN(LP_EOC_DATA.PL) > @slen1 " &
        "UNION SELECT dbo.VT_DATA.PL as PLs, dbo.VT_DATA.cDate as ReadDate, dbo.VT_LOV.LOCATION as Location " &
        "FROM dbo.VT_DATA INNER JOIN dbo.VT_LOV ON dbo.VT_DATA.PIC = dbo.VT_LOV.PIC " &
        "WHERE dbo.VT_DATA.cDate > (@sdate) AND LEN(dbo.VT_DATA.PL) > @slen1 " &
        "ORDER BY ReadDate;"
    myConn = New SqlConnection("SERVER=ServerName;UID=uName;" &
                            "PWD=Password;")
    myCmd = myConn.CreateCommand
    myCmd.CommandText = sqlString
    myCmd.Parameters.AddWithValue("@sdate", DateTimePicker1.Value)
    myCmd.Parameters.AddWithValue("@slen1", 6)
    'myCmd.Parameters.AddWithValue("@rx1", "'%[^0-9a-z]%'")
    'myCmd.Parameters.AddWithValue("@rx2", " dbo.VT_DATA.PL NOT LIKE '%[^0-9a-z]%'")
    myConn.Open()
    myReader = myCmd.ExecuteReader()
    Table.Load(myReader)
    DataGridView1.Visible = True
    DataGridView1.DataSource = Table
    lblTotal.Text = Table.Rows.Count
End Sub

此外,如您所见,我希望添加另一个参数,该参数仅返回来自同一LP_EOC_DATA.PL字段的字母数字结果。 我还没有走那么远,但如果你看到我在那里也做错了什么,我将不胜感激。

如果你再格式化一下你的 SQL,它会有所帮助。有一些结构,但它仍然是一堵大墙的文字。对我们来说,调试比你更难,因为我们根本不知道你的架构。在我们解决问题之前,您还应该做许多其他小事情(Using块,以便在发生异常时关闭连接,避免 AddWithValue(( 以确保索引安全,将 SQL 与用户界面隔离等(:

Function doSQL(StartDate As DateTime) As DataTable
    Dim result As New DataTable
    Dim sqlString As String = _
        "SELECT LP_EOC_DATA.PL as PLs, LP_EOC_DATA.cDate as LPRReadDate, LP_EOC_LOV.LOCATION as Location " & 
        "FROM LP_EOC_DATA " & 
        "INNER JOIN LP_EOC_LOV ON LP_EOC_DATA.PIC = LP_EOC_LOV.PIC " & 
        "WHERE LP_EOC_DATA.cDate > @sdate AND LEN(COALESCE(LP_EOC_DATA.PL,'')) > @slen1 " &
        "UNION " & 
        "SELECT dbo.VT_DATA.PL as PLs, dbo.VT_DATA.cDate as ReadDate, dbo.VT_LOV.LOCATION as LPRLocation " &
        "FROM dbo.VT_DATA " &
        "INNER JOIN dbo.VT_LOV ON dbo.VT_DATA.PIC = dbo.VT_LOV.PIC " &
        "WHERE dbo.VT_DATA.cDate > @sdate AND LEN(COALESCE(dbo.VT_DATA.PL,'')) > @slen1 " &
        "ORDER BY ReadDate;"
    Using myConn As New SqlConnection("SERVER=ServerName;UID=uName;" &
                            "PWD=Password;"), _
          myCmd As New SqlCommand(sqlString, myConn)
        myCmd.Parameters.Add("@sdate", SqlDbType.DateTime).Value = StarDate
        myCmd.Parameters.Add("@slen1", SqlDbType.Int).Value = 6
        myConn.Open()
        result.Load(myCmd.ExecuteReader())
    End Using
    Return result
End Function

然后这样称呼它:

Dim tbl As DataTable = doSql(DateTimePicker1.Value)
DataGridView1.Visible = True
DataGridView1.DataSource = tbl
lblTotal.Text = tbl.Rows.Count

至于这个问题,有几种可能性:在这种情况下,NULL值可能会产生意想不到的结果(我发布的代码已经考虑到了这一点(。您可能还遇到某些 unicode 空格填充字符数的问题。另一种可能性是charnchar字段而不是varcharnvarchar,尽管我认为这不是这里的问题。

这不是对问题本身的回答,而是对 XML 文本示例请求的答复。由于这需要几行代码,我宁愿不把它放在注释中。

Dim sql = <sql>
              SELECT *
              FROM MyTable
              WHERE MyColumn = @MyColumn
          </sql>
Dim command As New SqlCommand(sql.Value, connection)

请注意,元素名称可以是您想要的任何内容,但我通常在 SQL 代码中使用"sql"。

相关内容

  • 没有找到相关文章

最新更新