急!高分求解ADO问题
我第一次用ADO连接DBASE表编程,在编写的这台机运行一切正常,为什么把程序到别的机上运行却会在删除或增加记录时出现“缺少更新或刷新的基本表消息”?
用的是DELPHI 5。0版打了补丁也不行,用DELPHI 6。0编辑一次也不行!
程序如下:
procedure TForm1.SpeedButton3Click(Sender: TObject);\\删除
var
vc,vv:integer;
begin
if ADOTable1.Recordcount<>0 then
begin
if messagedlg('真的要删除当前记录'+ADOTable1.FieldByName('xm').asstring+'的数据吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
DataSource1.Enabled:=false;
vc:= ADOTable1['xh'];
ADOTable1.Delete;
ADOTable1.First;
vv:=1;
while not ADOTable1.eof do
begin
ADOTable1.edit;
ADOTable1['xh']:=vv;
ADOTable1.post;
vv:=vv+1;
ADOTable1.Next;
end;
ADOTable1.First;
DataSource1.Enabled:=true;
ADOTable1.moveby(vc-1);
end;
end;
end;