Private Sub Load_Table() MysqlConn = New MySqlConnection MysqlConn.ConnectionString = "server=XXXXXXXXX; user id=XXXXXXXX; password=XXXXXX; database=XXXXXXXX" Dim SDA As New MySqlDataAdapter Dim dbDataSet As New DataTable Dim dbSource As New BindingSource MysqlConn.Open() Dim query As String query = "select * From sql12305518." & ComboBox1.Text & "" COMMAND = New MySqlCommand(query, MysqlConn) SDA.SelectCommand = COMMAND SDA.Fill(dbDataSet) dbSource.DataSource = dbDataSet DataGridView1.DataSource = dbSource SDA.Update(dbDataSet) DataGridView1.Columns(0).HeaderText = "Code" DataGridView1.Columns(1).HeaderText = "PCID" DataGridView1.Columns(2).HeaderText = "Assigned_To" DataGridView1.Columns(3).HeaderText = "Deployed" MysqlConn.Close() getstring()
SDA.Fill(dbDataSet)
Dim dbDataSet As New System.Data.DataSet
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)