brucelim80
Active member
- Joined
- Apr 20, 2006
- Messages
- 35
- Programming Experience
- Beginner
hi
Does anyone know how to solve this problem?
My PC autorestart it self while i click on the printing button on the crystal report viewer at debugging mode.
i have the following code
Option Explicit On
Imports System.Data.OleDb
Public Class jobprinting
Dim myConnects As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\136.121.2.1\its helpdesk\calltrack\MDB\ecall.mdb;")
Private Sub jobprinting_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
myConnects.Open()
Dim objadpater As OleDbDataAdapter = New OleDbDataAdapter("SELECT * FROM TrackingDB Where Workid ='" & lastserialworkid & "'", myConnects)
Dim TrackingDB As DataSet = New DataSet1
TrackingDB.Clear()
objadpater.Fill(TrackingDB, "TrackingDB")
myConnects.Close()
Dim rpt As New HSBC_JOB_PROCESS_REPORT
rpt.SetDataSource(TrackingDB)
Me.CrystalReportViewer.ReportSource = rpt
End Sub
End Class
Does anyone know how to solve this problem?
My PC autorestart it self while i click on the printing button on the crystal report viewer at debugging mode.
i have the following code
Option Explicit On
Imports System.Data.OleDb
Public Class jobprinting
Dim myConnects As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\136.121.2.1\its helpdesk\calltrack\MDB\ecall.mdb;")
Private Sub jobprinting_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
myConnects.Open()
Dim objadpater As OleDbDataAdapter = New OleDbDataAdapter("SELECT * FROM TrackingDB Where Workid ='" & lastserialworkid & "'", myConnects)
Dim TrackingDB As DataSet = New DataSet1
TrackingDB.Clear()
objadpater.Fill(TrackingDB, "TrackingDB")
myConnects.Close()
Dim rpt As New HSBC_JOB_PROCESS_REPORT
rpt.SetDataSource(TrackingDB)
Me.CrystalReportViewer.ReportSource = rpt
End Sub
End Class
Last edited: