VS2019 VB级联DropDownList使用AddWithValue查询MySQL无结果问题求助

问题原因&修复方案 #

1. 核心语法错误：SQL语句顺序错误

MySQL查询的子句有严格顺序要求，必须遵循 SELECT → FROM → WHERE → GROUP BY → ORDER BY，现有代码把ORDER BY写在了WHERE前面，直接触发SQL语法错误，是功能失效的首要原因。
原错误SQL：

Select Bundesland, idBundesland, idLand from Campingplatz ORDER BY Bundesland ASC where idLand = @LandID Group BY Bundesland

修正后SQL：

SELECT Bundesland, idBundesland, idLand FROM Campingplatz WHERE idLand = @LandID GROUP BY Bundesland ORDER BY Bundesland ASC

2. 参数配置错误

你的ID字段均为整数类型，但参数配置存在两个问题：

• AddWithValue的第二个参数应为参数值，你错误传入了MySqlDbType.Decimal类型定义，且Decimal类型和整数ID不匹配
• 直接传入的DropDownLand.SelectedItem.Value是字符串类型，需要显式转为整数
  修正后的参数写法：

' 先显式定义参数类型再赋值，避免类型不匹配
cmd.Parameters.Add("@LandID", MySqlDbType.Int32).Value = Convert.ToInt32(DropDownLand.SelectedItem.Value)

3. 异常吞噬问题

你注释掉了Throw ex，代码运行时的所有错误都会被直接吞掉，无法定位具体问题，建议开发阶段保留异常抛出，方便排查。

4. 前置检查项

确认国家下拉控件DropDownLand的AutoPostBack属性设置为True，否则选中变化不会触发后台的SelectedIndexChanged事件。

完整修正后代码 #

Protected Sub idLand_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
    DropDownBundesland.Items.Clear()
    DropDownBundesland.Items.Add(New ListItem("--Select State/Province--", ""))
    DropDownRegion.Items.Clear()
    DropDownRegion.Items.Add(New ListItem("--Select City--", ""))

    DropDownBundesland.AppendDataBoundItems = True
    Dim strConnString As [String] = ConfigurationManager _
               .ConnectionStrings("conString").ConnectionString
    ' 修正SQL子句顺序
    Dim strQuery As [String] = "SELECT Bundesland, idBundesland, idLand FROM Campingplatz WHERE idLand = @LandID GROUP BY Bundesland ORDER BY Bundesland ASC"
    Dim con As New MySqlConnection(strConnString)
    Dim cmd As New MySqlCommand()
    ' 修正参数类型和赋值，显式转整数
    cmd.Parameters.Add("@LandID", MySqlDbType.Int32).Value = Convert.ToInt32(DropDownLand.SelectedItem.Value)
    cmd.CommandType = CommandType.Text
    cmd.CommandText = strQuery
    cmd.Connection = con
    Try
        con.Open()
        DropDownBundesland.DataSource = cmd.ExecuteReader()
        DropDownBundesland.DataTextField = "Bundesland"
        DropDownBundesland.DataValueField = "idBundesland"
        DropDownBundesland.DataBind()
        If DropDownBundesland.Items.Count > 1 Then
            DropDownBundesland.Enabled = True
        Else
            DropDownBundesland.Enabled = False
            DropDownRegion.Enabled = False
        End If
    Catch ex As Exception
        ' 开发阶段可取消注释查看报错
        ' Throw ex
    Finally
        con.Close()
        con.Dispose()
    End Try
End Sub

内容的提问来源于stack exchange，提问作者Lothar Rappsilber