How to Autocomplete a TextBox with Multiple Columns Using VB.net And MS Acces Database,auto complete textbox,
1.Open Visual Basic 2010, make an extend and do the Form simply like this.
2.Double snap the Form and do the accompanying codes over the Form_Load.
1. 'Pronounce A STRING VARIABLE TO PUT YOUR QUERY ON IT
2. Diminish question As String
3. 'Pronouncing A VARIABLE AS OLEBDCONNECTION TO REPRESENT AN OPEN CONNECTION TO THE DATA SOURCE
4. 'Right now, GOING TO PUT A CONNECTION STRING THAT REPRESENTS A PROVIDER AND A DATA SOURCE.
5. Diminish con As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
6. & Application.StartupPath & "\people.accdb;")
3.In the Form_Load , do this code for the autocomplete of a Textbox
1. Private Sub Form1_Load(ByVal sender As System. Article, ByVal e As System. EventArgs) Handles MyBase.Load
2.
3. Attempt
4. 'OPENING THE CONNECTION
5. con.Open()
6. 'PUTING THE VALUE ON A VARIABLE THAT YOU HAVE BEEN DECLARE ON THE TOP
7. question = "SELECT * FROM tblpeople"
8. 'Proclaiming A VARIABLE AS OLEDBDATAADAPTER
9. 'TO REPRESENTS A SET OF DATA COMMANDS AND A DATABASE CONNECTION
10. 'THAT ARE USED TO FILL THE DATASET/DATATABLE AND UPDATE THE DATA SOURCE
11. 'PUT HERE YOUR COMMAND TEXT AND A CONNECTION STRING
12.Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(query, con)
13. 'Announcing A VARIABLE AS DATATABLE
14. 'Speak to ONE TABLE IN THE DATABASE
15. Diminish dt As New DataTable
16. 'FILLING THE DATATABLE
17. da.Fill(dt)
18. 'Announcing A VARIABLE AS DATAROW
19. 'Speaks to A ROW OF DATA IN THE DATATABLE
20. Diminish r As DataRow
21. 'Freeing THE DATA IN THE CUSTOM SOURCE From A TEXTBOX
22. txtsearch.AutoCompleteCustomSource.Clear()
23. 'Proclaiming A VARIABLE AS INTEGER AND STORE THE MAX COLUMN OF THE DATATABLE
24. Diminish maxcolumn As Integer = dt.Columns.Count - 1
25.
26. For Each r In dt.Rows
27. For I As Integer = 0 To maxcolumn
28. 'Including THE DATA OF THE DATATABLE IN THE CUSTOM SOURCE OF A TEXTBOX
29. txtsearch.AutoCompleteCustomSource.Add(r.Item(i).ToString)
30. Next I
31. Next r
32. Catch ex As Exception
33. MsgBox(ex.Message)
34. End Try
35. 'Shutting A CONNECTION
36. con.Close()
37. End Sub
4.Go back to the Design Views, double tap the Save Button and do the accompanying code for embeddings the information in the Database.
1. Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
2.
3. Attempt
4. 'OPENING A CONNECTION
5. con.Open()
6. 'PUTTING THE VALUE ON A VARIABLE THAT YOU HAVE BEEN DECLARE ON THE TOP
7. question = "Supplement INTO tblpeople (FIRSTNAME,LASTNAME,ADDRESS) " _
8. & "Qualities ('" & txtfname.Text & "','" & txtlname.Text & "','" & txtaddress.Text & "')"
9. 'Proclaiming A VARIABLE AS OLEDBDATAADAPTER
10. 'TO REPRESENTS A SET OF DATA COMMANDS AND A DATABASE CONNECTION
11. 'THAT ARE USED TO FILL THE DATASET/DATATABLE AND UPDATE THE DATA SOURCE
12. 'PUT HERE YOUR COMMAND TEXT AND A CONNECTION STRING
13. Diminish da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(query, con)
14. 'Proclaiming A VARIABLE AS DATATABLE
15. 'Speak to ONE TABLE IN THE DATABASE
16. Diminish dt As New DataTable
17. 'FILLING THE DATATABLE
18. da.Fill(dt)
19.
20. MsgBox("Data has been spare", MsgBoxStyle.SystemModal, "Spare")
21. Catch ex As Exception
22. MsgBox(ex.Message)
23. End Try
24. 'Shutting A CONNECTION
25. con.Close()
26. 'CALLING THE FIRST LOAD TO REFRESH THE DATA IN THE CUSTOM SOURCE OF A TEXTBOX
27. Call Form1_Load(sender, e)
28. End Sub
labels:- How to Autocomplete a TextBox with Multiple Columns Using VB.net And MS Acces Database
2.Double snap the Form and do the accompanying codes over the Form_Load.
1. 'Pronounce A STRING VARIABLE TO PUT YOUR QUERY ON IT
2. Diminish question As String
3. 'Pronouncing A VARIABLE AS OLEBDCONNECTION TO REPRESENT AN OPEN CONNECTION TO THE DATA SOURCE
4. 'Right now, GOING TO PUT A CONNECTION STRING THAT REPRESENTS A PROVIDER AND A DATA SOURCE.
5. Diminish con As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
6. & Application.StartupPath & "\people.accdb;")
3.In the Form_Load , do this code for the autocomplete of a Textbox
1. Private Sub Form1_Load(ByVal sender As System. Article, ByVal e As System. EventArgs) Handles MyBase.Load
2.
3. Attempt
4. 'OPENING THE CONNECTION
5. con.Open()
6. 'PUTING THE VALUE ON A VARIABLE THAT YOU HAVE BEEN DECLARE ON THE TOP
7. question = "SELECT * FROM tblpeople"
8. 'Proclaiming A VARIABLE AS OLEDBDATAADAPTER
9. 'TO REPRESENTS A SET OF DATA COMMANDS AND A DATABASE CONNECTION
10. 'THAT ARE USED TO FILL THE DATASET/DATATABLE AND UPDATE THE DATA SOURCE
11. 'PUT HERE YOUR COMMAND TEXT AND A CONNECTION STRING
12.Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(query, con)
13. 'Announcing A VARIABLE AS DATATABLE
14. 'Speak to ONE TABLE IN THE DATABASE
15. Diminish dt As New DataTable
16. 'FILLING THE DATATABLE
17. da.Fill(dt)
18. 'Announcing A VARIABLE AS DATAROW
19. 'Speaks to A ROW OF DATA IN THE DATATABLE
20. Diminish r As DataRow
21. 'Freeing THE DATA IN THE CUSTOM SOURCE From A TEXTBOX
22. txtsearch.AutoCompleteCustomSource.Clear()
23. 'Proclaiming A VARIABLE AS INTEGER AND STORE THE MAX COLUMN OF THE DATATABLE
24. Diminish maxcolumn As Integer = dt.Columns.Count - 1
25.
26. For Each r In dt.Rows
27. For I As Integer = 0 To maxcolumn
28. 'Including THE DATA OF THE DATATABLE IN THE CUSTOM SOURCE OF A TEXTBOX
29. txtsearch.AutoCompleteCustomSource.Add(r.Item(i).ToString)
30. Next I
31. Next r
32. Catch ex As Exception
33. MsgBox(ex.Message)
34. End Try
35. 'Shutting A CONNECTION
36. con.Close()
37. End Sub
4.Go back to the Design Views, double tap the Save Button and do the accompanying code for embeddings the information in the Database.
1. Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
2.
3. Attempt
4. 'OPENING A CONNECTION
5. con.Open()
6. 'PUTTING THE VALUE ON A VARIABLE THAT YOU HAVE BEEN DECLARE ON THE TOP
7. question = "Supplement INTO tblpeople (FIRSTNAME,LASTNAME,ADDRESS) " _
8. & "Qualities ('" & txtfname.Text & "','" & txtlname.Text & "','" & txtaddress.Text & "')"
9. 'Proclaiming A VARIABLE AS OLEDBDATAADAPTER
10. 'TO REPRESENTS A SET OF DATA COMMANDS AND A DATABASE CONNECTION
11. 'THAT ARE USED TO FILL THE DATASET/DATATABLE AND UPDATE THE DATA SOURCE
12. 'PUT HERE YOUR COMMAND TEXT AND A CONNECTION STRING
13. Diminish da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(query, con)
14. 'Proclaiming A VARIABLE AS DATATABLE
15. 'Speak to ONE TABLE IN THE DATABASE
16. Diminish dt As New DataTable
17. 'FILLING THE DATATABLE
18. da.Fill(dt)
19.
20. MsgBox("Data has been spare", MsgBoxStyle.SystemModal, "Spare")
21. Catch ex As Exception
22. MsgBox(ex.Message)
23. End Try
24. 'Shutting A CONNECTION
25. con.Close()
26. 'CALLING THE FIRST LOAD TO REFRESH THE DATA IN THE CUSTOM SOURCE OF A TEXTBOX
27. Call Form1_Load(sender, e)
28. End Sub
labels:- How to Autocomplete a TextBox with Multiple Columns Using VB.net And MS Acces Database
COMMENTS