Good Day! I don't know what is the problem of my code below...When i click the button my Crystal Report is not displaying..No error found also..Please help
Form2
Code:
Option Explicit
Public Report As New CrystalReport1
Public Function printReport()
Dim strConnectionString As String
Dim rs As ADODB.Recordset
Dim strScript As String
Dim mvcn As ADODB.Connection
strConnectionString = "Provider=SQLOLEDB;Data Source=192.168.15.254;UID=sa;PWD=;Initial Catalog=dbVBTest"
Set mvcn = New ADODB.Connection
mvcn.ConnectionString = strConnectionString
mvcn.CursorLocation = adUseClient
mvcn.Open
strScript = strScript & "SELECT * FROM employee" & vbCrLf
Set rs = mvcn.Execute(strScript)
Report.Database.SetDataSource rs
Report.AutoSetUnboundFieldSource crBMTNameAndValue
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Set Report = Nothing
mvcn.Close
End Function
Form1
Code:
Private Sub Command1_Click()
form2.printReport
End Sub