Powered by Blogger.

KONEKSI CRYSTAL REPORT DAN CONTROL DATA

Untuk mengkoneksikan dengan Crystal report dan mengontrol data dari program VB |


Pada Reference dipilih Microsoft Active Data Object Recordset.

Dim Report As New CrystalReport1
Dim Ado As New ADOR.Recordset

Private Sub CmdCetak_Click()
If Ado.State = adStateOpen Then
    Ado.Close
End If
    Ado.Open "select * from sampel where No_sampel='" + TxtNoSampel.Text + "'", "sampel database"
    Report.Database.SetDataSource Ado
    Form5.CRViewer1.ReportSource = Report
    Form5.CRViewer1.ViewReport
    Form5.Show
    Set Report = Nothing
End Sub


Anda baru saja membaca artikel yang berkategori Latihan vb 6 dengan judul KONEKSI CRYSTAL REPORT DAN CONTROL DATA. Anda bisa bookmark halaman ini dengan URL http://belajar-dgn-vb.blogspot.com/2012/07/koneksi-crystal-report-dan-control-data.html. Terima kasih!
Ditulis oleh: aku iwa - Saturday, 7 July 2012

Belum ada komentar untuk "KONEKSI CRYSTAL REPORT DAN CONTROL DATA"

Post a Comment