フォームにボタンとしてsqltableデータを表示

Question

私はレストラン管理のためのVB.NETプロジェクトを持っています。私はレストランテーブルデータ（ビジーでもなくてもよい）を格納するデータベース内のエンティティを持っています。

私はこのコードでDataGridViewにデータを表示することができますが、ラインとして、この唯一のショー：ちょうど私

Create table table_(Cod_table int autincrement,Name_table varchar (20),Bus_table bit,Desc_table varchar (50)) 

：

Dim conexao As MySqlConnection = connection 
Dim comando As MySqlCommand = New MySqlCommand("PCD_TABLE_SHOW", conexao) 
comando.CommandType = CommandType.StoredProcedure 
Dim dt As MySqlDataAdapter = New MySqlDataAdapter(comando) 
Dim tabela As DataTable = New DataTable 
Try 
    conexao.Open() 
    dt.Fill(tabela) 
    FormVenda.dgvVenda.DataSource = tabela 

Catch ex As Exception 
    MessageBoxEx.Show(ex.Message) 
Finally 
    conexao.Close() 
End Try 

私のテーブルの押し出しが、多かれ少なかれ、このですこのテーブルのname_tableフィールドをフォーム上のボタンとして表示したいとします。

Answer 1

私が既に持っている：私は下の画像にように私は、（それが忙しいかどう）フォーム内のすべてのボタン型のテーブルを表示し、色を変更する方法を知っているしたいと思います ソリューションを見つけました：

Dim UserButtons As List(Of Button) = New List(Of Button) 
Private Sub Gettable() 

    Try 

     Dim conexao As MySqlConnection = connection 

     conexao.Open() 

     Dim cmdText As String = "PCD_SHOW_TABLE" 
     Dim cmd As MySqlCommand = New MySqlCommand(cmdText) 
     cmd.CommandType = CommandType.StoredProcedure 

     ' cmd.Parameters.AddWithValue("@d1") 

     Color.LightGreen.ToArgb() 
     cmd.Connection = conexao 

     Dim rdr As MySqlDataReader 
     rdr = cmd.ExecuteReader() 
     FlowLayoutPanel1.Controls.Clear() 

     Do While (rdr.Read()) 

      Dim btn As New Button 
      btn.Text = rdr.GetValue(1) 
      ' btn.TextAlign = ContentAlignment.MiddleCenter 
      'Dim btnColor As Color = Color.FromArgb(Val(rdr.GetValue(1))) 
      'btn.BackColor = btnColor 
      ' btn.FlatStyle = FlatStyle.Popup 
      btn.Width = 100 
      btn.Height = 80 
      btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 
      UserButtons.Add(btn) 
      FlowLayoutPanel1.Controls.Add(btn) 

      AddHandler btn.Click, AddressOf Me.Button1_Click 
     Loop 

     conexao.Close() 

    Catch ex As Exception 
     MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) 

    End Try 
End Sub