Koneksi CRViewer Menggunakan ttxFiles Pada Visual Basic 6.0 MySQL Server

#Coding Pembuatan Database

CREATE DATABASE `dbbelajar`

CHARACTER SET 'latin1'

COLLATE 'latin1_swedish_ci';

#Coding Pembuatan Tabel

CREATE TABLE `tbladm` (

`KodeAdmin` varchar(25) NOT NULL default '-',

`NamaAdmin` varchar(35) default '-',

`NominalAdmin` int(11) default '0',

`GroupKelas` varchar(3) default '-',

`ID` int(11) NOT NULL auto_increment,

PRIMARY KEY (`ID`)

) ENGINE=MyISAM DEFAULT CHARSET=latin1;

Untuk selanjutnya tabel yang telah kita buat diatas kita inputkan dengan beberapa record dan dengan coding dibawah ini

INSERT INTO `tbladm` (`KodeAdmin`, `NamaAdmin`, `NominalAdmin`, `GroupKelas`, `ID`) VALUES

('O1','KOMITE',1500000,'I',1),

('02','KOMITE',1500000,'II',2),

('03','KOMITE',1500000,'III',4),

('04','BANGUNAN',1000000,'I',5),

('05','BANGUNAN',1000000,'II',6),

('06','BANGUNAN',1000000,'III',7),

('07','AWAL TAHUN',500000,'I',8),

('08','AKHIR TAHUN',700000,'III',9);

Setelah selesai kita lanjut, buka Visual Basic 6.0 dan jangan lupa jalankan sebagai administrator (Run As Administrator)

Koneksi CRViewer Menggunakan ttxFiles Pada Visual Basic 6.0 MySQL Server

Setelah itu pilih Standard EXE seperti gambar dibawah ini

Setelah form tampil dilanjutkan pilih menu Project - References maka akan tampil kotak dialog berisi komponen-komponen yang akan digunakan untuk mengkoneksikan database MySQL Server dan CRViewer, cari dan pilih samakan seperti gambar dibawah ini

Jika telah selesai, sekarang kita lanjutkan buatlah sebuah module pada Visual Basic 6.0 (VB6) dengan nama sesuai selera sahabat all-vb6, untuk saat ini admin beri nama modcn dan copykan coding koneksi ke database dibawah ini,

#Coding Koneksi ke Database MySQL Server

Public CN As New ADODB.Connection

Public cAdm As New ADODB.Recordset

Sub Koneksi()

Dim NServer, NUser, nPass, NDatabase As String

NServer = "localhost"

NUser = "root"

nPass = ""

NDatabase = "dbbelajar"

On Error GoTo ErrKoneksi

CN.CommandTimeout = 0

If CN.State Then

CN.Close

CN.CursorLocation = adUseClient

CN.Open "DRIVER={MySQL ODBC 5.3 ANSI Driver};" & _

"SERVER=" & NServer & " ;Port=3306;DATABASE=" & NDatabase & ";" & _

"UID=" & NUser & ";PWD=" & nPass & ";OPTION=3"

Else

CN.CursorLocation = adUseClient

CN.Open "DRIVER={MySQL ODBC 5.3 ANSI Driver};" & _

"SERVER=" & NServer & " ;Port=3306;DATABASE=" & NDatabase & ";" & _

"UID=" & NUser & ";PWD=" & nPass & ";OPTION=3"

End If

Form1.Show

Exit Sub

ErrKoneksi:

MsgBox "Koneksi database Error.. " & vbCr & vbCr & _

Err.Description & Err.Number, vbCritical, "Error Koneksi Database"

End

End Sub

Untuk mencoba coding koneksi database tersebut diatas, double klik pada form yang telah kita buat diawal tadi dan pilih prosedur Form_Load(), seperti gambar dibawah ini

Buat satu buah module lagi untuk mendeklarasikan function pembuatan ttxfiles secara otomatis dengan nama module menurut selera sahabat all-vb6 dan kali ini admin beri nama modttxfiles kemudian copykan coding di bawah ini :

Declare Function CreateFieldDefFile Lib "p2smon.dll" (lpUnk As Object, _

ByVal filename As String, ByVal bOverWriteExistingFile As Long) _

As Long

Tambahkan sebuah tombol (commandbutton) pada form dan double klik, copykan coding dibawah ini yang bertujuan membuat ttxfiles secara otomatis yang nantikan akan dikoneksikan ke report

Set cAdm = New ADODB.Recordset

cAdm .Open "select * from tbladm", CN, 1, 3

CreateFieldDefFile cAdm, App.Path & "\ttxAdm.ttx", 1

Coba kita running untuk tes nya apakah ttxAdm.ttx akan terbuat sewaktu posisi run dan diklik tombol (commandbutton), jika sewaktu diklik tidak ada pesan error, maka pembuatan ttxfiles sukses dan buka folder source code apakah ada file yang bernama ttxAdm.ttx, seperti gambar dibawah ini

Sekarang kita coba buka file tersebut untuk memastikan isi file tersebut berisi attribute dari tabel tbladm atau bukan dengan cara klik kanan pada ttxadm.ttx kemudian pilih Open With - Notepad maka tampilannya seperti dibawah ini

Untuk tahap awal telah selesai, masuk ke tahap selanjutnya kita buat report dengan cara klik kanan pada kotak dialog sebelah kanan ikuti langkahnya seperti gambar dibawah ini :

Untuk langkah yang No.2 silahkan sahabat all-vb6 double klik sehingga muncul kotak dialog pencarian ttxfile kemudian arahkan ke ttxfile yang telah dibuat secara otomatis diatas didalam folder source code kemudian klik tombol add seperti gambar dibawah ini

Selanjutnya designlah report serapih mungkin menurut selera sahabat all-vb6 dan akan secara otomatis Visual Basic 6.0 membuat sebuah form yang berisi komponen CRViewer, dan untuk penamaan form tersebut sesuai selera sahabat all-vb6 untuk source code kali ini admin biarkan namanya secara default, kemudian buka form yang berisi komponen CRViewer hapus seluruh codingnya dan copykan coding dibawah ini

Dim Report As New CrystalReport1

Private Sub Form_Load()

Report.DiscardSavedData

Report.Database.Tables(1).Location = App.Path & "\ttxAdm.ttx"

Report.Database.Tables(1).SetDataSource cAdm

Report.ReadRecords

Report.VerifyOnEveryPrint = True

CRViewer1.Zoom 75

CRViewer1.ReportSource = Report

CRViewer1.ViewReport

If cAdm.State Then: cAdm.Close

Set cAdm = Nothing

End Sub

Private Sub Form_Resize()

CRViewer1.Top = 0

CRViewer1.Left = 0

CRViewer1.Height = ScaleHeight

CRViewer1.Width = ScaleWidth

End Sub

Sekarang coba RUN (F5) dan klik tombol (commandbutton) maka akan tampil report dengan form menggunakan komponen CRViewer seperti gambar dibawah ini

Cukup sekian pembahasan komponen CRViewer pada Visual Basic 6.0 (VB6), semoga dapat bermanfaat dan source code diatas dapat didownload pada link ini. Admin ucapkan terima kasih atas kunjungannya.