Use Module in AutoAppend and Suggest Textbox Using Visual Basic 2008 and MS Access Database

Submitted by janobe on Tuesday, December 17, 2013 - 13:37.

On my first tutorial I teach you how to AutoSuggest a Textbox Using Visual basic 2008 And MySQL Database. Now, in this Tutorial I will show you how to Module the AutoAppend and Suggest a TextBox using Visual Basic 2008 and MS Access Database. An AutoAppend TextBox is when you type a data in a TextBox it will append instantly, whatever, first record you’re going to search. For instance, when you type in the Web Browser.
Let's Begin: 1. Create a Module in the Visual Basic 2008 named “autoappend” and set up a connection from MS Access Database to Visual Basic 2008.

Module autoppend
    'OleDbConnection instance takes Connection String as an argument and the value is pass to the Constructor statement.
    Public Function mydb() As OleDb.OleDbConnection
        Return New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
                                         & Application.StartupPath & "\member.accdb;")
 
    End Function
    'pass the value of a connection to con
    Public con As OleDb.OleDbConnection = mydb()
End Module

2. After that, create a procedure of AutoAppend and Autosuggest.

    'procedure of your autoappend and autosugest
    Public Sub autocompletetxt(ByVal sql As String, ByVal txt As TextBox)
        Try
 
            Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(sql, con)
 
            Dim dt As New DataTable
            da.Fill(dt)
 
            Dim r As DataRow
            txt.AutoCompleteCustomSource.Clear()
 
            For Each r In dt.Rows
                txt.AutoCompleteCustomSource.Add(r.Item(0).ToString)
 
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
    End Sub

3.Go back to the Design View and create just like this. 4. Click the TextBox and go to the Properties. Under the Properties click AutoComplete Mode and select Suggest and Append. After that, click AutoComplete Source and select Costume Source. 5. Double click the Form and call the name of the Public Sub of an AutoAppend and AutoSuggest event.
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'declaring sql as string

Dim sql As String

'set your query on the sql string

sql = "SELECT name FROM tblnames"

'call the autocomplete event located in the module.

autocompletetxt(sql, TextBox1)

End Sub

End Class

Now, Press F5 to run your project. Download the complete source code and run it on your computer.

Add new comment

40 views