VC++2013 :MySQL server has gone away 2006([ODBC 5.3(w) Driver]) VB.net2010:エラー無し
【VB.net2010の確認プログラム その1】 Private Sub FormA_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim MyConString As String = "{MYSQL ODBC 5.3 Unicode Driver};UID=root;PWD=root;SERVER=localhost;DATABASE=temp;option=3;" MySqlConn.ConnectionString = ("temp") Acucess_DB() Timer1.Enabled = True
End Sub
Private Sub Acucess_DB()
Try MySqlConn.Open() Query = "SELECT temp FROM temp WHERE temp='temp';" COMMAND = New OdbcCommand(Query, MySqlConn) Dim temp As String = COMMAND.ExecuteScalar() MySqlConn.Close() Catch ex As Exception My.Computer.FileSystem.WriteAllText(file, Now & ":" & ex.Message & vbNewLine, True) End Try
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try MySqlConn.Open() Query = "SELECT temp FROM temp WHERE VCMSerial='temp';" COMMAND = New MySqlCommand(Query, MySqlConn) Dim temp As String = COMMAND.ExecuteScalar COMMAND.ExecuteNonQuery() MySqlConn.Close() Catch ex As Exception My.Computer.FileSystem.WriteAllText(file, Now & ":" & ex.Message & vbNewLine, True) End Try End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick