Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Need an Extra Set of Eyes to Spot Problem
Message
 
To
All
General information
Forum:
Microsoft SQL Server
Category:
SQL syntax
Title:
Need an Extra Set of Eyes to Spot Problem
Miscellaneous
Thread ID:
00657475
Message ID:
00657475
Views:
50
I've got some sql code that runs correctly in the query analyizer, but when I cut and paste into my vfp program, it bombs I was hoping someone could spot the problem.

SQL Anaylzer Code
declare @ltStartDate  datetime
declare @ltEndDate  datetime
declare @lnSelDeptID as int

set @lnSelDeptID=1
set @ltStartDate = '03/12/2002 00:00:01' 
set @ltEndDate =   '03/12/2002 23:59:59'

SELECT     dbo.meetings.meetingnumber, dbo.codept.ChgDepartmentID, dbo.codept.DeptStockLoc, dbo.cocasedata.actualqty, dbo.cocasedata.linkedid, 
                      dbo.coinv.immsfield, dbo.coinv.catalogno, dbo.coUnitofIssue.UnitofIssueCode, dbo.coinv.cf, dbo.meetings.begintime
FROM         dbo.meetings INNER JOIN
                      dbo.cocasedata ON dbo.meetings.meetingnumber = dbo.cocasedata.meetingnumber INNER JOIN
                      dbo.codept ON dbo.meetings.deptid = dbo.codept.deptid INNER JOIN
                      dbo.coinv ON dbo.cocasedata.linkedid = dbo.coinv.invid LEFT OUTER JOIN
                      dbo.coUnitofIssue ON dbo.coinv.UnitIssueID = dbo.coUnitofIssue.UnitIssueID
WHERE     (dbo.meetings.iscompleted = 1)
and dbo.meetings.deptid=@lnSelDeptID 
and dbo.meetings.begintime between @ltStartDate and @ltEndDate 
VFP Code:
lnSelDeptID=rv_userDept.deptid
lcStartDate=DTOC(thisform.processdate)+[ 00:00:01]
ltStartDate=CTOT(lcStartDate)
lcEndDate=  DTOC(thisform.processdate)+[ 23:59:00]
ltEndDate=  CTOT(lcEndDate)
* Get all the data we need to send
lcCmd=""
lcCmd=lcCmd+[SELECT     dbo.meetings.meetingnumber, dbo.codept.ChgDepartmentID, dbo.codept.DeptStockLoc, dbo.cocasedata.actualqty, dbo.cocasedata.linkedid, ]
lcCmd=lcCmd+[                      dbo.coinv.immsfield, dbo.coinv.catalogno, dbo.coUnitofIssue.UnitofIssueCode, dbo.coinv.cf, dbo.meetings.begintime ]
lcCmd=lcCmd+[FROM         dbo.meetings INNER JOIN ]
lcCmd=lcCmd+[                      dbo.cocasedata ON dbo.meetings.meetingnumber = dbo.cocasedata.meetingnumber INNER JOIN ]
lcCmd=lcCmd+[                      dbo.codept ON dbo.meetings.deptid = dbo.codept.deptid INNER JOIN ]
lcCmd=lcCmd+[                      dbo.coinv ON dbo.cocasedata.linkedid = dbo.coinv.invid LEFT OUTER JOIN ]
lcCmd=lcCmd+[                      dbo.coUnitofIssue ON dbo.coinv.UnitIssueID = dbo.coUnitofIssue.UnitIssueID ]
lcCmd=lcCmd+[WHERE     (dbo.meetings.iscompleted = 1) ]
lcCmd=lcCmd+[and dbo.meetings.deptid=?lnSelDeptID ]
lcCmd=lcCmd+[and dbo.meetings.begintime between ?ltStartDate and ?ltEndDate ]
IF SQLEXEC(gnConnHandle,lcCmd,"CurCaseData")<1
	IF RECCOUNT("CurCaseData")>0
		SELECT curCaseData
		browse
	ELSE
		=MESSAGEBOX("There were no completed cases with issues to process for the selected date and department.",64+4096,"Care Tracker Enterprise",20000)
	ENDIF
ELSE
	=sqlerror()
endif
It bombs on the sqlexec() line. It returns -1 and the aerror function returns:

1 - 13
2 - "Alias is not found."
3 - "JOIN"
4-7 are blank
Next
Reply
Map
View

Click here to load this message in the networking platform