Results 1 to 4 of 4

Thread: Still Crystal Report Problem

  1. #1

    Thread Starter
    Just Married shakti5385's Avatar
    Join Date
    Mar 2006
    Location
    Udaipur,Rajasthan(INDIA)
    Posts
    3,747

    Still Crystal Report Problem

    VB Code:
    1. Dim Report As New CrystalReportMainSalary
    2. CRViewer1.Visible = True
    3. CClose_Report.Visible = True
    4. SearchString = ""
    5. Screen.MousePointer = vbHourglass
    6. CRViewer1.ReportSource = Report
    7. SearchString = "{LEAVE_TABLE.E_CODE}='" & Trim(TXT_GETCODE.Text) & "' AND {LEAVE_TABLE.MONTH}='" & Trim(TXT_MONTH.Text) & "' AND {LEAVE_TABLE.YEAR}=" & Val(TXT_YEAR.Text) & ""
    8. Report.RecordSelectionFormula = SearchString
    9. CRViewer1.ViewReport
    10. Screen.MousePointer = vbDefault

    there is dsn made by me both for database nad report but still this report not running on other computer that not contain crystel report
    from last three days i am facin this problem
    help me...................

    i create dsn on other computer .............but when i run the report on other computer there is information shoe that physical database not found what is sultion for it

    my original module coding is as fiollow

    VB Code:
    1. Public C1 As New ADODB.Connection
    2. Public s, Ch, Ans As String
    3. Dim str1, SearchString
    4. Public RFRIM As New ADODB.Recordset
    5. Function OPEN_CONNECTION()
    6. If C1.State = 1 Then
    7. C1.Close
    8. End If
    9. 'C1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\database\Salary_SYS.mdb"
    10. C1.ConnectionTimeout = 30
    11. C1.CursorLocation = adUseClient
    12. C1.Open ("dsn=ifw; uid=admin;pwd=india")
    13. If Err <> 0 Then
    14.     MsgBox "Please Make a ODBS Connection Named ifw on your computer including the database" + Chr(13) + "salary_sys.mdb  Thanks", vbCritical
    15. End If
    16. End Function
    17. Function Get_Special_Record_Set(ByRef s As String) As ADODB.Recordset
    18. Dim RTMP As New ADODB.Recordset
    19. If RTMP.State = 1 Then
    20. RTMP.Close
    21. End If
    22. RTMP.Open s, C1, adOpenDynamic, adLockOptimistic
    23. Set Get_Special_Record_Set = RTMP
    24. End Function

    please help me....................

  2. #2
    VB Guru ganeshmoorthy's Avatar
    Join Date
    Dec 2005
    Location
    Sharjah, United Arab Emirates
    Posts
    3,031

    Re: Still Crystal Report Problem

    are you able to access the other computer from your computer
    If an answer to your question has been helpful, then please, Rate it!

    Have done Projects in Access and Member management systems using BioMetric devices, Smart cards and BarCodes.


  3. #3

    Thread Starter
    Just Married shakti5385's Avatar
    Join Date
    Mar 2006
    Location
    Udaipur,Rajasthan(INDIA)
    Posts
    3,747

    Re: Still Crystal Report Problem

    yes all computer in network
    i am making set of my project but crystal report first time but next time if i make any change in any form and make exe again then make it set up then it is not running and showing error
    crystal report viewer
    Physical database not found
    help me.............

  4. #4

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width