急！请问用Query控件如何更新一个.dbf格式的数据库！

Question

有以下代码，可就是不能更新！请指点！
procedure TForm1.Button1Click(Sender: TObject);
begin
    with query1 do
        begin
            close;
            with SQL do
                begin
                    clear;
                    add('update ds01.dbf');
                    add('set YHMC=''1''');
                    add('where CGBZ=''Y''');
                end;
            execSQL;
        end;    
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
    with query1 do
        begin
            close;
            with SQL do
                begin
                    clear;
                    add('update ds01.dbf');
                    add('set YHMC=' + QuotedStr('1'));
                    add('where CGBZ=' + QuotedStr('Y'));
                end;
            execSQL;
        end;    
end;试试

Answer 2

我试了一下，不行呀！
update 后的表名应该是什么格式？我这样写有没有问题？如果ds01.dbf用table控件绑定了应该怎么样写呢？

Answer 3

Table.TableName := '路径 ' + '\ds01.dbf ' ;上面得代码不行就在前面加query1.DataBaseName :=  '路径 ' + '\ds01.dbf ' ;然后再试试你得代码

Answer 4

不行呀，你能帮我Run一下吗？然后再把代码给我！谢谢了！

Answer 5

with Query1 do
  begin
    Close ;
    SQL.Clear ;
    SQL.Add('INSERT INTO "e:\11.dbf" VALUES(' + QuotedStr('aaaa') + ', 2)') ;
    ExecSQL ;
  end ;
我试过了，没问题！

Answer 6

你要是不嫌麻烦就用BDE的API建一个别名，也挺简单的