ASPdb filter generates error using MS SQL2000

[Paul Mancuso]

I'm switching from MS Access to MS SQL2000 and with that I'm finding that the ASPdb Gold filter is generating an error. The error is:

Error#(Filter_Create)80040E0C (-2147217908)
Description=No commandhas been set for the command object
Source=Microsoft OLE DB Provider for ODBC Drivers

There is no reference, anywhere for this error. So, I'm hoping you can shed some light as to what is going on here.
The ASPdb application appears to function properly in all other modes (Add,Edit etc)

I have attached a fragment of my code for your reference. thanks in advance.

Set ADB = Server.CreateObject("Asp.db&#34

ADB.dbUnit = 1001
ADB.dbMode = "Dual-Horiz"
ADB.dbButtonAnchor = true
ADB.dbGridInc = "7"

ADB.dbImageDir="/aspdb/images/"
ADB.dbNavigation="bottom"
ADB.dbNavigationItem="Next,Prev,Filter,ResetFi lter,Add,Update"
ADB.dbNavigationIcon="std"
ADB.dbStatusBar=false

ADB.dbDSN = "driver={SQL Server}; Server=h01ny_nt3; DataBase=eSTIP; UID=sa; PWD=;"
ADB.dbDBType="SQL"
ADB.dbStoredProc="spProject"

ADB.dbGridTableTag="border=1, cellspacing=3, cellpadding=3"
ADB.dbFormTableTag="border=1, cellspacing=3, cellpadding=3"
ADB.dbGridColSort=true
ADB.dbGridDisplayFlds="Pin,Region,Descript&#34 ;
ADB.dbFormDisplayFlds="AreaType,AirQuality,Cou ntyName,ProjectStatus"



FDF = "Pin,,Stip,Pin,,,,NoBlank,,Distinct;"
FDF = FDF & "Region,,RegionInfo,RegionNumber,,,,Distinct;& #34;
FDF = FDF & "AreaType,,AreaCodes,AreaCode,,,,Distinct;&#34 ;
FDF = FDF & "ProjectStatus,,ProjStatusCodes,StatusType,,,, Distinct"
ADB.dbFilterDropFlds = FDF

ADB.dbFilterFlds="Pin,Region,ProjectStatus&#34 ;
ADB.dbFilterParams="DropButtonText=none,Help=f alse"

X=request("aspDBBut_1001&#34
X=mid(UCASE(X),10,3)
if X = "ADD" then Session("ADDUPD&#34 = "ADD"
if X = "UPD" then Session("ADDUPD&#34 = "UPD"

if Session("ADDUPD&#34 = "ADD" then
dbE = "tablename=STIP,BookmarkFlds=0,EditValidateNam e=ValidateAdd()"
ADB.dbEditParams = dbE
EF= "Pin,Descript,AreaType,Region,AirQuality,Count yName,ProjectStatus"
ADB.dbEditFlds = EF
end if

if Session("ADDUPD&#34 = "UPD" then
dbE = "tablename=STIP,BookmarkFlds=0"
ADB.dbEditParams = dbE
EF= "Pin,Descript,AreaType,Region,AirQuality,Count yName,ProjectStatus"
ADB.dbEditFlds = EF
ADB.dbEditUpdateROFlds="Pin"
end if

EDF = "AreaType,,AreaCodes,AreaCode,,,NoBlank,Distin ct;"
EDF = EDF & "AirQuality,,AirQualityCodes,AQCodes,,,NoBlank ,Distinct;"
EDF = EDF & "ProjectStatus,,ProjStatusCodes,StatusType,,,N oBlank,Distinct;"
EDF = EDF & "Region,,RegionInfo,RegionNumber,,,NoBlank,Dis tinct;"
EDF = EDF & "CountyName,,CountyInfo,CountyName,,,NoBlank,D istinct;"
ADB.dbEditDropFlds = EDF

Are you sure you can filter when using a stored proc? I know that when you are using dbSQL ASPDB constucts a select statement where clause and it is actually SQL Server that does the filtering. Stored procedure can't have where clauses so I'm not sure how it would filter the results?

------------
Paul Mancuso at 12/18/2001 2:54:43 PM


I'm switching from MS Access to MS SQL2000 and with that I'm finding that the ASPdb Gold filter is generating an error. The error is:

Error#(Filter_Create)80040E0C (-2147217908)
Description=No commandhas been set for the command object
Source=Microsoft OLE DB Provider for ODBC Drivers

There is no reference, anywhere for this error. So, I'm hoping you can shed some light as to what is going on here.
The ASPdb application appears to function properly in all other modes (Add,Edit etc)

I have attached a fragment of my code for your reference. thanks in advance.

Set ADB = Server.CreateObject("Asp.db&#34

ADB.dbUnit = 1001
ADB.dbMode = "Dual-Horiz"
ADB.dbButtonAnchor = true
ADB.dbGridInc = "7"

ADB.dbImageDir="/aspdb/images/"
ADB.dbNavigation="bottom"
ADB.dbNavigationItem="Next,Prev,Filter,ResetFi lter,Add,Update"
ADB.dbNavigationIcon="std"
ADB.dbStatusBar=false

ADB.dbDSN = "driver={SQL Server}; Server=h01ny_nt3; DataBase=eSTIP; UID=sa; PWD=;"
ADB.dbDBType="SQL"
ADB.dbStoredProc="spProject"

ADB.dbGridTableTag="border=1, cellspacing=3, cellpadding=3"
ADB.dbFormTableTag="border=1, cellspacing=3, cellpadding=3"
ADB.dbGridColSort=true
ADB.dbGridDisplayFlds="Pin,Region,Descript&#34 ;
ADB.dbFormDisplayFlds="AreaType,AirQuality,Cou ntyName,ProjectStatus"



FDF = "Pin,,Stip,Pin,,,,NoBlank,,Distinct;"
FDF = FDF & "Region,,RegionInfo,RegionNumber,,,,Distinct;& #34;
FDF = FDF & "AreaType,,AreaCodes,AreaCode,,,,Distinct;&#34 ;
FDF = FDF & "ProjectStatus,,ProjStatusCodes,StatusType,,,, Distinct"
ADB.dbFilterDropFlds = FDF

ADB.dbFilterFlds="Pin,Region,ProjectStatus&#34 ;
ADB.dbFilterParams="DropButtonText=none,Help=f alse"

X=request("aspDBBut_1001&#34
X=mid(UCASE(X),10,3)
if X = "ADD" then Session("ADDUPD&#34 = "ADD"
if X = "UPD" then Session("ADDUPD&#34 = "UPD"

if Session("ADDUPD&#34 = "ADD" then
dbE = "tablename=STIP,BookmarkFlds=0,EditValidateNam e=ValidateAdd()"
ADB.dbEditParams = dbE
EF= "Pin,Descript,AreaType,Region,AirQuality,Count yName,ProjectStatus"
ADB.dbEditFlds = EF
end if

if Session("ADDUPD&#34 = "UPD" then
dbE = "tablename=STIP,BookmarkFlds=0"
ADB.dbEditParams = dbE
EF= "Pin,Descript,AreaType,Region,AirQuality,Count yName,ProjectStatus"
ADB.dbEditFlds = EF
ADB.dbEditUpdateROFlds="Pin"
end if

EDF = "AreaType,,AreaCodes,AreaCode,,,NoBlank,Distin ct;"
EDF = EDF & "AirQuality,,AirQualityCodes,AQCodes,,,NoBlank ,Distinct;"
EDF = EDF & "ProjectStatus,,ProjStatusCodes,StatusType,,,N oBlank,Distinct;"
EDF = EDF & "Region,,RegionInfo,RegionNumber,,,NoBlank,Dis tinct;"
EDF = EDF & "CountyName,,CountyInfo,CountyName,,,NoBlank,D istinct;"
ADB.dbEditDropFlds = EDF