Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load DownloadProgramList() End Sub Private ReadOnly Property MySQL_ConnectionString As String Get Return "Server=" & MySQL_Server & ";Port=" & MySQL_Port & ";Database=" & MySQL_Database & ";Uid=" & MySQL_User & ";Pwd=" & MySQL_Password & ";" End Get End Property Private Sub DownloadProgramList() Dim conMySQL As New MySqlConnection conMySQL.ConnectionString = MySQL_ConnectionString Try conMySQL.Open() Catch ex As Exception MsgBox(ex.Message, vbInformation) End End Try Dim comPrograms As New MySqlCommand With {.Connection = conMySQL, .CommandType = CommandType.Text, .CommandText = "SELECT * FROM Programs ORDER BY Name"} Dim rstPrograms As MySqlDataReader = comPrograms.ExecuteReader dtPrograms.Load(rstPrograms) If dtPrograms.Rows.Count = 0 Then Exit Sub End If PopProgramList() End Sub Private Sub PopProgramList() lstPrograms.Items.Clear() For Each R As DataRow In dtPrograms.Rows lstPrograms.Items.Add(R("Name")) Next lstPrograms.SelectedIndex = 0 End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)