Public SQLConnection As New MySqlConnection("server=serverIPHere;" & "user id=MySQLUsername;" & "password=databasePW;" & "database=databasename")
Public Sub TryConnect()
Try
SQLConnection.Open()
Catch ex As Exception
If MessageBox.Show("An error occurred when trying to connect to the database, would you like to try again?", "Database error", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = Windows.Forms.DialogResult.Yes Then
TryConnect()
Else
Application.Exit()
End If
End Try
End Sub
Dim cmdStr As String = "SELECT * FROM DevStudents ORDER BY StudentName ASC"
Dim sqlCMD As New MySqlCommand(cmdStr, SQLConnection)
Try
Using sRead As MySqlDataReader = sqlCMD.ExecuteReader
Do Until sRead.Read = False
Dim sName As String = sRead("StudentName")
Dim sEmail As String = sRead("Email")
'...rest of my procedure here, but you dont need to know that'
Loop
End Try
Dim UpdateStr As String = "UPDATE DevStudents SET Classes='" & outstr & "' WHERE ID='" & student.ID & "'" Dim UpdateCMD As New MySqlCommand(UpdateStr, SQLConnection) UpdateCMD.ExecuteNonQuery()