VB.Net Create Menu Using MySQL

How To Make A Menu Using MenuStrip And  MySQL Database In VbNet

In This VB.Net Tutorial  We Will See How To Create A Menu Using MenuStrip And Add To This Menu Categories Using ToolStripMenuItem With Image And Text From MySQL Database Table And Add Also To This ToolStripMenuItem SubCategorys Elements From MySQL Database Using MySqlDataAdapter + DataTable + MemoryStream In Visual Basic.Net  Programming Language And Visual Studio Editor.

Project Source Code:

Imports MySql.Data.MySqlClient

Imports System.IO

Public Class Create_Menu8from_MySQL

    Dim connection As New MySqlConnection("datasource=localhost;port=3306;username=root;password=;database=s_t_d")

  ' add ToolStripMenuItem elements to menustrip using for loop 

    Private Sub Create_Menu8from_MySQL_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim adapter As New MySqlDataAdapter("SELECT * FROM `mypics`", connection)

        Dim table As New DataTable()

        adapter.Fill(table)

        For i As Integer = 0 To table.Rows.Count - 1 Step +1

            Dim img() As Byte

            img = table(i)(3)

            Dim ms As New MemoryStream(img)

            Dim pic As Image = Image.FromStream(ms)

            Dim tsm As New ToolStripMenuItem(table(i)(1), pic)

            addItems(tsm, table(i)(0))

            MenuStrip1.Items.Add(tsm)

        Next

    End Sub

   ' create a function to add subElements to ToolStripMenuItem 

    Sub addItems(ByVal tmenu As ToolStripMenuItem, ByVal id As String)

        Dim adapter As New MySqlDataAdapter("SELECT `idMyPics`, `name`, `pic` FROM `pics2` WHERE `idMyPics` = " + id, connection)

        Dim table As New DataTable()

        adapter.Fill(table)

        For i As Integer = 0 To table.Rows.Count - 1 Step +1

            Dim img() As Byte

            img = table(i)(2)

            Dim ms As New MemoryStream(img)

            Dim pic As Image = Image.FromStream(ms)

            tmenu.DropDown.Items.Add(table(i)(1), pic)

        Next

    End Sub

End Class

      

///////////////OUTPUT:

---

More VB.NET

➜ VB.Net Courses

➜ VB.Net Projects