Skip to Content
0
Former Member
Dec 02, 2009 at 03:59 AM

Logon failed. Error in File Unable to connect: incorrect log on parameters

46 Views

这是我对于report 的setLocation进行修改的代码, 但是总是提示错误信息:

Error Type:

RptControllers.dll (0x8004100F)

Logon failed. Error in File C:\WINNT\TEMP\ {FCF0DCE3-2CE7-4CE8-B880-C22B3E29A0C5}.rpt: Unable to connect: incorrect log on parameters.

希望有知道错误原因地,给个回复。谢谢

For Each crTable In clientDoc.Database.Tables

Set table_new = crTable.Clone

Set pb = table_new.ConnectionInfo.Attributes

pb.Item("Database DLL") = "crdb_ado.dll"

pb.Item("QE_DatabaseName") = strDbName

pb.Item("QE_DatabaseType") = "OLE DB (ADO)"

pb.Item("QE_ServerDescription") = strDbServer

pb.Item("QE_SQLDB") = True

pb.Item("SSO Enabled") = False

pb.Item("QE_LogonProperties").RemoveAll()

pb.Item("QE_LogonProperties").Add "Auto Translate","-1"

pb.Item("QE_LogonProperties").Add "Connect Timeout","15"

pb.Item("QE_LogonProperties").Add "Data Source",strDbServer

pb.Item("QE_LogonProperties").Add "General Timeout","0"

pb.Item("QE_LogonProperties").Add "Initial Catalog",strDbName

pb.Item("QE_LogonProperties").Add "Integrated Security","False"

pb.Item("QE_LogonProperties").Add "Locale Identifier","1033"

pb.Item("QE_LogonProperties").Add "OLE DB Services","-5"

pb.Item("QE_LogonProperties").Add "Provider","SQLOLEDB"

pb.Item("QE_LogonProperties").Add "Tag with columb collation when possible","0"

pb.Item("QE_LogonProperties").Add "Use DSN Default Properties",False

pb.Item("QE_LogonProperties").Add "Use Encryption for Data","0"

table_new.QualifiedName = strDbName & ".dbo." & crTable.Name

table_new.ConnectionInfo.UserName = strDbUser

table_new.ConnectionInfo.Password = strDbPassword

clientDoc.DatabaseController.setTableLocation crTable, table_new

Set table_new = Nothing

Next