Teman-teman
Saya ingin menampilkan sebuah report yang datanya diambil dari database sql
server 2000 di komputer server. Bagaimana string koneksi ke databasenya. Saat
ini saya hanya memiliki koding string koneksi ke ms. Access. Perlu anda
ketahui, saya menggunakan CRViewer untuk menampilkan reportnya. Mohon
pencerahan dan terima kasih atas perhatiannya.
Form_Load
'//Deklarasi objek database
Dim crxDatabaseTable As craxdrt.DatabaseTable
'//Deklarasi objek laporan untuk sub report
Dim crxSubReport As craxdrt.Report
'//Buka Laporan
Set Report = crxApplication.OpenReport(App.Path & "\pasien.rpt", 1)
'//Gunakan perulangan For Each Loop untuk koleksi database laporan
For Each crxDatabaseTable In Report.Database.Tables
crxDatabaseTable.Location = "C\Program Files\Seagate Software\Crystal
Report\Samples\En\" & _
"Databases\extreme.mdb"
Next
End Sub
Hormat saya
Saripudin Hidayat
________________________________________________________
Kunjungi halaman depan Yahoo! Indonesia yang baru!
http://id.yahoo.com/
