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

Dapat juga dilihat program perintah sql serta auto search  dan program mengembalikan variable...

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 https://belajar-dgn-vb.blogspot.com/2012/07/koneksi-crystal-report-dan-control-data.html. Terima kasih!

Ditulis oleh: Unknown - Saturday, 7 July 2012