Koneksi Crystal Report Menggunakan TTX Files

Baca Juga :

Untuk menampilkan laporan khususnya menggunakan Crystal Report 8.0 dalam bahasa pemrograman Visual Basic 6.0 harus terkoneksi dengan database aplikasi, yang sering kita jumpai dalam pengkoneksian tersebut bisa menggunakan ODBC Connector yang terletak pada Control Panel\System and Security\Administrative Tools. Menurut pengalaman admin cara tersebut kurang optimal apalagi jika kita membuat sebuah aplikasi yang bersifat Client-Server tentunya kita akan membuat Connector tersebut disetiap PC Client untuk menghubungkan ke PC Server, akan tetapi jika kita menggunakan sistem koneksi TTX Files, tidak perlu membuat Connector dikarenakan cara ini secara otomatis Crystal Report sudah terkoneksi dengan database baik di PC Client ataupun Server dengan menggunakan TTX Files yang secara otomatis dibuat oleh aplikasi menggunakan function create ttx_files.

Langsung saja masuk ke pembahasan, buka Ms. Visual Basic 6.0 buatlah form dan tambahkan satu buah CommandButton kemudian masuk ke menu Project - References - Microsoft ActiveX Data Objects 2.8 Library ceklis dan klik OK

Koneksi Crystal Report Menggunakan TTX Files

Buatlah Module untuk function TTX Files dan pastekan syntak function dibawah ini

Declare Function CreateFieldDefFile Lib "p2smon.dll" (lpUnk As Object, _
ByVal filename As String, ByVal bOverWriteExistingFile As Long) _
As Long

Selanjutnya buat lagi Module untuk deklarasi koneksi ke database

Public CN As New ADODB.Connection
Public RsMHS As New ADODB.Recordset
Sub Koneksi()
Dim PathDb As String
PathDb = App.Path & "\dbMHS.mdb"
If CN.State Then
CN.Close
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & PathDb & ";" _
& "Persist Security Info=False"
CN.CursorLocation = adUseClient
Else
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & PathDb & ";" _
& "Persist Security Info=False"
CN.CursorLocation = adUseClient
End If
End Sub

Double klik pada Form dan pilih Event Form_Load dan panggil sub koneksi database yang baru kita buat di module, coba RUN/F5 jika tidak ada pesan error berarti form telah terkoneksi dengan database. Selanjutnya Project - Components - Crystal Report Control

Kemudian klik OK. Sekarang kita coba buat terlebih dahulu TTX Files, double klik pada commandbutton diatas dan pastekan syntak ini

Set RsMHS = New ADODB.Recordset
RsMHS.Open "select * from tblsiswa", CN, 1, 3
CreateFieldDefFile RsMHS, App.Path & "\ttxMHS.ttx", 1

Setelah itu RUN/F5 dan klik tombol CommandButton kemudian cek TTX Files dengan nama ttxMHS.ttx sudah terbuat belum, jika sudah terbuat buka aplikasi Crystal Report 8.5 yang telah terinstal pada PC agan.

Setelah aplikasi Crystal Report dibuka ikuti petunjuk seperti gambar dibawah ini

Selanjutnya akan tampil kotak dialog Data Explorer seperti gambar dibawah ini

Pilih menu More Data Sources - Active Data (Field Definitions Only) kemudian ikuti langkah selanjutnya seperti gambar dibawah ini

Langkah selanjutnya kita akan menampilkan field-field yang terhubung menggunakan TTX FIles ke area Report Section Detail

Setelah selesai Save (simpan) usahakan file Report tersebut berada satu folder dengan file-file source code yang kita buat diawal pembahasan tadi. Tambahkan Componen Crystal Report ke dalam form dengan cara double klik kemudian ubah Name nya menjadi CR.

Kemudian double klik kembali pada tombol CommandButton yang telah kita buat diawal tadi dan copas syntak dibawah ini tepat dibawah syntak yang awal tadi.

Set RsMHS = New ADODB.Recordset
RsMHS.Open "select * from tblsiswa", CN, 1, 3
CreateFieldDefFile RsMHS, App.Path & "\ttxMHS.ttx", 1
With CR
.DiscardSavedData = True
.SelectionFormula = ""
.Connect = App.Path & "\ttxMHS.ttx"
.SetTablePrivateData 0, 3, RsMHS
.ReportFileName = App.Path & "\Report1.rpt"
.RetrieveDataFiles
.WindowShowExportBtn = True
.WindowShowPrintSetupBtn = True
.WindowShowSearchBtn = True
.WindowBorderStyle = crptSizable
.WindowState = crptMaximized
.Action = True
End With

Tulisan berwarna biru merupakan syntak yang kita buat diawal kemudian tulisan warna merah merupakan syntak tambahan untuk memanggil report. Untuk tahap akhir coba kita RUN/F5 kemudian klik tombol CommandButton untuk memanggil file Report maka Report akan tampil berisi data-data yang di tabel didalam database.

Semoga artikel Koneksi Crystal Report Menggunakan TTX Files ini dapat bermanfaat dan terima kasih banyak atas kunjungannya.

0 Response to "Koneksi Crystal Report Menggunakan TTX Files"

Post a Comment