thanks Naomi and Sergey.
I will implement the error stuff but my simple code works now after the sql guy changed
my permissions




>Here is a piece of code from one of my error handling routines
>

>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	
>

>
>>I need to get some data out of SQLserver from my vfp9sp2 app
>>i have never done this btw
>>here is what i got from the sql guy:
>>

>>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
>>
>>what am I doing wrong