I'll play with this a bit

thanks

>Here's an example on how to login to the SQL database. It doesn't matter if the app is already logged in, the report object needs to set every table used in the report to the correct SQL login info. Any questions on this, let me know.
>
>

PROCEDURE LogOnSQL
>This.FixUpTables()
>* look for subreports, update SQL Server logon info
>		FOR EACH loSection IN This.oReport.Sections
>			WITH loSection
>				FOR EACH loReportObject IN .ReportObjects
>					IF loReportObject.Kind = crSubreportObject
>						loSubreport = This.oReport.OpenSubreport(loReportObject.SubreportName)
>
>						WITH loSubreport
>							STORE .F. TO .MorePrintEngineErrorMessages, .EnableParameterPrompting
>						ENDWITH
>
>						This.FixUpTables(loSubreport, lcSQLServer, lcDBName, lcUserID, lcPswd)
>
>						loSubreport = .null.
>					ENDIF
>				NEXT loReportObject
>				loReportObjects = .null.
>			ENDWITH
>		NEXT loSection
>ENDPROC
>
>******************************************	
>	PROCEDURE FixUpTables
>	******************************************		
>
>		LPARAMETER toReport, tcSQLServer, tcDBName, tcUserID, tcPswd
>
>		LOCAL loTable, lcLocation, lcUserID, lcPswd, sConnString
>
>		FOR EACH loTable IN toReport.Database.Tables
>					>			WITH loTable
>				lcLocation = .Location
>					*** connect to SQL Server using OLEDB (ConnectionProperties)		
>					loConnProps = loTable.ConnectionProperties
>					*** delete all existing connection properties
>					loConnProps.DeleteAll()
>					*** add new connection properties
>					loConnProps.Add("Provider","SQLOLEDB")
>		>					loConnProps.Add("Data Source",tcSQLServer)
>					loConnProps.Add("Initial Catalog",tcDBName)
>
>					loConnProps.Add("User ID",tcUserID)
>					>					** check for dbl quote - change to chr(34)
>					tcPswd = ScrubDblQuote(tcPswd)
>					>					loConnProps.Add("Password", tcPswd)
>					IF "Proc(" $ lcLocation
>						lcLocation = STRTRAN(lcLocation,"Proc(","")
>						lcLocation = STRTRAN(lcLocation,")","")
>					ENDIF
>					.Location = tcDBName + ".dbo." + lcLocation
>				>			ENDWITH
>		NEXT loTable
>		>		loTable = .null.
>ENDPROC