Masih menggunakan form yang sama dengan Tutorial-01 namun dengan adanya Tutorial-02 data pada List sudah bisa di input paling tidak dengan ilustrasi data seperti dibawah ini Public Class APLIKASI Inherits System.Windows.Forms.Form Dim DABARANG As OleDb.OleDbDataAdapter Private Sub APLIKASI_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated DABARANG = New OleDb.OleDbDataAdapter("SELECT IDUSER,USERNAME,PASSWORD,AUTHENTIFIKASI" & _ " FROM TABEL_USER_SISTEM", MyKoneksi.KONEKSI_DBMS) Dim DTBARANG As New DataTable DTBARANG.Clear() DABARANG.Fill(DTBARANG) Me.GRIDUSER.DataSource = DTBARANG Me.GRIDUSER.ReadOnly = True End Sub ************************************************************************ Private Sub GRIDUSER_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles GRIDUSER.DoubleClick USER.TxtIDUSER.Text = GRIDUSER.Item(0, GRIDUSE...
Media Berbagi Untuk Dunia Pemrograman VB.Net Dan C# Indonesia