Vb.net

Biasanya kalo kita mengakses sebuah program database, kita akan dipertanyakan password untuk memasuki program tersebut. Berikut ini cara membuatnya.

1. Buka program SQL Server, dan aktifkan database Northwind. Buat sebuah tabel baru ke dalam database tersebut, dengan nama tbl_user. Tabel ini mempunyai tiga kolom (field) yaitu ID, Nama dan Password. Isikan dua buah data berikut.

data1: user01, Rudy, Rudy01

data2: user02, Fenny, Fenny02

2. Buat sebuah aplikasi baru di VB dan tambahkan dua textbox bernama: txt_id dan txt_pwd dan dua buah button: bt_ok dan bt_btl. Di bagian atas kode (setelah private sub form..) ketikkan kode berikut.

dim koneksi as sqlclient.sqlconnection

dim co as sqlclient.sqlcommand

dim bd as bindingsource

3. Masukkan sebuah fungsi untuk membuka database.

sub koneksikan ()

koneksi=new sqlclient.sqlconnection

koneksi.connectionstring=”data source=.; initial catalog=customers; integrated security=true”

koneksi.open

end sub

4. Klik ganda bt_ok, dan isikan kode berikut

koneksikan

co=new sqlclient.sqlcommand

co.connection=koneksi

co.commandtext=”Select * from tbl_user where ID=’” & me.txt_id.text & “‘” & “and password = ‘” & me.txt_pwd.text & “‘”

co.commandtype=commandtype.text

bd.datasource=co.executereader

if bd.count > 0 then

msgbox “OK, login berhasil, dan silakan masuk..”

else

msgbox “Maaf, password salah..”

endif

koneksi.close

5. Klik ganda bt_btl, dan masukkan kode berikut..

unload me

6. Save project dan jalankan program. Semoga sukses ya..