simple report menggunakan data environment visual basic 6

Biasanya programmer Visual Basic 6 membuat laporan menggunakan third party software seperti Crystal Report, tapi visual basic sendiri menyediakan data environment & data report untuk membuat laporan. Salah satu kelebihan data report adalah tidak perlu repot menginstal crystal report. Pertama dibuat dulu databasenya di Microsoft Access, minimal Access 2003 karena disini saya menggunakan koneksi ADODB yang hanya membaca database Access 2003 keatas. Kalo sudah dibuat database tentunya membuat tabelnya yaitu tabel Barang & tabel Merk

Kode barangnya jangan lupa dijadikan "primary key"

 buat koneksi nya dulu biar asoy (halah), disini ane membuat dengan full coding alias ADODB. Pertama  klik Project dari menubar lalu pilih references setelah itu klik checkbox Microsoft ActiveX Data Objects 2.0 Library. kalo sudah kelar tinggal dibuat codingnya. add module dari menu bar lalu isi coding dibawah ini

Option Explicit
Public koneksi As ADODB.Connection


Public rsBarang As ADODB.Recordset
Public RsLaporan As ADODB.Recordset

Public Sub bukaDatabase()
 
    Set koneksi = New ADODB.Connection
    koneksi.CursorLocation = adUseClient
   
koneksi.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\alton.mdb"
koneksi.Open

   
  
End Sub

lalu buat data environment nya dari toolbar

setelah data environment muncul lalu di klik untuk menentukan koneksinya, akan muncul connection1 & bisa kita rename, terus diklik kanan pada tab provide pilih Microsoft jet 4.0 OLE DB, untuk memilih database klik tombol disamping teks select or enter database lalu pilih database yang telah dibuat klik test connection, kalau berhasil siap ke tahap berikutnya. klik kanan pada koneksi nya lalu pilih add command, lalu klik kanan pada add command pilih properties, pilih SQL Statement.

untuk mempermudah relasi antar tabel, klik SQL Builder karena disini hanya drag & drop tabel dari data view & bisa langsung direlasikan. Setelah selesai lalu tambahkan data report baru dari toolbar, lalu drag & drop command yang telah dibuat di data environment & lalu atur layout reportnya.

jangan lupa pada properties data report data member & data source nya di klik sesuai dengan nama data environment nya setelah itu masuk ke coding nya, untuk menentukan perintahnya bisa dari button atau menubar tinggal ditambahin codingnya ajah.

 bukaDatabase
   Set RsLaporan = New ADODB.Recordset
   
    sql = ""
    sql = "SELECT Barang.Kd_barang, Merk.nama_merk, Barang.Pricelist, Barang.Stock FROM Barang, Merk WHERE Barang.kd_merk = Merk.kd_merk"
   
  
    Set RsLaporan = koneksi.Execute(sql)
    If RsLaporan.BOF Then
      MsgBox "data tidak ada"
    Else
    DataEnvironment1.Commands(1).CommandText = sql
    With Laporan_barang
  
    .Refresh
    .WindowState = 2
    .Show

    End With

    End If

walaupun tidak selengkap fasilitas dari Crystal Report tapi data report ini cukup baik untuk membuat report dengan relasi tabel yang njelimet.