Trik Cara Menampilkan Data Dari Database Ke Dalam TextBoxt Pada VB.NET

Menampilkan data dari database ke dalam textfield yang berguna saat kita akan mengedit suatu data record dari table yang terdapat pada database. pada contoh tutorial ini saya menggunakan program Visual Basic.NET  2010 dan database Microsoft SQL Server 2000. Kodenya sederhana saja berikut anda bisa lihat dibawah ini:

1. Desainlah form seperti gambar berikut ini :

2. Lalu ketikan kode berikut ini pada form yang barusan anda design

Imports System.Data.OleDb
Public Class Form2
    Public QUERY As String
    Public koneksi As New OleDbConnection
    Public CMD As New OleDbCommand
    Public Reader As OleDbDataReader
    Public serper As String
    Public DTab As New DataTable
    Public Adapter As New OleDbDataAdapter
    Public Sub konek()
        Try
            koneksi.Dispose()
            koneksi.Close()
            serper = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DBABSENSI "
            If koneksi.State = ConnectionState.Closed Then
                koneksi.ConnectionString = serper
                koneksi.Open()
                ' MsgBox("koneksi berhasil", vbInformation, "Sukses")

            End If

        Catch ex As Exception
            MsgBox("Proses tidak bisa dilanjutkan" & vbCrLf & _
                   "Periksa Kembali Host dan Password Atau Nama Database Anda" & vbCrLf & _
                Err.Number & vbCrLf & _
                Err.Description, vbExclamation, "Error Koneksi Gagal..!")

        End Try

    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SQL = "Select * From Pegawai "
        konek()
        DTab = New DataTable
        Adapter = New OleDbDataAdapter(SQL, koneksi)
        Adapter.Fill(DTab)
        Grid.DataSource = DTab
    End Sub


    Private Sub Grid_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Grid.CellContentClick
        txtKdPegawai.Text = Grid.Rows(Grid.CurrentRow.Index).Cells(0).Value

    End Sub

    Private Sub txtKdPegawai_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKdPegawai.TextChanged
        On Error Resume Next
        QUERY = "Select * From Pegawai where NIP='" & Trim(txtKdPegawai.Text) & "'"
        konek()
        CMD = New OleDbCommand(QUERY, koneksi)
        Reader = CMD.ExecuteReader
        Reader.Read()
        txtNama.Text = Reader(1).ToString
        TxtTptLahir.Text = IIf(Reader(2).ToString = "", Now, Reader(2).ToString)
        DtLahir.Value = Reader(3).ToString
        cboKelamin.Text = Reader(4).ToString
        cboAgama.Text = Reader(5).ToString
        txtAlamat.Text = Reader(6).ToString
        txtNoTelp.Text = Reader(7).ToString
        cboJabatan.Text = Reader(9).ToString
        cboStatus.Text = Reader(8)
    End Sub
End Class

Setelah itu jalankan dan hasilnya akan seperti berikut ini

Demikianlah Trik Cara Menampilkan Data Dari Database Ke Dalam TextBoxt Pada VB.NET

Apabila anda kurang paham bisa langsung tinggalkan komentar anda di bawah, cantumkan alamat email anda apabila ingin meminta contoh program pada tutorial ini.