Может понравиться кому-нибудь Объясните этот код?

Question

Я сделал соединение String в 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) End Try Return filltab Конечная функция