Form1_Load
.
'connection of MS Access Database to Visual Basic 2008 Dim con As OleDb.OleDbConnection = New _ OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _ & Application.StartupPath & "\test.accdb") 'declaring the classes 'OleDbDataAdapter represents a set of data command and ' the database that are use to update and fill the data source Dim da As OleDb.OleDbDataAdapter Dim ds As DataSet 'represent a cache in memory of data
Form1_Load
, do this code for filling the data in the ComboBox that has two display members.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'filling the data of a combobox in the first load 'openning the connection con.Open() 'in this area, it is where the command happens for filling 'and updating data in the database 'and also the concatenation of a query. da = New OleDb.OleDbDataAdapter("SELECT ID,(fname & ' ' & lname) as [Fullname] from member ", con) ds = New DataSet 'refreshes the row into the dataset 'to match those data in the table da.Fill(ds, "test") 'defining what are the attributes of a combo box With ComboBox1 'set the data source to this combo box .DataSource = ds.Tables(0) 'set the fields of the table to display in a list control .DisplayMember = "Fullname" 'set the actual value of a combo box .ValueMember = "ID" End With 'closing the connection End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'for data storing 'openning connection con.Open() da = New OleDb.OleDbDataAdapter("INSERT INTO member (fname,lname) VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "')", con) ds = New DataSet da.Fill(ds) 'closing the connection 'calling the first load to refresh the record in the combo box Call Form1_Load(sender, e) End Sub