L
Longben
Unregistered / Unconfirmed
GUEST, unregistred user!
这里有一段程序
procedure TWebModuleCdcin.WebModuleCdcinWebActionItem2Action(
Sender: TObject; Request: TWebRequest; Response: TWebResponse;
var Handled: Boolean);
var strQuery: String;
begin
strQuery:=Request.QueryFields.Values['type'];
QueryCdcin.Close;
QueryCdcin.SQL.Clear;
QueryCdcin.SQL.Add('select C_CLLXDM,C_PARENTDM,C_CLLXMC from tb_cllxbm where C_PARENTDM=''' + strQuery + '''');
Response.Content:=QueryTableProducerCdcin.Content;
end;
有下列问题:
1、 QueryCdcin.SQL.Add('select C_CLLXDM,C_PARENTDM,C_CLLXMC from tb_cllxbm where C_PARENTDM=''' + strQuery + '''');
写法正确吗?
2、同样的代码,我在SQL中不使用条件就OK,但一按照上面的写法,在浏览器中就报500错误。肯定是我错了。能告诉我错这那里吗。
procedure TWebModuleCdcin.WebModuleCdcinWebActionItem2Action(
Sender: TObject; Request: TWebRequest; Response: TWebResponse;
var Handled: Boolean);
var strQuery: String;
begin
strQuery:=Request.QueryFields.Values['type'];
QueryCdcin.Close;
QueryCdcin.SQL.Clear;
QueryCdcin.SQL.Add('select C_CLLXDM,C_PARENTDM,C_CLLXMC from tb_cllxbm where C_PARENTDM=''' + strQuery + '''');
Response.Content:=QueryTableProducerCdcin.Content;
end;
有下列问题:
1、 QueryCdcin.SQL.Add('select C_CLLXDM,C_PARENTDM,C_CLLXMC from tb_cllxbm where C_PARENTDM=''' + strQuery + '''');
写法正确吗?
2、同样的代码,我在SQL中不使用条件就OK,但一按照上面的写法,在浏览器中就报500错误。肯定是我错了。能告诉我错这那里吗。