Coding Cari pada VB NET 2010

Kali ini saya akan share sedikit mengenai sintax program searching pada VB NET 2010 :

Baiklah langsung saja...

Coding dibawah ini digunakan untuk pencarian data berdasarkan primary key database,,

- langkah pertama.. buat lah sebuah textbox pada form kemudian tambahkan satu button.

- pada textbox kosongkan text value nya 

- pada button rubah variable name nya dengan nama cari.

klik 2 x button cari lalu copy kan script dibawah ini :

Private Sub Buttoncari_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Call koneksi()

        Dim nomorid = InputBox("masukkan Nomor ID Anggota ")

        Try

            data.Tables(0).PrimaryKey = New DataColumn() {data.Tables(0).Columns("no_id")

}

            Dim row As DataRow

            row = data.Tables(0).Rows.Find(nomorid)

            TextBox1.Text = row("no_id")

            TextBox2.Text = row("nm_anggota")

            TextBox3.Text = row("alamat")

            ComboBox1.Text = row("bulan")

            TextBox4.Text = row("jml_trm")

            TextBox5.Text = row("hrg")

            TextBox6.Text = row("ttl_byr")

            tampil()

        Catch ex As Exception

            MsgBox("data tidak ada/ batal mencari data!! ")

        End Try

        DataGridView1.Refresh()

    End Sub

Untuk row nya bisa teman2 sama kan dengan jumlah row ditabel yang telah teman2 buat didatabase..

bila tidak ada kesalahan pengetikan maka program searching teman2 telah berhasil..

Semoga bisa bermanfaat,,terima kasih atas kunjungannya. wassalam :)