>LOCAL ARRAY laError[1] >LOCAL lcErrMsg > >lcErrMsg = "" > >=AERROR(laError) > > >IF laError[1,1] <> 1526 > * It's not ODBC Error > lcErrMsg = lcErrMsg + "VFP ERROR: " + Transform(laError[1,1]) + " " + Transform(laError[1,2]) >ELSE > IF ISNULL(laError[1,3]) > lcErrMsg = lcErrMsg + ALLTRIM(laError[1,2]) > ELSE > lcErrMsg = lcErrMsg + ALLTRIM(laError[1,3]) > ENDIF >ENDIF >>
>>declare @StartDate datetime , @EndDate datetime >>set @StartDate = '4/1/2016' set @EndDate = '4/30/2016' >> >>select a.* >>from BAI.F_Transaction a >>join dbo.D_Date b on ( a.GroupAsOfDate = b.RowID ) >>where ( DTransactionID = 1018 ) >> and >> ( b.[Date] >= @StartDate and b.[Date] <= @EndDate ) >>order by a.GroupAsOfDate desc >> >> >>>>here is my vfp translation
>>dt1 = DATE(2016,4,1) >>dt2 = GOMONTH(dt1,1)-1 >> >> >>lcServer = [OTT-sqlprod] >> >> >>CONNSTR = [Driver={SQL Server};Server=]+lcServer+[;Trusted_connection=Yes;Database=cmdw;] >> >>lnHandle = SQLSTRINGCONNECT( CONNSTR ) >>*** returns 1 >> >>IF Handle < 1 >> STRTOFILE( "Unable TO CONNECT TO SQL" + CHR(13) + CONNSTR, 16 ) >> RETURN >>ENDIF >> >> >>TEXT TO lcCMD NOSHOW TEXTMERGE >>select a.* >>from BAI.F_Transaction a >>join dbo.D_Date b on ( a.GroupAsOfDate = b.RowID ) >>where ( DTransactionID = 1018 ) >> and >> ( b.[Date] >= '<<dt1>>' and b.[Date] <= '<<dt2>>' ) >>order by a.GroupAsOfDate desc >>ENDTEXT >> >> >>>>lnSuccess returns -1