Tampilkan postingan dengan label database. Tampilkan semua postingan
Tampilkan postingan dengan label database. Tampilkan semua postingan
Pada artikel sebelumnya, kita telah membuat database access, form1 pada Visual Basic Proyek.
Nah, sekarang kita akan mengisikan form 1 dengan listing program. Klik kanan form tersebut, lalu pilih "view code:
'Pada Form ( Untuk Koneksi Data1 ke database access versi 97 )
Private Sub Form_Load()
Data1.DatabaseName = App.Path + "\dataku.mdb"
Data1.RecordSource = "Mhs"End Sub
'Pada Text1 ( Ingat eventnya Keypress bukan change ) :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
'Pada text 2 :
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub
'Pada text 3 :
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub
'Pada Command1 :
Private Sub Command1_Click()
Data1.Recordset.AddNew
Data1.Recordset("Nim") = Text1.Text
Data1.Recordset("Nama") = Text2.Text
Data1.Recordset("Alamat") = Text3.Text
Data1.Recordset.Update
Command5.Value = True
End Sub
'Pada Command3 :
Private Sub Command3_Click()
Data1.Recordset.Edit
Data1.Recordset("Nim") = Text1.Text
Data1.Recordset("Nama") = Text2.Text
Data1.Recordset("Alamat") = Text3.Text
Data1.Recordset.Update
Command5.Value = True
End Sub
'Pada Command4 :
Private Sub Command4_Click()
Data1.Recordset.MoveFirst
i = 1
j = Data1.Recordset.RecordCount
While i < text =" Data1.Recordset(" text =" Data1.Recordset(" k =" j" i =" (i" i =" i">
'Pada Command5 :
Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
'Pada Command6 :
Private Sub Command6_Click()
Unload Me
End Sub
Nah, sekarang kita akan mengisikan form 1 dengan listing program. Klik kanan form tersebut, lalu pilih "view code:
'Pada Form ( Untuk Koneksi Data1 ke database access versi 97 )
Private Sub Form_Load()
Data1.DatabaseName = App.Path + "\dataku.mdb"
Data1.RecordSource = "Mhs"End Sub
'Pada Text1 ( Ingat eventnya Keypress bukan change ) :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
'Pada text 2 :
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub
'Pada text 3 :
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub
'Pada Command1 :
Private Sub Command1_Click()
Data1.Recordset.AddNew
Data1.Recordset("Nim") = Text1.Text
Data1.Recordset("Nama") = Text2.Text
Data1.Recordset("Alamat") = Text3.Text
Data1.Recordset.Update
Command5.Value = True
End Sub
'Pada Command3 :
Private Sub Command3_Click()
Data1.Recordset.Edit
Data1.Recordset("Nim") = Text1.Text
Data1.Recordset("Nama") = Text2.Text
Data1.Recordset("Alamat") = Text3.Text
Data1.Recordset.Update
Command5.Value = True
End Sub
'Pada Command4 :
Private Sub Command4_Click()
Data1.Recordset.MoveFirst
i = 1
j = Data1.Recordset.RecordCount
While i < text =" Data1.Recordset(" text =" Data1.Recordset(" k =" j" i =" (i" i =" i">
'Pada Command5 :
Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
'Pada Command6 :
Private Sub Command6_Click()
Unload Me
End Sub
Selamat menjalankan program....!!Baca juga artikel menarik ini: Harga Jual Blackberry IPhone Laptop Murah
Blackbery
Iphone
Solusi Forum Komunitas Online Indonesia Thumblr
Spesifikasi iPHONE
HiPhone, hasil Kloningan iPhone
HiPhone dan Smart Phone Cina
Solusi Forum Komunitas Online Indonesia
Produk Unggulan BlackBerry
Model Blackberry
Kontroversi Blackberry
Harga Serba Murah Jual Blackberry IPhone
Harga Serba Murah Jual Blackberry IPhone
Kecil Jadi Kawan, Besar Jadi Lawan
Mohon dukungannya yach....!!
:)
A. Koneksi Database.
Sebagai Latihan awal, buatlah database di Ms.Access Simpan di
D:\nama_nim\data1.mdb. Buatlah table dengan nama MHS sebagai berikut :
Kemudian jika perlu, isi field-filed pada NIM, Nama dan Alamat sebagai contoh.
Save, kemudian, lihat versi office anda, jika bukan versi 1997 ( office 2000 atau XP ),
maka konversikan ke 1997 format, caranya :
Sebagai Latihan awal, buatlah database di Ms.Access Simpan di
D:\nama_nim\data1.mdb. Buatlah table dengan nama MHS sebagai berikut :
Kemudian jika perlu, isi field-filed pada NIM, Nama dan Alamat sebagai contoh.
Save, kemudian, lihat versi office anda, jika bukan versi 1997 ( office 2000 atau XP ),
maka konversikan ke 1997 format, caranya :
- Klik Tools, Database utilities, Convert database, to Access 97 format.
- Simpan di folder yang sama, beri nama dataku.mdb, klik ok, kini tersedia
database dengan nama dataku dengan Ms.Access versi 97.
Keluar dari Ms.access.
Bekerja dengan Microsoft Visual Basic 6.0.(VB).
Langkah – Langkahnya :
- Masukkan Komponen Label,Text,Command, Data, dan DBGrid, ke dalam
Form aktif/ form kerja kita,namun, kadangkala DB Grid tidak otomatis ada,
maka kita menambah komponen dengan cara klik kanan toolbox, klikComponents :
- Pilih Microsoft Databound Grid Control 5.0 (SP3), Klik Apply,klik close.
- Sekarang buat tampilan sebagai berikut dengan objektext,label,command,data, dan DB Grid :
- Set propertinya sebagai berikut :
- Simpan form & Projectnya di folder tempat anda menyimpan database.
- Cara memasukkan script adalah double click pada objeknya, berikut listing /
script programingnya :
bersambung....... (part 2)
Baca juga artikel menarik ini: Harga Jual Blackberry IPhone Laptop Murah
Blackbery
Iphone
Solusi Forum Komunitas Online Indonesia Thumblr
Spesifikasi iPHONE
HiPhone, hasil Kloningan iPhone
HiPhone dan Smart Phone Cina
Solusi Forum Komunitas Online Indonesia
Produk Unggulan BlackBerry
Model Blackberry
Kontroversi Blackberry
Harga Serba Murah Jual Blackberry IPhone
Harga Serba Murah Jual Blackberry IPhone
Kecil Jadi Kawan, Besar Jadi Lawan
Mohon dukungannya yach....!!
:)
