Cara membuat form login Visual Basic 6.0 menggunakan
database Ms Access PLUS simpan data ke database
Bismillahirrohmaanirrohiim
Sudah lama rasanya saya tidak meng-update blog
saya,kebetulan ini tutorial yang di perlukan untuk anak-anak SMK jurusan RPL yg
belum bisa membuat form login Visual
Basic 6.0 menggunakan database Ms Access PLUS simpan data ke database.
Sempat bingung saya melihat scriptnya/coding codingnya ,
dan Alhamdulillah akhirnya bisa dan ngerti walau mungin ini hanya dasar saja
bagi pelajar SMK, ok kita langsung saja bias gak lama !.
Langkah-langkahnya:
1.Buat blank database di Ms access
2. Klik icon folder dan simpan ditempat yg anda
inginkan,sbgai contoh saya,saya simpan dilocal disk C:\ dan berinama folder
baru anda! Terserah!
3.Buka folder yg brusaja anda buat,ubah format database menjadi
format 2000,kemudian OK!
4.kemudian Klik kanan pada table1,pilih design view,simpan
dengan nama pengguna/terserah anda!,dan OK
5.isikan pada field name dengan user dan password,dengan type data
text
6.Kemudian klik kanan pada pengguna/yg tadinya table1,pilih
data sheet view,isikan satunama saja dulu,terserah,saya gunakan nama saya
sendiri saja biar “tereh” klo kata sundanya mah :D wkwkwk,dan Simpan
7.Buka Vb 6.0=>standard exe=>open ,design form1 sesuai
keinginan,komponen yg dibutuhkan,antara lain!
Componen
|
Ubah
|
Text1
|
Kosongkan
|
Text2
|
Kosongkan
|
Command1
|
Masuk
|
Command2
|
Cancel
|
Label1
|
User
|
Label2
|
Password
|
8.tambah form2,dengan cara klik Project => add form =>
form => open
9.tambahkan components
ADO, dan DATA GRID, Project=> components/dengan menekan Ctrl+T
Cari Microsoft ADO Data Control 6.0 (OLDB) dan Microsoft
DataGrid Control 6.0 (OLEDB)
Kemudian OK!
10.tambah komponen yg baru saja ditambah ke kotak genreal,adodc
dan data grid, juga tambahkan text1,text2, command1,label1,label2 ke form2
Components
|
Ubah
|
text1
|
kosongkan
|
text2
|
kosongkan
|
command1
|
simpan
|
label1
|
nama
|
label2
|
kelas
|
Kenapa saya menggunakan Nama dan Kelas,karena agar simpel
aja hahaha,kan Cuma contoh toh?,kira2 seperti ini!
11.Add module,di Project=> Add module =>
open,setelah itu tambahkan References dengan mengklik Project=> References
cari Microsoft ActiveX Data Objects 6.0
Library => OK,
Fungsi dari pada References Microsoft ActiveX Data
Objects 6.0 Library, agar ada code ADODB,jika kita tidak menambahkan ini maka
koneksi database tidak akan terkoneksi
12.Masukan code di bawah ini ke module!
Public
koneksi As New ADODB.Connection
Public
rspengguna As New ADODB.Recordset
Public
rsdatasiswa As ADODB.Recordset
Public
Sub bukadb()
Set
koneksi = New ADODB.Connection
Set
rsdatasiswa = New ADODB.Recordset
Set
rspengguna = New ADODB.Recordset
koneksi.Open "provider=microsoft.jet.oledb.4.0;data
source=" & App.Path & "\database.mdb"
End
Sub
“Sedikit info,tidak ada pemotongan code!, jadi code yang berwarna
merah harus satu baris”
cari form2,dan klik kanan view
code ,kemudian masuk code ini!
Private Sub Form_Activate()
Call bukadb
Adodc1.ConnectionString
= "provider=microsoft.jet.oledb.4.0;data source=" & App.Path
& "\database.mdb"
Adodc1.RecordSource =
"datasiswa"
Adodc1.Refresh
Set DataGrid1.DataSource =
Adodc1
End Sub
Private Sub command1_Click()
Dim sqlsimpan As String
Call bukadb
sqlsimpan =
"insert into datasiswa(Nama,Kelas) values ('" & Text1.Text &
"','" & Text2.Text & "')"
koneksi.Execute sqlsimpan
Form_Activate
End Sub
“Ada Info lagi! buat table baru di database yang anda buat, berinama
tablenya datasiswa,cara pembuatan sama seperti di atas,cuman Field
namenya Nama dan Kelas
saja,Type data Text semua”
13.cari
form1,klik kanan => view code masukan code ini !
Private Sub Command1_Click()
Call bukadb
rspengguna.Open
"select*from pengguna where user='" & Text1.Text & "'And
password='" & Text2.Text & "'", koneksi
If rspengguna.EOF Then
'form2.show
'else
MsgBox "password
salah"
Text1.Text = ""
Text2.Text = ""
text1.setfocus
text1.setfocus
'Unload Me
Else
Form2.Show
End If
End Sub
KLIK SIMPAN DAN LIHAT D BAWAH HSILNYA
