Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

Troubleshooting
Research
Professional Opinions
Ask a Question
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE

troubleshooting Question

VB6 using Crystal Reports 8.5.3.875 SERVER HAS NOT YET BEEN OPENED

Avatar of mysterywhteboy
mysterywhteboy asked on
Crystal ReportsOracle DatabaseDB Reporting Tools
4 Comments1 Solution4585 ViewsLast Modified:
PLease help. I am using Visual Basic 6 to connect and run a crystal report. I was able to use this exact method at my last job with Crystal 9, and VB6. Still connecting to an ODBC datasource from within the System DSN in Control panel. Version of ORacle is 10g.

The one thing I have noticed that is different is that Crystal 8.5 under the Database menu in crystal references pdsodbc.dll, where as the computer I am using only has p2sodbc.dll on the harddrive. I am not able to choose p2sodbc as a selection in the actual crystal report. Could this be the problem why I get the Server has not yet been opened error?

Here is the code that had worked for me in the past:
 References: Crystal Report Viewer, Crystal Reports 8.5 activeX Designer Run time library, other various regular references.

Private Sub Form_Load()
          Dim Appl As New CRAXDRT.Application
          Dim Report As New CRAXDRT.Report
          Dim DB As CRAXDRT.Database
          Dim strDBDLL As String 'database connection dll
          Dim strDSNName As String 'odbc dsn name
          Dim strDBName As String 'database name
          Dim strUser As String 'database user
          Dim strPwd As String 'database user password
          Dim strdate As String
         
          'strdate = Format(Now, "mmmm dd yy") 'Use in naming conventions of saved file, or Email
          'Workbooks.Open FileName:="I:\Common\Steve\UserPass.xls", Password:="password"
          'Sheets("User").Select
          'strUser = Range("A1").Value
          'strPwd = Range("A2").Value
          'Sheets("User2").Select
          'ActiveWorkbook.Close savechanges:=True
          strUser = user
          strPwd =pass
         
          strDBDLL = "P2SODBC.dll"
          'strDBDLL = "PDSODBC.DLL"
          strDSNName = "My DSNNAME"
          strDBName = ""
          Set Report = Appl.OpenReport("C:\Crystal Reports\Report1.rpt")
          Set DB = Report.Database
          DB.SetLogOnServer strDBDLL, strDSNName, strDBName, strUser, strPwd
          DB.Verify

PLease HELP!!! I have never had this problem before.
ASKER CERTIFIED SOLUTION
Avatar of Computer101
Computer101Flag of United States of America image

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Commented:
This problem has been solved!
Unlock 1 Answer and 4 Comments.
See Answers