Hi,

I have trawled the internet for days trying to find a solution to this problem but to no avail.

I am using CR XI, VB6, SQL Server 2000

I have a PC and a laptop. SQL Server sits on the Laptop.
The Report uses an OLE DB ADO connection.

When opening the report on either computers in CR XI it connects correct when user name a password are entered.

When opening the report on the Laptop via VB6 it works correclty

THe problem is when I try to open the report on my PC via VB6. It uses the exact same code as is running on the laptop but it returns the following error:

Logon failed.
Details:  [Database Vendor Code: 18456 ]

Below is the code:

    Dim crConnectionProp As CRAXDRT.ConnectionProperties
    Dim crSection As CRAXDRT.Section
    Dim crSections As CRAXDRT.Sections
    Dim crxSubreportObject As Variant
    Dim crxSubreport As Variant
    Dim aReport As Variant
    Dim sTableName As String
    On Error GoTo Hell
    sCurProc = "LoadReport"

    Set crApp = New CRAXDRT.Application

    aReport = GetReport(sReport)

    Set crReport = crApp.OpenReport(aReport(0))
    Set crTables = crReport.Database.Tables

    crReport.Database.Tables(1).DllName = "crdb_ado.dll"
  
    For Each crTable In crTables
        Set crConnectionProp = crTable.ConnectionProperties
        sTableName = crTable.Location
        crConnectionProp.DeleteAll
       
        crConnectionProp.add "Provider", "SQLOLEDB"
        crConnectionProp.add "Date Source", sSQLServer
        crConnectionProp.add "Initial Catalog", sDSN
        crConnectionProp.add "User ID", sUID
        crConnectionProp.add "Password", sPassword
        crConnectionProp.add "INTEGRATED SECURITY", False
        crTable.Location = sDSN & ".dbo." & sTableName
Next
This Line is where the error occurs.

The Server, database name etc are all correct.

The other things is I dont think this is a Database problem but I could be wrong here... "Details:  [Database Vendor Code: 18456 ]" indicates its a Database problem but this error does not appear in the Server logs..!

Can anyone help me out here. Im pulling my hair out!

Cheers


Edited by TheLimp - 13 Jun 2008 at 5:04am

I've tried a number of different things and all unsuccessful.  One thing though - your line of code:  crTable.Location = sDSN & ".dbo." & sTableName
I think crTable.Location is a read-only property.

Wow.  Thanks for the lightning fast response.  When my code hits "crReport.Database.Verify" I get the message that my logon is failing. 

Thanks so much.  I still have my hair but alas a few dents in my head from beating it against the table.

These boys at Crystal, BO, SAP, whatever, they sure didn't make this easy.  I may switch to something else.