Error 20533 Unable To Open Database
I'm working with encrypted and protected with password databases, but when the code arrives to the line "CrystalReport1.Action=1", I got the the runtime error '20533' unable to open database same error every time: Runtime error '20533': Unable to open database I'll afip apreciate any help with this... thanks... here is the code: CrystalReport1.ReportSource = crptReport CrystalReport1.ReportFileName = App.Path & "\report.rpt" CrystalReport1.DataSource = ????? CrystalReport1.DataFiles(0) = ????? CrystalReport1.Connect =
von GoogleAnmeldenAusgeblendete FelderNach Gruppen oder Nachrichten suchen
Join INTELLIGENT WORK FORUMSFOR COMPUTER PROFESSIONALS Log In Come Join Us! Are you aComputer http://www.tek-tips.com/viewthread.cfm?qid=46425 / IT professional?Join Tek-Tips Forums! Talk With Other Members Be Notified Of ResponsesTo Your Posts Keyword Search One-Click Access To YourFavorite Forums Automated SignaturesOn Your Posts Best Of All, It's Free! Join Us! *Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive unable to e-mail. Posting Guidelines Promoting, selling, recruiting, coursework and thesis posting is forbidden.Tek-Tips Posting Policies Jobs Jobs from Indeed What: Where: jobs by Link To This Forum! Add Stickiness To Your Site By Linking To This Professionally Managed Technical Forum.Just copy and paste the BBCode HTML Markdown MediaWiki reStructuredText unable to open code below into your site. Visual Basic(Microsoft): Version 5 & 6 Forum at Tek-Tips HomeForumsProgrammersLanguagesVisual Basic(Microsoft): Version 5 & 6 Forum Run-time error 20533 "unable to open db" thread222-46425 Forum Search FAQs Links MVPs Run-time error 20533 "unable to open db" Run-time error 20533 "unable to open db" Lorski (Programmer) (OP) 10 Jan 01 10:02 Thru VB I clear out a database then import a text file in Access '97... here's the import:Private Sub cmdImportSet FSYS = CreateObject("Scripting.FileSystemObject")Set F = FSYS.GetFile(FileLoc + "textfile.txt")Set TStream = F.OpenAsTextStream ForReading,TristateUseDefault)Do While TStream.AtEndOfStream = FalseDoEventsAdodc1.Recordset.AddNewTS = TStream.ReadLineAdodc1.Recordset.Fields("OneLine") = TSAdodc1.Recordset.UpdateLoopAdodc1.Recordset.CloseEndSubNext I want to print the database through Crystal Reports.Here's what I'm using for that:SetAttr (FileLoc + "Report1.rpt"), vbNormalCrystalReport1.DataFiles(0) = (FileLoc + "TestData.mdb")CrystalReport1.PrintReportWhen walking it through, it gives me the error 20533.Upon running the application... it sends the reports to the printer...(I can actually see the jo