Script Login VB Net (2005/2008)

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..

Read more »