可以请人解释这段代码？

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给查询字符串返回的DataTable结果

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的错误到一个文件在此登录（ex.ToString） 结束Try 返回filltab End Function