Form_Load
.
'DECLARE A STRING VARIABLE TO PUT YOUR QUERY ON IT Dim query As String 'DECLARING A VARIABLE AS OLEBDCONNECTION TO REPRESENT AN OPEN CONNECTION TO THE DATA SOURCE 'IN THIS AREA, YOUR GOING TO PUT A CONNECTION STRING THAT REPRESENTS A PROVIDER AND A DATA SOURCE. Dim con As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _ & Application.StartupPath & "\people.accdb;")
Form_Load
, do this code for the autocomplete of a Textbox.
Private Sub Form1_Load(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles MyBase.Load Try 'OPENING THE CONNECTION con.Open() 'PUTING THE VALUE ON A VARIABLE THAT YOU HAVE BEEN DECLARE ON THE TOP query = "SELECT * FROM tblpeople" 'DECLARING A VARIABLE AS OLEDBDATAADAPTER 'TO REPRESENTS A SET OF DATA COMMANDS AND A DATABASE CONNECTION 'THAT ARE USED TO FILL THE DATASET/DATATABLE AND UPDATE THE DATA SOURCE 'PUT HERE YOUR COMMAND TEXT AND A CONNECTION STRING Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(query, con) 'DECLARING A VARIABLE AS DATATABLE 'REPRESENT ONE TABLE IN THE DATABASE Dim dt As New DataTable 'FILLING THE DATATABLE da.Fill(dt) 'DECLARING A VARIABLE AS DATAROW 'REPRESENTS A ROW OF DATA IN THE DATATABLE Dim r As DataRow 'CLEARING THE DATA IN THE CUSTOM SOURCE OF A TEXTBOX txtsearch.AutoCompleteCustomSource.Clear() 'DECLARING A VARIABLE AS INTEGER AND STORE THE MAX COLUMN OF THE DATATABLE Dim maxcolumn As Integer = dt.Columns.Count - 1 For Each r In dt.Rows For i As Integer = 0 To maxcolumn 'ADDING THE DATA OF THE DATATABLE IN THE CUSTOM SOURCE OF A TEXTBOX txtsearch.AutoCompleteCustomSource.Add(r.Item(i).ToString) Next i Next r Catch ex As Exception End Try 'CLOSING A CONNECTION End Sub
Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click Try 'OPENING A CONNECTION con.Open() 'PUTTING THE VALUE ON A VARIABLE THAT YOU HAVE BEEN DECLARE ON THE TOP query = "INSERT INTO tblpeople (FIRSTNAME,LASTNAME,ADDRESS) " _ & "VALUES ('" & txtfname.Text & "','" & txtlname.Text & "','" & txtaddress.Text & "')" 'DECLARING A VARIABLE AS OLEDBDATAADAPTER 'TO REPRESENTS A SET OF DATA COMMANDS AND A DATABASE CONNECTION 'THAT ARE USED TO FILL THE DATASET/DATATABLE AND UPDATE THE DATA SOURCE 'PUT HERE YOUR COMMAND TEXT AND A CONNECTION STRING Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(query, con) 'DECLARING A VARIABLE AS DATATABLE 'REPRESENT ONE TABLE IN THE DATABASE Dim dt As New DataTable 'FILLING THE DATATABLE da.Fill(dt) Catch ex As Exception End Try 'CLOSING A CONNECTION 'CALLING THE FIRST LOAD TO REFRESH THE DATA IN THE CUSTOM SOURCE OF A TEXTBOX Call Form1_Load(sender, e) End Sub