Membaca Data Tabel Kedalam Text ( Visual Studio, VB.Net)

Kalau sebelumnya kita membahasnya di visual basic(lihat disini) sekarang kita beralih ke VB.Net dengan judul yang sama yaitu Membaca data tabel kedalam text

langsung saja deh dengan project baru di visual studio 2008 nya,,
siapkan 1 buah form,  3 textbox dan 3 label (atau disesuaikan dengan kebutuhan kalian membuat aplikasi)

berikut adalah codingnya :

Imports System.Data

Imports System.Data.SqlClient

Public Class frmread

‘--------------------------------------------------------------

    Public cmd2 As New SqlCommand

    Public baca2 As SqlDataReader

    Public connn As New SqlConnection

‘-----------------------------------------------------------------

    Private Sub tx_id_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tx_id.KeyPress

        Call konek2()

        If e.KeyChar = Chr(13) Then

            cmd2 = New SqlCommand("select * from TBOPERATOR where ID_OPERATOR ='" & tx_id.Text & "'", connn)

            cmd2.Connection = connn

            baca2 = cmd2.ExecuteReader

            baca2.Read()

            If Not baca2.HasRows Then

                MsgBox(" Id Operator Tidak ditemukan silahkan hubungi administrator")

            Else

                tx_nama.Text = baca2.Item(1)

                tx_alamat.Text = baca2.Item(2)

            End If

        End If

    End Sub

‘------------------------------------------------------------------

    Sub konek2()

        koneksi = "Data Source=SERVER-2008;Initial Catalog=DBWEAVING;Integrated Security=true"

        connn = New SqlConnection(koneksi)

        connn.Open()

    End Sub

End Class

(*) untuk koneksinya silahkan ganti sesuai dengan kebutuhan kalian

jika ada yang error dan tidak mengerti silahkan tinggalkan komentar

--selamat mencoba---