Cara Menggunakan Active Report pada VB6

•  Pertama buatlah database dari M.Acces, dan beri nama coba.mdb
• Kemudian buatlah tabel dengan nama tabel mapel dengan 2 field yaitu id_mapel sebagai primary key, mapel dengantipe data sama yaitu text.
•  Lalu isikan beberapa data pada table tersebut (3 sudah cukup).
•   Selanjutnya buka Microsoft Visual Basic lalu plih standart.exe.
• Tekan ctrl+t untuk menambah komponen Datagrid dan Adodc.
• Setelah menekan ctrl+t pilih komponen Microsoft ADO Data Control 6.0 (OLEDB) dan Microsoft Datagrid Control 6.0 (OLEDB)  kemudian apply dan ok.
•  Setelah itu tambahkanlah 3 label, 3 textbox, 2 command, 2 line, 1 adodc dan 1 datagrid pada form.
•  Atur posisi komponen tadi seperti gambar dibawah ini :

• Kemudian ketikkan cooding berikut pada form_load

Dim LokasiDatabase As String

LokasiDatabase = App.Path & "\coba.mdb"

On Error Resume Next

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & LokasiDatabase & ";Persist Security Info=False"

Adodc1.RecordSource = "select * from mapel"

Set DataGrid1.DataSource = Adodc1

•         Kemudian tambahkan ActiveReport1 dengan cara meng-klik kanan pada folder form (pojok kanan atas) kemudian pilih add kemudian pilih Data Dynamics ActiveReports 2.0 , jika tidak ada silakan download disini kemudian install terlebih dahulu.
•          Kemudian ketikkan cooding berikut pada command1 (Cetak) :

Dim strcon As String

Dim strsql As String

Dim lokasidatabase As String

lokasidatabase = App.Path & "\baru.mdb"

On Error Resume Next

strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & lokasidatabase & ""

strsql = "select * from mapel order by id_mapel"

With ActiveReport1

.ado.ConnectionString = strcon

.ado.Source = strsql

.Show

End With

•          Kemudian ketikkan cooding berikut pada command2 (Cari) :

Adodc1.Recordset.Find "mapel='" + Text3.Text + "'", , adSearchForward, 1

If Not Adodc1.Recordset.EOF Then

     Text1.Text = Adodc1.Recordset!id_mapel

     Text2.Text = Adodc1.Recordset!mapel

     Else

     MsgBox "Maaf, Data Tidak Ditemukan!", vbCritical, "Peringatan"

End If

•          Setelah itu bukalah ActiveReportnya, kemudian tambah 4 label, 2 field dan 1 Ado Data Control kemudian atur seperti gambar dibawah ini :

•          Ubahlah name pada Ado Data Control dalam properties menjadi ado.
•          Kemudian klik 2x bagian detail kemudian ketik cooding berikut ini :

With ado.Recordset

    If Not .EOF Then

        Field1.Text = !id_mapel

        Field2.Text = !mapel

    End If

End With

•          Setelah semua selesai, cobalah running (F5) program anda. Anda sudah bisa mencetak data  melalui VB.

Inilah hasilnya :

•          Nb : Data Microsoft Acces (coba.mdb) dan Form serta Project VB diletakkan dalam satu folder yang sama.
•     Jika ingin mendownload program yang sudah jadi klik disini. Jika hasilnya kurang bagus, saya mohom maaf gan.... 

j

Terima kasih, Semoga bermanfaat.