5,930
社区成员
发帖
与我相关
我的任务
分享win2000下阿ado的奇怪现象。
下面这段代码在win98下无任何问题，但在win2000下QSQL.close会产生如下错误：
“Either bof or eof is true,or the current record has been deleted,requested operation requires a current record.”
请教各位这是什么原因，如何解决。
InitAdoQuery(QSQL);
QSQL.SQL.Add('SELECT *');
QSQL.SQL.Add('FROM Tb_member');
QSQL.SQL.Add('WHERE dept_id = :dept_id');
QSQL.Parameters.ParamByName('dept_id').value := node.Text;
QSQL.open;
while not QSQL.Eof do
begin
node1 := node.Owner.AddChild(node,QSQL['Fname']);
serial_id := QSQL['serial_id'];
node1.Data := newstr(serial_id);
node1.ImageIndex := 4;
node1.SelectedIndex := 5;
QSQL.Next;
end;
=> QSQL.close;
end;
“Either bof or eof is true,or the current record has been deleted,requested operation requires a current record.”
请教各位这是什么原因，如何解决。
InitAdoQuery(QSQL);
QSQL.SQL.Add('SELECT *');
QSQL.SQL.Add('FROM Tb_member');
QSQL.SQL.Add('WHERE dept_id = :dept_id');
QSQL.Parameters.ParamByName('dept_id').value := node.Text;
QSQL.open;
while not QSQL.Eof do
begin
node1 := node.Owner.AddChild(node,QSQL['Fname']);
serial_id := QSQL['serial_id'];
node1.Data := newstr(serial_id);
node1.ImageIndex := 4;
node1.SelectedIndex := 5;
QSQL.Next;
end;
=> QSQL.close;
end;
...全文
请发表友善的回复…
发表回复
