Koneksi Database Dari Visual Basic Ke Ms Access(1)

PROJECT PERPUSTAKAAN ONE TO MANY

  Langkah pertama yang dilakukan adalah buka aplikasi Ms.Acces disini penulis menbuat di  Acces 2007,Pertama tama buka ms Access 2007 klik Blank Database di kolom file database beri nama perpustakaan.mdb  lalu klik create.Kemudian klik View isi Table Name dengan anggota.

1.Buat Database:perpustakaan.mdb

2.Tabel yang dibutuhkan

a.anggota

Field Name	Data Type	Field Size	Keterangan
kdanggota	Text	5	PK(Primary Key)
nama	Text	30
alamat	Text	40
notlp	Text	12

b.buku

Field Name	Data Type	Field Size	Keterangan
kdbuku	Text	5	PK(Primary Key)
Judul_buku	Text	40
pengarang	Text	30
penerbit	Text	30

c.pinjam

Field Name	Data Type	Field Size	Keterangan
kdanggota	Text	5
Judul_buku	Text	40
Tanggal_pinjam	Text	30
Tanggal_kembali	Text	30
No_pinjam	Text	30	PK(Primary Key)

  DESIGN FORM ANGGOTA


 

Ketentuan Program:

1.       Ketika program dijalankan semua prosedur dalam keadaan nonaktif.

2.       klik Tambah krusor pada posisi Text1/Nama

3.       Kode Anggota akan muncul otomatis.Simpan,Batal,Keluar kondisi True

4.       Nama,Alamat,No Telepon diinput manual

5.       Klik simpan,akan tersimpan di DataBase.Text Box kondisi bersih.Tambah dan Keluar kondisi True

6.       Klik Batal semua Text Box dalam kondisi bersih.

Komponen yang ditambahkan:

1.       MSHFlexigrid 1 buah

    Properties : DataSource       :         adodc1

2.       Adodc 1 buah

Koneksi Adodc

Properties :     name                 :         adodc1
                      Concetion string :         perpustakaan.mdb
                      Recordsource    :         select*from anggota
Pada jendela properties pilih conectionstring
Maka akan tampil jendela Properties sbb:

     

Pilih conection string  -   Build   

 

 Pilih  Microsoft Jet 4.0 OLE DB Provider  -  Next

    Tampil jendela link properties

                       

Pada select or enter a database name klik…(ke folder database perpustakaan.mdb dimana kita menyimpanya,disini penulis menyimpandi drive D - open)

Klik test conection  - ok  - ok
Setelah itu pada jendela properties pilih recordsource
Tampil jendela Properties Pages 
 

                      

                   


Ketikan seperti form diatas: select*from anggota

Listing Program :

Sub bersih()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

End Sub

Sub aktif()

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

Text4.Enabled = True

End Sub

Sub nonaktif()

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

Text4.Enabled = False

End Sub

Private Sub bbatal_Click()

bersih

btambah.Enabled = True

bsimpan.Enabled = False

End Sub

Private Sub bkeluar_Click()

q = MsgBox("Yakin Ingin Keluar Dari Form??", vbQuestion + vbYesNo, Informasi)

If q = vbYes Then

Unload Me

End If

End Sub

Private Sub bsimpan_Click()

With Adodc1.Recordset

.AddNew

.Fields("kdanggota") = Text1.Text

.Fields("nama") = Text2.Text

.Fields("alamat") = Text3.Text

.Fields("notlp") = Text4.Text

.Update

End With

Adodc1.RecordSource = "select*from anggota"

Adodc1.Refresh

nonaktif

Adodc1.Refresh

bersih

bsimpan.Enabled = False

btambah.Enabled = True

bbatal.Enabled = False

End Sub

Private Sub btambah_Click()

Dim urutan As String

Dim hitung As Long

Adodc1.RecordSource = "select*from anggota"

Adodc1.Refresh

If Adodc1.Recordset.RecordCount <= 0 Then

urutan = Adodc1.Recordset.RecordCount + 1

Text1.Text = "P" + Format(Date, "yyyy") + Format(urutan, "000")

Else

Adodc1.Recordset.MoveLast

urutan = Val(Right(Adodc1.Recordset!kdanggota, 3)) + 1

Text1.Text = "P" + Format(Date, "yyyy") + Format(urutan, "000")

End If

aktif

btambah.Enabled = False

bsimpan.Enabled = True

bbatal.Enabled = True

Text2.SetFocus

End Sub

Private Sub form_activate()

bersih

bkeluar.Enabled = True

btambah.Enabled = True

bsimpan.Enabled = False

bbatal.Enabled = False

btambah.SetFocus

End Sub

Semoga bermanfaat,