VB Code:
Dim Report As New CrystalReportMainSalary CRViewer1.Visible = True CClose_Report.Visible = True SearchString = "" Screen.MousePointer = vbHourglass CRViewer1.ReportSource = Report 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) & "" Report.RecordSelectionFormula = SearchString CRViewer1.ViewReport 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:
Public C1 As New ADODB.Connection Public s, Ch, Ans As String Dim str1, SearchString Public RFRIM As New ADODB.Recordset Function OPEN_CONNECTION() If C1.State = 1 Then C1.Close End If 'C1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\database\Salary_SYS.mdb" C1.ConnectionTimeout = 30 C1.CursorLocation = adUseClient C1.Open ("dsn=ifw; uid=admin;pwd=india") If Err <> 0 Then MsgBox "Please Make a ODBS Connection Named ifw on your computer including the database" + Chr(13) + "salary_sys.mdb Thanks", vbCritical End If End Function Function Get_Special_Record_Set(ByRef s As String) As ADODB.Recordset Dim RTMP As New ADODB.Recordset If RTMP.State = 1 Then RTMP.Close End If RTMP.Open s, C1, adOpenDynamic, adLockOptimistic Set Get_Special_Record_Set = RTMP End Function
please help me....................![]()
![]()
![]()
![]()
![]()


Reply With Quote
