ldIniDate = DATE(2004,02,01) ldEndDate = ldIniDate+1 SET TEXTMERGE ON SET TEXTMERGE TO MEMVAR lcQuery NOSHOW \SELECT Tally.ReworkNumber, Tally.Problem, \ TallyDetail.Kanban, TallyDetail.PartNumber, Tally.PartName, \ Tally.SupplierName \FROM Tally, TallyDetail \ WHERE Tally.ReworkNumber = TallyDetail.ReworkNumber \ AND Tally.DateCreated BETWEEN ?ldIniDate AND ?ldEndDate SET TEXTMERGE TO SET TEXTMERGE OFF IF SQLExec(lnHandle,lcQuery,"cResult") < 0 IF AERROR(laError) > 0 Messagebox(laError[2]) ENDIF ENDIFVFP automatically parses the variables using the "?" before the variable.
>Local ldEndDate >ldEndDate = "09/22/2004" > >SQLEXEC(tConnection, 'SELECT Tally.ReworkNumber, Tally.Problem, ' + ; >'TallyDetail.Kanban, TallyDetail.PartNumber, Tally.PartName,' + ; > 'Tally.SupplierName ' + ; >'FROM Tally, TallyDetail ' + ; >'WHERE Tally.ReworkNumber = TallyDetail.ReworkNumber ' + ; >'AND Tally.DateCreated = ' + TRANSFORM(m.ldEndDate) ,'cuWeekly')