| Banyak kemungkinan yang menyebabkan komputer tiba-tiba not responding atau bisa disebut hang, diantaranya yaitu : | ||
| ||
| Bagaimana yang harus kita lakukan jika komputer kita not responding? Salah satu cara yang baik dilakukan adalah sebagai berikut : | ||
| ||
| ||
 | ||
| ||
 | ||
| ||
| 1. | Buat Project Baru |
| 2. | Tambahkan References melalui menu Project >> References. Pada kotak dialog references tambahkan pilihan berikut : |
| Microsoft ActiveX Data Objects 2.0 Library | |
| Crystal ActiveX Report Viewer Library 10.0 | |
| Crystal Reports ActiveX Designer Run Time Library 10.0 | |
| Lihat gambar di bawah ini untuk lebih jelasnya | |
 | |
| 3. | Tambahkan Komponen Crystal Report melalui menu Project >> Components (aktifkan Crystal ActiveX Report Viewer Library 10.0). Lihat gambar di bawah ini. |
 | |
| 4. | Tambahkan modul baru di project dan masukkan code program seperti di bawah ini |
Public Strcon As New ADODB.Connection
Public RS As New ADODB.Recordset
Public Const strODBC = "DATASOURCE-SISWA"
Sub OPEN_DATABASE()
On Error GoTo err
Set Strcon = New ADODB.Connection
Strcon.Open strODBC
Strcon.CursorLocation = adUseClient
Exit Sub
err:
MsgBox "DATABASE BELUM DISETTING ATAU SETTINGAN DATABASE " & _
"SALAH (BUAT DATASOURCE ODBC DI CONTROL PANEL)! " & _
"Cek Kembali Settingan ODBC..!", vbOKOnly + vbCritical, "Database"
End
End Sub
| |
| 5. | Tambahkan kontrol CrystalActiveXReportViewer di form1 dan ubah name menjadi : CARV. Kemudian masukkan kode program di bawah ini pada jendela code pada form1 |
| Dim Appl As New CRAXDRT.Application Dim RPT As New CRAXDRT.Report Private Sub Form_Load() Dim sqlSelect, ReportFilePath As String OPEN_DATABASE sqlSelect = "SELECT * FROM t_siswa" If RS.State = 1 Then RS.Close RS.Open sqlSelect, Strcon ReportFilePath = App.Path & "\LaporanSiswa.rpt" Set RPT = Appl.OpenReport(ReportFilePath) RPT.Database.SetDataSource RS, 3, 1 CARV.ReportSource = RPT CARV.ViewReport RPT.DiscardSavedData End Sub Private Sub Form_Resize() CARV.Width = Me.Width CARV.Height = Me.Height End Sub | |
| 6. | Sekarang tinggal Run Program Anda. Di bawah ini contoh tampilannya Yang mau langsung download sourcode nya ada di bawah postingan ini. DOWNLOAD |
