如何在vb.net中将mysql值分配给单个变量？

下面是我忘记密码的代码， 我想将mysql查询的值存储在一个变量中，这样我就可以使用变量值将其放入电子邮件中

Private Sub Button3_Click(sender As Object, e As EventArgs) 
Handles Button3.Click

        Dim p_text As String
        p_text = TextBox1.Text
        MsgBox(p_text)
        Dim i As Integer
        Try

            Dim conn As MySqlConnection
            conn = New MySqlConnection
            conn.ConnectionString ="server=192.168.1.111;userid=betterhomes;
            password=123456;database=betterhomes"

            conn.Open()
            Dim password As String = ""
            Dim sqlquery2 As String = "SELECT bh_password FROM bh_login 
            where job_id = '" & p_text & "';"

            Dim data2 As MySqlDataReader
            Dim adapter2 As New MySqlDataAdapter
            Dim command2 As New MySqlCommand
            command2.CommandText = sqlquery2
            command2.Connection = conn
            adapter2.SelectCommand = command2
            data2 = command2.ExecuteReader

            While data2.HasRows
                password = data2.GetString("bh_password")
                MsgBox(password)
                data2.Close()
            End While

        Catch exError As MySqlException
            '  MsgBox("Error connecting to database! Try again later")
        End Try

    End Sub

End Class

像这样试试

 If data2.Read
    password = data2.GetString("bh_password")
    MsgBox(password)
 End if
 data2.Close()

发送电子邮件

Dim mail As New MailMessage()

'set the addresses
mail.From = New MailAddress("xx@xx")
mail.[To].Add("xx@xx")

' //set the content
mail.Subject = "This is an email"
mail.Body = password 

' // set the server
Dim smtp As New SmtpClient("localhost")

' // send the message
Try
    smtp.Send(mail)
    Response.Write("Your Email has been sent sucessfully - Thank You")
Catch exc As Exception
    Response.Write("Send failure: " & exc.ToString())
End Try

---

请解释一下这是如何解决问题的。这将使未来的访问者了解问题和您的解决方案。谢谢我想把密码发送到email id，我没有得到存储在变量“password”中的mysql查询的输出，但是现在问题解决了，因为msgbox（password）将密码作为output@user3787753现在检查一下你想要这个吗？