数据库简单操作

Question

//    Table1.IndexFieldNames:='A1';加了这句就出错：access violat idodbc32.dll          
          Table1.setkey;
         Table1.first;
 while not Table1.eof do
          begin
            testString:=Table1.FieldByName('A1').AsString;//= ArrayString[i];
            Write(f,testString);                if (0<>pos(testString,s)) then
                Table1.Delete;
         Table1.next;//报错：multiple records found,but only one was expected，并且停留在这里，应该是上一句执行得有问题
         end;

Answer 1

delete from tablename
 where expressoin