onExecuteComplete中的错误(100分)

  • 主题发起人 主题发起人 andrew57
  • 开始时间 开始时间
A

andrew57

Unregistered / Unconfirmed
GUEST, unregistred user!
TADOConnection,TADOQuery查询数据
TADOQuery执行select语句查询
在TADOConnection的事件onExecuteComplete写如下代码
showmessage(command.parameters.item[0].value)
会发生 Access Violation异常

showmessage(command.parameters.count)却没有异常
期待高人解释
 
count>0才能访问item[0],否则肯定异常啊
 
>=1就不会出错啊,我的测试代码
procedure TForm1.acnExecuteComplete(Connection: TADOConnection;
RecordsAffected: Integer;
const Error: Error;
var EventStatus: TEventStatus;
const Command: _Command;
const Recordset: _Recordset);
begin
if command.Parameters.Count > 0 then
Caption := command.Parameters.Item[0].Value;
end;
 
with adqdo
begin
close;
sql.Text := 'select * from score where stuid=:id and stuname like :st';
parameters[0].Value := 1;
parameters[1].Value := '%';
open;
end;
不知道你为什么不出异常。我这个都2个参数了
 
后退
顶部