ITSourceCode.com

We Exist to Provide 100% Free Source Code and Tutorials

Custom Search

How to Used a Module in AutoSuggest and AutoAppend in VB.Net and MySQL Database

On my first tutorial, I teach you how to How to Create an AutoComplete in a TextBox in VB.Net. Now, in this Tutorial I will teach you how to use Module in AutoAppend and Suggest in a TextBox in VB.Net and MySQL Database. With this, the record will suggest and append instantly in the Textbox.

Let’s Begin:

Open the Visual Basic and Create a New Windows Form Application. After that, create a Module and name it “autoappend”.
autsuggestform3_0
Set up the connection from MySQL Database to Visual Basic and declare all the classes are needed.

  1. Public con As MySqlConnection = New MySqlConnection("server=localhost;user id=root;database=dbemployees")
  2.     Public cmd As New MySqlCommand
  3.     Public da As New MySqlDataAdapter
  4.     Public dt As New DataTable

2. After setting up the connection, create a method of AutoAppend and Autosuggest.

  1. 'CREATE A SUB ROUTINE OF THE AUTO SUGGEST AND APPEND
  2.     Public Sub autocompletetxt(ByVal sql As String, ByVal txt As TextBox)
  3.         Try
  4.             dt = New DataTable
  5.             'OPENING THE CONNECTION
  6.             con.Open()
  7.             'HOLDS THE DATA TO BE EXECUTED
  8.             With cmd
  9.                 .Connection = con
  10.                 .CommandText = sql
  11.             End With
  12.             'FILLING THE DATA IN THE DATATABLE
  13.             da.SelectCommand = cmd
  14.             da.Fill(dt)
  15.             'SET A VARIABLE AS A ROW OF DATA IN THE DATATABLE
  16.             Dim r As DataRow
  17.             'CLEARING THE AUTOCOMPLETE SOURCE OF THE TEXTBOX
  18.             txt.AutoCompleteCustomSource.Clear()
  19.             'LOOPING THE ROW OF DATA IN THE DATATABLE
  20.             For Each r In dt.Rows
  21.                 'ADDING THE DATA IN THE AUTO COMPLETE SOURCE OF THE TEXTBOX
  22.                 txt.AutoCompleteCustomSource.Add(r.Item(0).ToString)
  23.             Next
  24.             ''''''''''''''''''''''''
  25.         Catch ex As Exception
  26.             MsgBox(ex.Message)
  27.         End Try
  28.         'CLOSING THE CONNECTION
  29.         con.Close()
  30.         da.Dispose()
  31.     End Sub

Go back to the Form Design and set up the Form just like this.
autsuggestform1_0
4. Click the TextBox and go to the Properties. In the ”Properties” hit the ”AutoComplete Mode” and select ”SuggestAppend”. After that, hit the ”AutoComplete Source” and select ”Costume Source”.
autsuggestform2_0
5. after setting up the properties of the TextBox, double click the Form and call the name of the method that you have created in the first load of the Form.

  1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  2.         Dim sql As String
  3.         sql = "SELECT F_NAME FROM employees"
  4.         autocompletetxt(sql, TextBox1)
  5.     End Sub

The database of this project is in here

Finally, Press F5 on the keyboard of you computer to run your project.

Download the complete source code and run it on your computer.

DOWNLOAD HERE

Facebook Comments

Check Your Domain Ranking

Leave a Reply

Your email address will not be published. Required fields are marked *

ITSourceCode.com © 2016 Frontier Theme

Subscribe For Latest Updates

Signup for our newsletter and get notified when we publish new articles for free!