可以请人解释这段代码吗？

Question

我在 VB 2010 年创建了一个连接字符串，非常容易理解，但我无法弄清楚里面发生了什么。

 private: System::Void button1_Click(System::Object^  sender,System::EventArgs^  e) {

MySqlConnection^ con =gcnew MySqlConnection("server=localhost;port=3306;userid=root;password=themohal123;database=myfirstdb");
        try
         {
             con->Open();
             MessageBox::Show("Connection Successful");
             con->Close();


        }
        catch (Exception^ ex)
        {
         MessageBox::Show("Connection Not Successful"+ ex);
        }


         }

Answer 1

它不是 vb ，它检查 mysql 连接状态。如果你想开始，你可以使用这个很好 vb.net.You 给它查询字符串 returns 数据表结果

Public Function mysql(ByVal str_query As String) As DataTable
  Dim adptr As New MySqlDataAdapter
    Dim filltab As New DataTable
    Try
        Using cnn As New MySqlConnection("server=" & mysql_server & ";user=" & mysql_user & ";password=" & mysql_password & ";database=" & mysql_database & ";Allow User Variables=True")
            Using cmd As New MySqlCommand(str_query, cnn)
                cnn.Open()
                               adptr = New MySqlDataAdapter(cmd)
                adptr.Fill(filltab)
                cnn.Close()
            End Using
        End Using
    Catch ex As Exception

'您可以在此处将 mysql 错误记录到文件中 log(ex.ToString) 结束尝试 Return 填充选项卡结束函数

可以请人解释这段代码吗？

Can please someone Explain this code?

vb.net

visual-studio-2010