Code VB.Net SQL query combine two columns that contain different data type and display in ComboBox

 

Imports System.Data.SqlClient

Public Class Form1

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

        Dim conn As New SqlConnection("Data Source=.;Initial Catalog=products;integrated Security=true")

        'conn.Open()

        Dim cmd As New SqlCommand("Select id, '(' +  Cast(id As nvarchar(50))+ ')' + item_product  As products from names_products", conn)

        Dim da As New SqlDataAdapter(cmd)

        Dim dt As New DataTable

        da.Fill(dt)

        With ComboBox1

            .DataSource = dt

            .DisplayMember = "products"

            .ValueMember = "id"

            .Text = "Select Product"

        End With

    End Sub

End Class

🎁🎁Full course VB.net with MySQL database(Insert, Update, Delete, and Search)🎉🎉 with code

https://youtube.com/clip/UgkxaESVafvSL8Sjake6z1v2gUA9vA1Xe-gk

Code Video

Imports MySql.Data.MySqlClient

Public Class Form1

    Dim conn As New MySqlConnection("Data Source=localhost;Database=employees;Username=root;Password=55551")

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        OpenFileDialog1.Filter = "Image|*.jpg;*.png;*.bmp"

        If OpenFileDialog1.ShowDialog = DialogResult.OK Then

            TextBox4.Text = OpenFileDialog1.FileName

            PictureBox1.Image = Image.FromFile(TextBox4.Text)

        Else

            MessageBox.Show("Please Select Image")

        End If

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim cmd1 As New MySqlCommand("Insert Into names(firstname,lastname,telephone,image_path)Values(@firstname,@lastname,@telephone,@image_path)", conn)

        cmd1.Parameters.AddWithValue("firstname", TextBox1.Text.Trim)

        cmd1.Parameters.AddWithValue("lastname", TextBox2.Text.Trim)

        cmd1.Parameters.AddWithValue("telephone", TextBox3.Text.Trim)

        cmd1.Parameters.AddWithValue("image_path", TextBox4.Text.Trim)

        conn.Open()

        cmd1.ExecuteNonQuery()

        conn.Close()

        MessageBox.Show("Data Inserted Successfully")

        display_data()

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        PictureBox1.Image = Nothing

    End Sub

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

        display_data()

    End Sub

    Private Sub display_data()

        Dim cmd2 As New MySqlCommand("Select * From names Order By id desc", conn)

        Dim da As New MySqlDataAdapter(cmd2)

        Dim dt As New DataTable

        dt.Clear()

        da.Fill(dt)

        DataGridView1.DataSource = dt

    End Sub

    Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick

        idlbl.Text = DataGridView1.CurrentRow.Cells(0).Value.ToString

        TextBox1.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString

        TextBox2.Text = DataGridView1.CurrentRow.Cells(2).Value.ToString

        TextBox3.Text = DataGridView1.CurrentRow.Cells(3).Value.ToString

        TextBox4.Text = DataGridView1.CurrentRow.Cells(4).Value.ToString

        PictureBox1.Image = Image.FromFile(TextBox4.Text)

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        Dim cmd3 As New MySqlCommand("Update names Set firstname=@firstname,lastname=@lastname,telephone=@telephone,image_path=@image_path Where id=@id", conn)

        cmd3.Parameters.AddWithValue("firstname", TextBox1.Text.Trim)

        cmd3.Parameters.AddWithValue("lastname", TextBox2.Text.Trim)

        cmd3.Parameters.AddWithValue("telephone", TextBox3.Text.Trim)

        cmd3.Parameters.AddWithValue("image_path", TextBox4.Text)

        cmd3.Parameters.AddWithValue("id", idlbl.Text)

        conn.Open()

        cmd3.ExecuteNonQuery()

        conn.Close()

        MessageBox.Show("Data Updated successfully")

        display_data()

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        Dim cmd3 As New MySqlCommand("Delete From names Where id=@id", conn)

        cmd3.Parameters.AddWithValue("id", idlbl.Text)

        conn.Open()

        cmd3.ExecuteNonQuery()

        conn.Close()

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        PictureBox1.Image = Nothing

        MessageBox.Show("Data Deleted successfully")

        display_data()

    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

        Dim cmd2 As New MySqlCommand("Select * From names Where id=@id Order By id desc", conn)

        cmd2.Parameters.AddWithValue("id", TextBox5.Text.Trim)

        Dim da As New MySqlDataAdapter(cmd2)

        Dim dt As New DataTable

        dt.Clear()

        da.Fill(dt)

        DataGridView1.DataSource = dt

    End Sub

End Class