Saving and Filling Data in the ComboBox in VB.Net And MySQL Database

1
1478

This tutorial is all about Saving and Filling Data in the ComboBox in VB.Net And MySQL Database.
For today, I will teach you how to store and fill the data in the ComboBox in VB.Net and MySQL database. With this, you can save the data and it will automatically fill in the ComboBox.

So, let’s begin.

First, create a database in the MySQL database and name it “dbmember”. After that, create a table in it and name it “member”
[mysql] CREATE TABLE IF NOT EXISTS member (
id int(11) NOT NULL AUTO_INCREMENT,
name text NOT NULL,
PRIMARY KEY (id)
) ENGINE=InnoDB DEFAULT CHARSET=latin1;
[/mysql] Open the Visual Basic and create a new Windows Form Application. Set the Form Just like this.

datastoresaving

After setting up the Form, double click it and set the connection of MySQL Database to Visual Basic. After that, Declare all the classes that are needed above the Form1_Load.

[vbnet] ‘SET THE CONNECTION BETWEEN VISUAL BASIC AND MYSQL DATABASE
Dim con As MySqlConnection = New MySqlConnection(“server=localhost; user id=root; password=; database=dbmember”)
‘A SET OF COMMAND IN MYSQL
Dim cmd As New MySqlCommand
‘SET A CLASS THAT SERVE THE BRIDGE BETWEEN A DATASET AND DATABASE FOR SAVING AND RETRIEVING DATA.
Dim da As New MySqlDataAdapter
‘SET A CLASS THAT CONSIST A COMPLETE SET OF DATA
Dim ds As New DataSet
[/vbnet]

Now, in the Form_load, set up a code for filling the ComboBox on the first load of the Form.

[vbnet] Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘OPENING THE CONNECTION
con.Open()
‘SET A QUERY FOR RETRIEVING DATA
Dim sqlquery As String = “select * from member”
‘IT HOLDS THE DATA TO BE EXECUTED
With cmd
.Connection = con
.CommandText = sqlquery
End With
‘FILLING THE DATA IN THE TABLE
da.SelectCommand = cmd
ds = New DataSet
da.Fill(ds, “member”)
‘GETTING THE DATASOURCE OF THE COMBOBOX
ComboBox1.DataSource = ds.Tables(0)
‘SET THE FIELD IN THE TABLE TO BE DISPLAY IN THE COMBOBOX
ComboBox1.DisplayMember = “name”
‘CLOSING THE CONNECTION
con.Close()
da.Dispose()
End Sub
[/vbnet]

After setting up the code for filling ComboBox, go back to the Form Design and double click the Save Button. After that, you have to put a code for saving the data in the database and fill it into the ComboBox.
[vbnet]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
con.Open()
‘DECLARE A VARIABLE AS THE RESULT
Dim result As Integer
‘SET A QUERY FOR SAVING DATA
Dim sqlQuery As String = “INSERT INTO member (name) values (‘” & TextBox1.Text & “‘)”
‘IT HOLDS THE DATA TO BE EXECUTED
With cmd
.Connection = con
.CommandText = sqlQuery
End With
‘IT EXECUTE THE DATA
result = cmd.ExecuteNonQuery
‘IT NOTIFY IF THE DATA IS SAVE OR NOT.
If result > 0 Then
MsgBox(“Data has been save in the database”)
Else
MsgBox(“Failed to save the data in the database”)
End If

Catch ex As Exception
MsgBox(ex.Message)
End Try
con.Close()
‘CALL THE FIRST LOAD OF THE FORM TO REFRESH THE DATA IN THE COMBOBOX
Call Form1_Load(sender, e)
End Sub
[/vbnet]

Complete Source Code is included. Download and run it on your computer.
DOWNLOAD HERE

 

 

Readers might read also:

 

 

Facebook Comments

1 COMMENT

LEAVE A REPLY

Please enter your comment!
Please enter your name here

This site uses Akismet to reduce spam. Learn how your comment data is processed.