MEMBUAT APLIKASI DATABASE DI VB 6.0 DENGAN MENGGUNAKAN ADODC & DATAGRID

langkah - langkah untuk pembuatan aplikasi tersebut.

pertama buat gambar seperti ini:

 

Object-object yang di gunakan:

-Label

-TextBox

-CommandBotton

-DataGrid

-ADODC

Untuk pengaturan propertisnya bisa anda ikuti petunjuk di bawah ini:

Object	Propertis	Nama
Label1	Name Caption	Label1 Kode_jurusan
Label2	Name Caption	Label2 Nama_jurusan
Text1	Name Caption	Txt_kd_jur Kd_jur
Command1	Name Caption	Cmd_tambah &tambah
Command2	Name Caption	Cmd_ubah &ubah
Command3	Name Caption	Cmd_hapus &hapus
Command4	Name Caption	Cmd_keluar &keluar

untuk object ADODC berbeda dengan di atas, ikuti gambar berikut:

 

lalu klik build akan muncul seperti di bawah ini:

pada connection kita masukkan file database yang pernah kita buat sebelumnya, jika belum melihat artikel sebelumnya klik disini ,.

lalu pada provider kita pilih microsoft jet 3.51OLE DB Provider, lalu klik ok.

selanjutnya klik kanan pada area datagrid dan klik retrieve fields...

lalu masukkan codinganya:
Private Sub normal()

cmd_tambah.Caption = "&tambah"
cmd_ubah.Caption = "&ubah"
cmd_hapus.Caption = "&hapus"
cmd_keluar.Caption = "&keluar"
cmd_tambah.Enabled = True
cmd_ubah.Enabled = True
cmd_hapus.Enabled = True

End Sub
Private Sub bersih()

txt_kd_jur = ""
txt_nm_jur = ""
txt_kd_jur.SetFocus

End Sub


Private Sub cmd_hapus_Click()
If cmd_hapus.Caption = "&hapus" Then
Call bersih
cmd_hapus.Caption = "&oke"
cmd_tambah.Enabled = False
cmd_ubah.Enabled = False
cmd_keluar.Caption = "&batal"
   Else
Adodc2.RecordSource = "select* from jurusan where kdjur ='" & Trim(txt_kd_jur) & "'"
   Adodc2.Refresh
   Adodc1.Recordset.Delete
  'Adodc1.Refresh
   DataGrid1.Refresh
   End If


End Sub

Private Sub cmd_keluar_Click()
If cmd_keluar.Caption = "&keluar" Then
Unload Me
Else
Call bersih
Call normal

End If
End Sub

Private Sub cmd_tambah_Click()
If cmd_tambah.Caption = "&tambah" Then
Call bersih
cmd_tambah.Caption = "&simpan"
cmd_ubah.Enabled = False
cmd_hapus.Enabled = False
cmd_keluar.Caption = "&batal"
   Else
   Adodc1.Recordset.AddNew
   Adodc1.Recordset("kdjur") = Trim(txt_kd_jur.Text)
   Adodc1.Recordset("nmjur") = Trim(txt_nm_jur.Text)
   Adodc1.Recordset.Update
   Adodc1.Refresh
   DataGrid1.Refresh
   Adodc1.Refresh
   DataGrid1.Refresh
End If

Call bersih
End Sub

Private Sub cmd_ubah_Click()
If cmd_ubah.Caption = "&ubah" Then
Call bersih
cmd_ubah.Caption = "&simpan"
cmd_tambah.Enabled = False
cmd_hapus.Enabled = False
cmd_keluar.Caption = "&batal"
   Else
   Adodc2.RecordSource = "select* from jurusan where kode_jurusan ='" & Trim(txt_kdjur) & "'"
   'Adodc2.Refresh
  Adodc1.Recordset("nmjur") = Trim(txt_nm_jur)
  Adodc1.Recordset.Update
  Adodc1.Refresh
  Adodc1.Refresh
  DataGrid1.Refresh
  End If
End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;User ID=admin;Data Source=D:\ROJAK_VB\akademik.mdb"
Adodc1.RecordSource = "select * from jurusan"
Adodc1.Refresh
DataGrid1.Refresh
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;User ID=admin;Data Source=D:\ROJAK_VB\akademik.mdb"
Adodc2.RecordSource = "Select *from Jurusan"
Adodc2.Refresh

End Sub

Private Sub Text1_Change()

End Sub

Private Sub txt_kd_jur_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;User ID=admin;Data Source=D:\ROJAK_VB\akademik.mdb"
Adodc2.RecordSource = "Select *from Jurusan where Kode_Jurusan = '" & Trim(txt_kdjur.Text) & "'"
Adodc2.Refresh

If Not Adodc2.Recordset.EOF Then
    If Command1.Caption = "&Simpan" Then
        MsgBox "Data sudah ada"
        Text1.SetFocus
Else
        Text2.Text = Adodc2.Recordset("Nama_Jurusan")
        Text2.SetFocus
    End If
Else
    If Command1.Caption = "&Simpan" Then
        Text2.SetFocus
    Else
        MsgBox "Data sudah ada"
        Text1.SetFocus
        End If
End If
End If

End Sub


selanjutnta kita run:

 

kita klik tambah akan muncul , tombol tambah jadi simpan, tombol keluar jadi batal, tombol ubah dan hapus menjdai tidak aktiv, dan kita input datanya kemudian klik simpan

kita klik ubah tombol ubah berubah jadi simpan , tombol keluar jadi batal dan tombol tambah dan hapus menjadi tidak aktiv

kita ubah datanya

 kita klik hapus maka yang terjadi tombol hapus berubah jadi oke tombol keluar menjadi batal n tombol tambah dan ubah menjadi tidak aktif.

lulu klik kode yang akan kita hapus

lalu klik ok, maka akan terhapus kode jurusan dan nama jurusannya,,

Selanjutnya kita klik keluar , maka akan keluar dari aplikasi dan kembali ke windows.

Okeehh..
selamat mencoba…

MEMBUAT APLIKASI DATABASE DENGAN MENGGUNAKAN VB 6.0

langkah - langkah untuk pembuatan aplikasi tersebut.

pertama buat gambar seperti ini:

untuk DBGRID kita mesti menambahkannya..
caranya:
a.klik kannan pada area object,
b.kllik components..
c.pilih microsoft data bound grid 5.0(SP3)
setelah itu klik ok.

selanjutnya kita membuat databasenya.

klik add_ins atau bisa dengan menekan alt+a lalu pilih visual data manager , selanjutnta kllik file, new, microsoft acces dan version 7MDB
lihat gambar di bawah ini:









kita save pada data kita selain d C..
klik kanan pada properties, lalu klik new table..

                                                                            


kita isikan data base nya..
table name : jurusan

klik add field
name= kode jurusan
klik ok
name = nama_jurusan
klik ok
klik close
klik build the table

selanjut nya kita rubah pada

 

sekarang kita masukin coding nya :

Private Sub cmd_hapus_Click()
If cmd_hapus.Caption = "hapus" Then
bersih
cmd_hapus.Caption = "simpan"
cmd_tambah.Enabled = False
cmd_ubah.Enabled = False
cmd_keluar.Caption = "batal"
Else
Data2.RecordSource = "select*from jurusan where kode_jurusan='" & Trim(txt_kd_jur) & "'"
'data2.Refresh
Data1.Recordset.Delete
Data1.Refresh
DBGrid1.Refresh
bersih
normal
End If
End Sub

Private Sub cmd_keluar_Click()
If cmd_keluar.Caption = "keluar" Then
Unload Me
Else
bersih
normal
End If
End Sub

Private Sub cmd_tambah_Click()
If cmd_tambah.Caption = "tambah" Then
bersih
cmd_tambah.Caption = "simpan"
cmd_ubah.Enabled = False
cmd_hapus.Enabled = False
cmd_keluar.Caption = "batal"
Else
Data1.Recordset.AddNew
Data1.Recordset("kode_jurusan") = Trim(txt_kd_jur.Text)
Data1.Recordset("nama_jurusan") = Trim(txt_nm_jur.Text)
Data1.Recordset.Update
Data1.Refresh
DBGrid1.Refresh
bersih
normal
End If
End Sub

Private Sub cmd_ubah_Click()
If cmd_ubah.Caption = "ubah" Then
bersih
cmd_ubah.Caption = "simpan"
cmd_tambah.Enabled = False
cmd_hapus.Enabled = False
cmd_keluar.Caption = "batal"
Else
Data2.RecordSource = "select*from jurusan where kd_jur='" & Trim(txt_kd_jur.Text) & "'"
'Data2.Refresh
Data1.Recordset.Edit
Data1.Recordset("nama_jurusan") = Trim(txt_nm_jur.Text)
Data1.Recordset.Update
Data1.Refresh
DBGrid1.Refresh
bersih
normal
End If
End Sub

Private Sub form_load()
txt_kd_jur = ""
txt_nm_jur = ""
End Sub

Private Sub bersih()
txt_kd_jur.SetFocus
txt_kd_jur.Text = ""
txt_nm_jur.Text = ""

End Sub


Private Sub normal()
cmd_tambah.Caption = "tambah"
cmd_ubah.Caption = "ubah"
cmd_hapus.Caption = "hapus"
cmd_keluar.Caption = "keluar"
cmd_tambah.Enabled = True
cmd_ubah.Enabled = True
cmd_hapus.Enabled = True
End Sub

coba kita run

klik tambah , tambah berubah jadi simpan , ubah dan hapus berubah menjadi tidak aktiv, keluar berubah jadi batal

lalu lita input

setelah kita input dan simpan tombol kembali normal.

kita klik ubah, ubah berubah jadi simpan , keluar jadi batal, tambah dan hapus menjadi tidak aktiv.

kita klik batal tombol kembali normal..
kita klik hapus, hapus jadi simpan, keluar jadi batal dan tambah n ubah tidak aktiv..

jika kita klik keluar maka selesai aplikasinya..

selamat mencoba

LOOPING

Looping dengan menggunakan dengan "DO WHILE".....
Seperti biasa pertama kita masuk ke dalam  microsoft visual basic 6.0..
kemudian buat seperti gambar di bawah:

lalu edit captionnya, seperti :

terus edit jga back colornya jadinya kaya gini :

lalu masukin deh coding nya :
"Private Sub Command1_Click()
n = Val(Text1)
Do While i <= n
If i Mod 2 = 0 Then
List1.AddItem 1
Else
List1.AddItem -1
End If
i = i + 1

Private Sub Command2_Click()
Dim i, n As Integer
i = 1
a = 2
n = Val(Text2)
Do While i <= n
If i Mod 2 = 0 Then
List2.AddItem -a
Else
List2.AddItem a

End If
i = i + 1
a = a + 2
Loop
End Sub


Private Sub Command3_Click()
Dim a As Integer
a = 1
i = 1
n = Val(Text3)
Do While i <= n
List3.AddItem a
If a = 2 Then
a = 3
Else
a = a + 3
i = i + 1
End If

Loop

End Sub




Private Sub Command4_Click()
i = 1
a = 2
n = Val(Text4)
Do While i <= n
List4.AddItem a
a = a * a
i = i + 1
Loop
End Sub"





Terus play hasil nya kaya gini:

okey...
selamat mencoba..
(",)..