Question

我已经编辑了上面的代码，并在下面尝试过，我还将文本框更改为具有相同名称的列表框，但在运行以下代码后，我现在在列表框中没有值：

myConnection.ConnectionString = providerEdit
Dim str As String
str = "SELECT [Email] FROM [PRD_Records] WHERE [ReceiveKMCWEMSAlerts] = Yes"

Using cmd As OleDbCommand = New OleDbCommand(str, myConnection)
  myConnection.Open()

  Dim reader As OleDbDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
  While reader.Read()
    txtCreateAnnTo.Text = reader(0).ToString
  End While
  reader.Close()
End Using

Answer 1

感谢大家的回复......我发现代码存在问题，非常简单，我只是忽略了它。我更新下面的编码：myConnection.ConnectionString = providerEdit Dim str As String str =“SELECT [Email] FROM [PRD_Records] WHERE [ReceiveKMCWEMSAlerts] = Yes”

    Using cmd As OleDbCommand = New OleDbCommand(str, myConnection)


        myConnection.Open()

        Dim reader As OleDbDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
        While reader.Read()
            txtCreateAnnTo.Items.Add(reader(0).ToString)
        End While
        reader.Close()
    End Using

如何使用OleDBConnection从查询中获取多个值？

1 个答案: