只解决一个问题很简单

[LFreeX]

在这段代码中出现
ADOQ_GDDJ.Close;
ADOQ_GDDJ.Sql.Clear;
ADOQ_GDDJ.Sql.Add('Insert Into T_ZDDJ');
ADOQ_GDDJ.SQl.Add('(ZLesseeDate,ZLesseeID,:ZSID,ZDSID,ZDSName)');
ADOQ_GDDJ.SQl.Add'Values :ZLesseeDate,:ZLesseeID,:ZSID,:ZDSID,:ZDSName)');
ADOQ_GDDJ.Parameters[0].Name:='ZLesseeDate';
ADOQ_GDDJ.Parameters[1].Name:='ZLesseeID';
ADOQ_GDDJ.Parameters[2].Name:='ZSID';
ADOQ_GDDJ.Parameters[3].Name:='ZDSID';
ADOQ_GDDJ.Parameters[4].Name:='ZDSName';
ADOQ_GDDJ.Parameters.ParamByName('ZLesseeDate').Value:=SDate;
ADOQ_GDDJ.Parameters.ParamByName('ZLesseeID').Value :=I;
ADOQ_GDDJ.parameters.ParamByName('ZSId').Value:=Edit3.Text ;
ADOQ_GDDJ.Parameters.ParamByName('ZDSID').Value:=Edit6.Text ;
ADOQ_GDDJ.parameters.ParamByName('ZDSName').Value:=Edit7.Text;
ADOQ_GDDJ.ExecSql;

为什么我在用ADOQuery时用参数传递出现应用程序定义parameter对象方式不适当

[王集鹄]

ADOQ_GDDJ.Close;
ADOQ_GDDJ.SQL.Clear;
ADOQ_GDDJ.SQL.Add('Insert Into T_ZDDJ');
ADOQ_GDDJ.SQl.Add('(ZLesseeDate,ZLesseeID,ZSID,ZDSID,ZDSName)');
ADOQ_GDDJ.SQl.Add('Values (:ZLesseeDate,:ZLesseeID,:ZSID,:ZDSID,:ZDSName)');
ADOQ_GDDJ.Parameters.ParamByName('ZLesseeDate').Value:=SDate;
ADOQ_GDDJ.Parameters.ParamByName('ZLesseeID').Value :=I;
ADOQ_GDDJ.Parameters.ParamByName('ZSId').Value:=Edit3.Text ;
ADOQ_GDDJ.Parameters.ParamByName('ZDSID').Value:=Edit6.Text ;
ADOQ_GDDJ.Parameters.ParamByName('ZDSName').Value:=Edit7.Text;
ADOQ_GDDJ.ExecSQL;

[1nbud]

Name是只读属性
下面两句的意思一样
Parameters[0].Value
Parameters.ParamByName('ZSID').Value
因为参数的名称是从SQL语句中自动得出的

[LFreeX]

我的程序有什么问题吗？望指教

[紫气东来-长江]

你是多此一举