Skip to main content

Posts

Showing posts from February, 2011

Tutorial-03 Membuat List Data

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

Tutorial-02 Membuat Simple DML (Data Manipulation Language) pada VB.Net

Halo semuanya kini kita masuk pada tahap selanjutnya dari posting "Tutorial-01" di bulan desember'10 lalu. silahkan buat Form seperti dibawah ini, namakan dengan USER buka View Code pada Vb.Net anda dan tambahkan pada awal code ketikan ********************************** Imports System.Data Imports System.Data.OleDb ********************************** double click pada form  **********************************  Call MyKoneksi.KONEKSI_DBMS()   Call FIELD_LOCK()   Call CAPITAL()   CmbLEVEL.Items.Clear()   CmbLEVEL.Items.Add("ADMINISTRATOR")   CmbLEVEL.Items.Add("SYSADMIN")   CmbLEVEL.Items.Add("USER") ************************************* pada Class Form USER buat beberapa Private Sub *************************************** Private Sub SEGER()   RSKODE = New OleDb.OleDbDataAdapter("SELECT IDUSER FROM TABEL_USER_SISTEM ORDER BY IDUSER DESC", MyKoneksi.KONEKSI_DBMS)   Try   DATASET_ID.Tables.Clear()   Catch ex As Exception   RSKODE.Fill(DA

CASING BB

This is it what i'm looking for