Contoh Koneksi Database Menggunakan Teknologi ADO

Berikut ini adalah contoh program olah data Mahasiswa dengan menggunakan koneksi data ADODB. Atur Form seperti pada gambar.

  • NIM akan diinput secara otomatis berdasarkan Program Studi, Jenjang, Tahun Masuk dan urutan mahasiswa saat daftar ulang.
  • Jenjang Sarjana menawarkan dua program studi yaitu : Sistem Informasi dan teknik Informatika. Jenjang Diploma 3 menawarkan dua program studi yaitu : Manajemen Informatika dan Teknik Komputer.
  • Kita akan menggunakan MSFlexGrid untuk menampilkan data. Cara menambahkan project MSFlexGrid : Pilih menu Project ambil Components, Pilih Microsoft FlexGrid Control 6.0 kemudian Klik OK

Ketik kode program berikut :

Koneksi Database dengan menggunakan Module. Ketik kode program koneksi database berikut pada Module

Public Con As ADODB.Connection

Public rsMahasiswa As ADODB.Recordset

Public Sub OpenConnection()

    Set Con = New ADODB.Connection

    Con.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;” & _

           “Data Source=” & App.Path & “\dbAkademik.mdb;” & _

           “Persist Security Info=False”

    Con.CursorLocation = adUseClient

    Con.Open

End Sub

 

Kode Program pada bagian General Declaration

Dim tombol As String

 

Kode program di Form_Load

Private Sub Form_Load()

OpenConnection ‘Memanggil koneksi database dari Module

‘Mengkoneksikan rsMahasiswa ke tabel tabel Mahasiswa

Set rsMahasiswa = New ADODB.Recordset

rsMahasiswa.Open “Select * From Mahasiswa”, Con, adOpenStatic, adLockOptimistic

‘Memanggil sub TampilData

‘Digunakan untuk menampilkan data di Grid

TampilData

End Sub

 

Kode program untuk mengatur Grid

Sub AturGrid()

    Grid.Rows = 1

    Grid.Cols = 5

    Grid.ColWidth(0) = 500

    Grid.ColWidth(1) = 1000

    Grid.ColWidth(2) = 2000

    Grid.ColWidth(3) = 2000

    Grid.ColWidth(4) = 2000

    Grid.TextMatrix(0, 0) = “No”

    Grid.TextMatrix(0, 1) = “NIM”

    Grid.TextMatrix(0, 2) = “Nama”

    Grid.TextMatrix(0, 3) = “Alamat”

    Grid.TextMatrix(0, 4) = “Program Studi”

End Sub

 

Kode program untuk menampilkan data di Grid

Sub TulisData()

Dim i As Integer

    i = 0

    Do While Not rsMahasiswa.EOF

        i = i + 1

        Grid.AddItem (i & vbTab & rsMahasiswa(0) & vbTab & _

        rsMahasiswa(1) & vbTab & rsMahasiswa(2) & vbTab & _

        rsMahasiswa(3))

        rsMahasiswa.MoveNext

    Loop

End Sub

Sub TampilData()

Set rsMahasiswa = New ADODB.Recordset

rsMahasiswa.Open “Select * From Mahasiswa ” & _

“Order By NIM”, Con, adOpenStatic, adLockOptimistic

AturGrid

TulisData

End Sub

 

Kode program Sub Rutin

Sub kosong()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Combo1.Text = “”

End Sub

Sub siap()

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

Combo1.Enabled = True

End Sub

Sub tdksiap()

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

Combo1.Enabled = False

End Sub

 

Kode program Form Activate

Private Sub Form_Activate()

kosong

tdksiap

batal.Enabled = False

simpan.Enabled = False

tambah.SetFocus

End Sub

 

Kode program Tombol Tambah

Private Sub tambah_Click()

tombol = “TAMBAH”

siap

kosong

Text1.SetFocus

batal.Enabled = True

simpan.Enabled = True

tambah.Enabled = False

keluar.Enabled = False

ubah.Enabled = False

hapus.Enabled = False

End Sub

Kode program Tombol Simpan

Private Sub simpan_Click()

If tombol = “UBAH” Then

Set rsMahasiswa = New ADODB.Recordset

    rsMahasiswa.Open “Select * From Mahasiswa where NIM = ‘” & Text1.Text & “‘”, Con, adOpenStatic, adLockOptimistic

    With rsMahasiswa

       !NIM = Text1.Text

        !prodi = Combo1.Text

        !nama = Text2.Text

        !alamat = Text3.Text

        .Update

    End With

End If

If tombol = “TAMBAH” Then

Set rsMahasiswa = New ADODB.Recordset

    rsMahasiswa.Open “Select * From Mahasiswa”, Con, adOpenStatic, adLockOptimistic

    With rsMahasiswa

        .AddNew ‘Menambahkan data baru

        !NIM = Text1.Text

        !prodi = Combo1.Text

        !nama = Text2.Text

        !alamat = Text3.Text

        .Update

    End With

End If

kosong

tdksiap

simpan.Enabled = False

batal.Enabled = False

tambah.Enabled = True

keluar.Enabled = True

ubah.Enabled = True

hapus.Enabled = True

TampilData

End Sub

Kode Program Tombol Batal

Private Sub batal_Click()

kosong

tdksiap

batal.Enabled = False

simpan.Enabled = False

keluar.Enabled = True

tambah.Enabled = True

ubah.Enabled = True

hapus.Enabled = True

tambah.SetFocus

End Sub

 

Kode Program Tombol Ubah

Private Sub ubah_Click()

tombol = “UBAH”

siap

Text1.SetFocus

End Sub

Kode Program Tombol Hapus

Private Sub hapus_Click()

tombol = “HAPUS”

siap

Text1.SetFocus

End Sub

 

Kode  Program Tombol Keluar

Private Sub keluar_Click()

Unload Me

End Sub

 

Kode Program Text1 Keypress

Private Sub Text1_KeyPress(KeyAscii As Integer)

Set rsMahasiswa = New ADODB.Recordset

rsMahasiswa.Open “Select * From Mahasiswa Where NIM = ‘” & Text1.Text & “‘”, Con, adOpenStatic, adLockOptimistic

If KeyAscii = 13 Then  ‘Jika ditekan Enter

With rsMahasiswa

 

Kode Tombol Ubah

If tombol = “UBAH” Then

        If .EOF Then

         MsgBox “NIM ” & Text1.Text & ” belum ada”

         Text1.SetFocus

        Else

        Text2.SetFocus

         Text2.Text = !nama

         Text3.Text = !alamat

         Combo1.Text = !prodi

        End If

    ElseIf tombol = “HAPUS” Then

        If .EOF Then

         MsgBox “NIM ” & Text1.Text & ” belum ada”

         Text1.SetFocus

        Else

         Text2.Text = !nama

         Text3.Text = !alamat

         Combo1.Text = !prodi

         pesan = MsgBox(“Apakah Anda yakin menghapus NIM ” & _

                Text1.Text & ” ?”, vbYesNo, “Hapus Data”)

        If pesan = vbYes Then

            Set rsMahasiswa = New ADODB.Recordset

            rsMahasiswa.Open “Select * From Mahasiswa where NIM = ‘” & Text1.Text & “‘”, Con, adOpenStatic, adLockOptimistic

            rsMahasiswa.Delete

        End If

        End If

    End If

End With

TampilData

End If

‘hanya boleh diisi angka atau backspace

If Not (KeyAscii >= Asc(“0”) And KeyAscii <= Asc(“9”) Or KeyAscii = vbKeyBack) Then

Beep

KeyAscii = 0

End If

End Sub

Print Friendly, PDF & Email
Hari

Written by 

admin "Ilmu Itu Tak Ada Yang Tak Bermanfaat"

Leave a Reply

Your email address will not be published.