Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Edit Query
I have code that executes a Query Edit as follows:
Sub EditQry() ' With Selection.QueryTable .Connection = Array(Array( _ "ODBC;DSN=Clockworks;Description=Clockworks;UID=sa ;;APP=Microsoft Office 2000;WSID=XXXXXXXX;DATABASE=Intranet;LANGUAGE=us_e nglish;Ne" _ ), Array("twork=DBMSSOCN;Address=172.30.1.110,1433")) .CommandText = Array( _ "SELECT tbl_TimeSlips1.Year, tbl_TimeSlips1.Month, tbl_TimeSlips1.Week, tbl_ISProjects.Description, tbl_ISPersonnel.Name, tbl_ISPersonnel.Department, tbl_ISProjects.GLCode, tbl_ISProjects.GLSubCode, tb" _ , _ "l_TimeSlips1.Hours, tbl_ISPersonnel.Rate, tbl_TimeSlips1.GL, tbl_TimeSlips1.ContractorCode, tbl_TimeSlips1.ContractorName, tbl_TimeSlips1.Charged, tbl_TimeSlips1.Notes, tbl_ISProjects.RecordID, tbl_IS" _ , _ "Projects.Department, tbl_ISProjects.Capitalized, tbl_ISProjects.Total, tbl_ISPersonnel.RecordID, tbl_ISPersonnel.Status" & Chr(13) & "" & Chr(10) & "FROM Intranet.dbo.tbl_ISPersonnel tbl_ISPersonnel, Intranet.dbo.tbl_ISProjects " _ , _ "tbl_ISProjects, Intranet.dbo.tbl_TimeSlips1 tbl_TimeSlips1" & Chr(13) & "" & Chr(10) & "WHERE tbl_TimeSlips1.ContractorCode = tbl_ISPersonnel.RecordID AND tbl_TimeSlips1.GL = tbl_ISProjects.RecordID AND ((tbl_TimeSlips1.Year=200" _ , _ "5) AND (tbl_TimeSlips1.Month=11) AND (tbl_TimeSlips1.Hours0) AND (tbl_ISProjects.Capitalized=1) AND (tbl_ISPersonnel.Status='Associate'))" _ ) .Refresh BackgroundQuery:=False End With Selection.Subtotal GroupBy:=7, Function:=xlSum, TotalList:=Array(22), _ Replace:=True, PageBreaks:=False, SummaryBelowData:=True End Sub The Query asks for a user name which is "sa" and a password. How and where do I add the password to the above code to avoid the prompt. TIA |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Query Wizard Cannot Be Used To Edit This Query | Excel Discussion (Misc queries) | |||
why does edit query button not open query | Excel Discussion (Misc queries) | |||
MS Query - unable to edit query | Excel Discussion (Misc queries) | |||
Problem with MS Query - can't edit query | Excel Discussion (Misc queries) | |||
Edit Query from Excel will not open query in MSQuery | Excel Programming |