.

.

Saturday, May 3, 2014

Membuat Pencarian Data Pada TextBox ( Otomatis Menampilkan Data Dari Database Ke Object Di VB.Net )

11:58 AM

Membuat Pencarian Data Pada TextBox ( Otomatis Menampilkan Data Dari Database Ke Object Di VB.Net )


Sebelum melanjutkan membuat pencarian data harap baca terlebih dahulu mengenai :
- Koneksi ke database
- Membuatt database

Bagi yang udah paham langsung aja .




Pada gambar di atas pada textbox ID ADM saya double klik lalu pastikan pada EVENT "TextChanged"

Copas kode di bawah ini :

Try
            Using Conn As New SqlConnection(dinas_penduduukan_pencatatan_sipil.My.Settings.db1ConnectionString)
                Conn.Open()
                Using sql As New SqlClient.SqlCommand("Select * from adm where id_adm='" & TextBox1.Text & "'", Conn)
                    Using dr As SqlClient.SqlDataReader = sql.ExecuteReader()

                        Using dt As New DataTable
                            dt.Load(dr)
                            If dt.Rows.Count <> 1 Then
                                TextBox2.Text = ""
                                TextBox3.Text = ""
                                ComboBox1.Text = ""
                                Button1.Enabled = True
                                Button3.Enabled = False
                                Button4.Enabled = False
                            Else
                                Dim row As DataRow = dt.Rows(0)
                                TextBox2.Text = row(1)
                                ComboBox1.Text = row(2)
                                DateTimePicker1.Value = row(3)
                                TextBox3.Text = row(4)
                                Button1.Enabled = False
                                Button3.Enabled = True
                                Button4.Enabled = False
                            End If
                        End Using
                    End Using
                End Using
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

Terima kasih 
semoga bermanfaat

Written by

We are Creative Blogger Theme Wavers which provides user friendly, effective and easy to use themes. Each support has free and providing HD support screen casting.

0 comments:

Post a Comment

 

© 2013 CYBER_HUNTER. All rights resevered. Designed by Templateism

Back To Top