Membuat AutoText di TextBox VB.Net

Membuat AutoText di TextBox VB.Net

Membuat AutoText di TextBox VB.Net – Pada kesempatan kali ini saya sebagai Admin dari lebakcyber.net akan sharing bagaimana cara membuat auto text di textbox yang ada di vb.net dimana auto text yang akan ditampilkan diambil dari data yang ada di database mysql.

Karena pada tutorial kali ini data auto text yang akan ditampilkan mengambil nilai dari database mysql, maka sebaiknya jika Anda belum begitu familiar dengan cara membuat database di mysql silahkan melihat tutorial belajar database mysql disini.

Jika Anda sudah familiar atau terbiasa dengan penggunaan database mysql, silahkan buat sebuah database sekolah lalu buat sebuah table baru dengan nama siswa. Lalu masukan datanya seperti pada gambar dibawah ini :

Jika database sekolah dan table siswa sudah dibuat di database mysql, sekarang kita akan membahas bagaimana cara membuat auto text di textbox pada vb.net.

Membuat Auto Text di Textbox Pada VB.Net.

• Buat sebuah project VB.Net baru.
• Langkah pertama adalah membuat sebuah module koneksi antara VB.Net dengan database MySql, jika Anda belum tahu caranya, silahkan lihat dulu tutorial mengenai bagaimana cara membuat module koneksi Antara VB.Net dan Database MySQL disini.
• Jika module koneksi sudah dibuat, silahkan Anda tambahkan sebuah textbox pada project yang baru dibuat tersebut.
• Import data mysql kedalam project dengan perintah seperti berikut :

Imports MySql.Data.MySqlClient

• Buat sebuah subroutine baru denga nama autotext lalu masukan perintah seperti berikut ini :

Private Sub AutoText()

        Call koneksi()

        Dim str As String

        Dim adaptor As New MySqlDataAdapter

        Dim dt = New DataTable

        str = "select NAMA from siswa where NAMA like '% TextBox1.Text %'"

        cmd = New MySqlCommand(str, conn)

        adaptor = New MySqlDataAdapter(cmd)

        dt = New DataTable()



        adaptor.Fill(dt)

        Dim col As New AutoCompleteStringCollection

        For i As Integer = 0 To dt.Rows.Count - 1

            col.Add(dt.Rows(i)("NAMA"))

        Next



        TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource

        TextBox1.AutoCompleteCustomSource = col

        TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest



    End Sub

• Sekarang tinggal Anda panggil sub AutoText tersebut pada saat program di load dengan memasukan perintah seperti berikut ini :

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

        Call AutoText()

    End Sub

• Sekarang silahkan Anda coba jalankan programnya, lalu masukan salah satu nama siswa, nanti sugesti autotext dari nama yang Anda masukan akan ditampilkan.

Berikut ini adalah full code dari cara membuat Auto Text di Textbox VB.Net :

Imports MySql.Data.MySqlClient

Public Class Form1



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

        Call AutoText()

    End Sub



    Private Sub AutoText()

        Call koneksi()

        Dim str As String

        Dim adaptor As New MySqlDataAdapter

        Dim dt = New DataTable

        str = "select NAMA from siswa where NAMA like '% TextBox1.Text%'"

        cmd = New MySqlCommand(str, conn)

        adaptor = New MySqlDataAdapter(cmd)

        dt = New DataTable()



        adaptor.Fill(dt)

        Dim col As New AutoCompleteStringCollection

        For i As Integer = 0 To dt.Rows.Count - 1

            col.Add(dt.Rows(i)("NAMA"))

        Next



        TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource

        TextBox1.AutoCompleteCustomSource = col

        TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest



    End Sub

End Class

Seperti itulah cara bagaimana membuat AutoText di textbox vb.net, semoga tutorial mengenai bagaimana cara membuat autotext di vb.net ini dapat berguna bagi Anda yang sedang membangun sistem informasi dengan VB.Net. Sampai jumpa di tutorial belajar VB.Net Lainnya ya.