So we need to add three labels and change the each text to Full Name, Username and Password. Then add a button and name it as “btngo” and change the text property into “Go”. Next add two textbox and name the first one as “txtuser” and place it beside the Username, then the other one name it as “txtpass” and place it beside “Password”. And finally add a combobox and leave all the property to its default settings.
Next, double click the form. And above public class add the following code.
But to make sure you have already added the reference of mysql. And if you don’t know how to do it, just read follow this article called "combobox does not fill by data in mysql database
Private Sub Form10_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
con.ConnectionString = ("Server=localhost;Database=einventorysystem;Uid=eisystem;password=password")
Try
con.Open()
With cmd
.Connection = con
.CommandText = "SELECT `inventory_name` from inventory;"
End With
'declare dt as new datatable
Dim dt As New DataTable
With ComboBox1
da.SelectCommand = cmd
'it fills the da values into dt
da.Fill(dt)
'dt provides the data surce of combobox
.DataSource = dt
'specify the what to display
.DisplayMember = "inventory_name"
'and the value
.ValueMember = "inventory_name"
End With
Catch ex As Exception
MsgBox(ex.Message)
End Try
con.Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim table As New DataTable
Try
con.Open()
'Gets or sets an SQL statement or stored procedure used to select records in the database.
With cmd
.Connection = con
.CommandText = "SELECT * from inventory where `inventory_name`='" & ComboBox1.SelectedValue & "';"
End With
da.SelectCommand = cmd
da.Fill(table)
'it gets the data from specific column and fill it into textbox
TextBox1.Text = table.Rows(0).Item(2)
da.Dispose()
Catch ex As Exception
MsgBox(ex.Message)
End Try
con.Close()
End Sub
End Class