G
goo
Guest
If I do this: I will get the folllowing error: Kan ikke åpne forbindelsen (Can't open the connection) METHOD PUBLIC VOID ApplyLoginInfo( ): def var i as int no-undo. /* Create an ODBC DSN */ DSN = "DRIVER=" + ODBC + ";HOST=" + Servernavn + ";PORT=" + Port + ";DB=" + Databasenavn + ";UID=" + Bruker /*+ ";PWD=" + Passord*/. Info = NEW CrystalDecisions.Shared.TableLogOnInfo(). DO i = 0 TO crwReport
atabase:Tables:Count - 1: crRptTable = crwReportatabase:Tables. Info = crRptTable:LogOnInfo. Info:ConnectionInfo:AllowCustomConnection = true. Info:ConnectionInfo:ServerName = DSN. Info:ConnectionInfoatabaseName = Databasenavn. Info:ConnectionInfo:UserID = Bruker. Info:ConnectionInfo
assword = Passord. crRptTable:ApplyLogOnInfo(Info). crRptTable:Location = crRptTable:Location. END. MESSAGE 'Test:' crRptTable:TestConnectivity() VIEW-AS ALERT-BOX. /* crwReport:SetDatabaseLogon(Bruker, '', ServerNavn, DatabaseNavn, true).*/ CATCH eAny AS Progress.Lang.Error : MESSAGE eAny:GetMessage(1) VIEW-AS ALERT-BOX. END CATCH. END METHOD.
Continue reading...
atabase:Tables:Count - 1: crRptTable = crwReportatabase:Tables. Info = crRptTable:LogOnInfo. Info:ConnectionInfo:AllowCustomConnection = true. Info:ConnectionInfo:ServerName = DSN. Info:ConnectionInfoatabaseName = Databasenavn. Info:ConnectionInfo:UserID = Bruker. Info:ConnectionInfoassword = Passord. crRptTable:ApplyLogOnInfo(Info). crRptTable:Location = crRptTable:Location. END. MESSAGE 'Test:' crRptTable:TestConnectivity() VIEW-AS ALERT-BOX. /* crwReport:SetDatabaseLogon(Bruker, '', ServerNavn, DatabaseNavn, true).*/ CATCH eAny AS Progress.Lang.Error : MESSAGE eAny:GetMessage(1) VIEW-AS ALERT-BOX. END CATCH. END METHOD.Continue reading...