这段程序总提示错误：键列信息不足或错误，影响到多行

Question

procedure TForm1.FormCreate(Sender: TObject);
begin
    Path:=ExtractFilePath(ParamStr(0));
  adoconnection1.Close;
  adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+Path+'/data/data1.mdb;Persist Security Info=False';
  adoconnection1.Open;
  with adoquery1 do
  begin
   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Add('select 分析结果,数字化 from t_yg');
   adoquery1.Open;
   end;
end; function GetValueByName(name:string):integer;
begin
if name='油水同层' then
   result:=1   else
if name='水层' then
   result:=2   else
if name='油层' then
   result:=3   else
if name='含油水层' then
   result:=4   else
if name='油层' then
   result:=5   elseend;procedure TForm1.Button2Click(Sender: TObject);
 var
i:integer;
s:string;
begin//adoquery1.open;
 ADOQuery1.First;
 for i:=0 to ADOQuery1.RecordCount-1 do   begin
  s:=ADOQuery1.FieldByName('分析结果').AsString;
  showmessage(ADOQuery1.FieldByName('分析结果').AsString);
  ADOQuery1.Edit;
  ADOQuery1.FieldByName('数字化').AsString:=inttostr(GetValueByName(s));
  ADOQuery1.Post ;
  adoquery1.next;
  end;end;end.

Answer 1

1.对数据库文件没有写权限
2.读取表没主键