Advertisement
Advertisement
| 05.15.2008 at 10:43AM PDT, ID: 23406040 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: |
Dim crRpt As New CRAXDDRT.Report
Dim ConnectionInfo As CRAXDDRT.ConnectionProperties
Set crRpt = ReconcileEPICSInvoicesbyLOBtoSolomon
crRpt.ReportComments = "Dates Start: " & Date1 & " End: " & Date2
crRpt.VerifyOnEveryPrint = True
crRpt.DiscardSavedData
'******************************************************************************************
' crDB = "AV_EPICS": crUSERID = "aviation": crPasSWORD = "ToneniliTicholtsodi1": crPROVIDER = "MSDasQL.1"
Set ConnectionInfo = crRpt.DataBase.Tables(1).ConnectionProperties
crRpt.DataBase.Tables(1).DllName = "crdb_odbc.dll"
ConnectionInfo.DeleteAll
ConnectionInfo.Add "Data Source", crDB
ConnectionInfo.Add "DSN", crDB
ConnectionInfo.Add "User ID", crUSERID
ConnectionInfo.Add "Password", crPasSWORD
ConnectionInfo.Add "Initial Catalog", crDB
ConnectionInfo.Add "Provider", crPROVIDER
theViewer.ReportSource = crRpt
Call Sleep(10)
DoEvents
theViewer.ViewReport
While theViewer.IsBusy
Call Sleep(20)
DoEvents
Wend
Screen.MousePointer = vbDefault
|