请教高手,这两个参数为什么通不过啊 ( 积分: 50 )

try
dm.ADOConnection1.BeginTrans;
with adoquery1 do
begin
close;
sql.Clear;
sql.Text:='insert into IoData(iodate,cardno,owner,isin)'+'valuesiodate1,:cardno1,:username1,:isin1)';
adoquery1.Parameters.ParamByName('iodate1').Value:=curtime;//这时报iodate1没有定义
adoquery1.Parameters.ParamByName('cardno1').Value:=cardno1;
adoquery1.Parameters.ParamByName('username1').value:=username1;
adoquery1.Parameters.ParamByName('isin1').Value:=isin;
execsql;
end;
dm.ADOConnection1.CommitTrans;
except
dm.ADOConnection1.RollbackTrans;
///////////
begin
close;
sql.Clear;
sql.Add('select * from employee where cardid=:yfm and CardStatus=:cardstatus1');
parameters.ParamByName('yfm').Value:=mainf.strcardno;//这里说yfm没有定义
parameters.ParamByName('cardstatus1').Value:=boolean1;
open;

try
dm.ADOConnection1.BeginTrans;
with adoquery1 do
begin
close;
sql.Clear;
sql.Text:='insert into IoData(iodate,cardno,owner,isin)'+'valuesiodate1,:cardno1,:username1,:isin1)';
adoquery1.Parameters.ParamByName('iodate1').Value:=curtime;//这时报iodate1没有定义
adoquery1.Parameters.ParamByName('cardno1').Value:=cardno1;
adoquery1.Parameters.ParamByName('username1').value:=username1;
adoquery1.Parameters.ParamByName('isin1').Value:=isin;
execsql;
end;
dm.ADOConnection1.CommitTrans;
except
dm.ADOConnection1.RollbackTrans;
///////////
begin
close;
sql.Clear;
sql.Add('select * from employee where cardid=:yfm and CardStatus=:cardstatus1');
parameters.ParamByName('yfm').Value:=mainf.strcardno;//这里说yfm没有定义
parameters.ParamByName('cardstatus1').Value:=boolean1;
open;

打补丁了吗？

打什么补丁啊,大哥

ADO

AdoQuery的Parameters设了没有

请问ado 的补丁怎么打啊,
to loco : 你说的parameters设了没有是说:在静态方法时直接用属性设的吗?

adoquery1 和 dm.ADOConnection1 建立連接了嗎?

直接写了。。。不用参数了
try
dm.ADOConnection1.BeginTrans;
with adoquery1 do
begin
close;
sql.Clear;
sql.Text:='insert into IoData(iodate,cardno,owner,isin)'+'values('+iodate1+','+cardno1+','+username1+','+isin1+')';
execsql;
end;
dm.ADOConnection1.CommitTrans;
except
dm.ADOConnection1.RollbackTrans;
如果类型是字符型的前后加＃39

begin
close;
sql.Clear;
//到这里加一句试试，如果参数不停变换，建议在使用参数前加上。
Parameters.Clear;
sql.Add('select * from employee where cardid=:yfm and CardStatus=:cardstatus1');
parameters.ParamByName('yfm').Value:=mainf.strcardno;//这里说yfm没有定义
parameters.ParamByName('cardstatus1').Value:=boolean1;
open;

谢谢大家