'LOGIN VB DARI DB '

CEEEEKIDOOT...!!!!!

di microsoft access 2003/2007  buat 1 tabel berinama 'tbl_user'

buat username=' '

buat password = ' '

lalu save 

kemudian buat module di vb :

scriptnya : 

Public Conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public StrConnect As String
Public StrSQL As String
Public Sub konek()
StrConnect = "Provider=Microsoft.Jet.OleDB.4.0;Data Source=" + App.Path + "\(nama database yang dibuat).mdb"
If Conn.State = adStateOpen Then
Conn.Close
Set Conn = New ADODB.Connection
Conn.Open StrConnect
Else
Conn.Open StrConnect
End If
End Sub

scriptnya :

buat 2 label

buat 2 textbox

buat 2 commamnd button

beri nama masing masing 

Private Sub cmdlogin_Click()
Call konek
sql = "SELECT * FROM tbl_user WHERE username='" & txtUser.Text & "' and password='" & txtPass.Text & "' and status = '1' "
Set Rs = Conn.Execute(sql)
txtUser.SetFocus
If Not Rs.EOF Then

Unload Me
Form2.Show



Else
MsgBox "Maaf Username dan Password Tidak Sesuai!", vbCritical

End If
End Sub

::::::tas tas koleksi ::::

curhat part1 20-januari-2012

assalamualaikum wr. wb
       sahabat ku yang baik aku ingin bercerita banyak tentang kehidupan ku banyakkkk sekali....
hari ini hari jumat tepatnya dimana aku masih sekolah seperti biasanya namun banyak hal yang aku temui hari ini semua nya berawal dari perkataan seseorang yang aku akan ingat bahwa aku tidak perlu mencari musuh dalam bersosialisasi namun dalam hal ini banyak sekali yang menantang hati dan pikiran ku semua yang aku lakukan serasa begitu tak istimewa bahkan aku berpikir aku masih belum merasa cukup atas yang aku punya dan allah berikan kepada ku namun dalam hal ini aku masih belum mengerti mengapa dan apa yang aku lakukan itu mungkin bingung dalam mencecerna curhatan ku aku pun bingung mengapa aku seperti ini sejak kecil aku bercita cita sebagai pelukis namun seiring berjalannya waktu aku terus berpikir hingga akhirnya dunia melukis aku tinggalkan juga aku beralih menyenangi penjualan yang saat ini aku gemari cita citaku dimasa depan ku ingin sekali mendapatkan uang BUANYAAAAAKK banget dahhhh yang pasti itu bisa ngerubah kehidupan ku dimasa depan.....
inti dalam hari ini aku menanti hari esokk  untuk pengetesan project vb....
to be continued...

IT_TANIUM 'X TI 3'

SAMMI SIMORANGKIR 'KESEDIHANKU'

sepinya hari yang ku lewati
tanpa ada dirimu menemani
sunyi ku rasa dalam hidupku
tak mampu ku tuk melangkah
masih ku ingat indah senyummu
yang selalu membuatku mengenangmu
terbawa aku dalam sedihku
tak sadar kini kau tak di sini
engkau masih yang terindah
indah di dalam hatiku
mengapa kisah kita berakhir
yang seperti ini
masih ku ingat indah senyummu
yang selalu membuatku mengenangmu
terbawa aku dalam sedihku
tak sadar kini kau tak di sini
engkau masih yang terindah
indah di dalam hatiku
mengapa kisah kita berakhir
yang seperti ini
yang seperti ini
engkau masih yang terindah
indah di dalam hatiku
mengapa kisah kita berakhir
yang seperti ini
hampa kini yang ku rasa
menangis pun ku tak mampu
hanya sisa kenangan terindah
dan kesedihanku

FANS RIFKY BALWEEL