procedure TForm1.Button1Click(Sender: TObject);
begin
with TADOConnection.Create(Self) do
begin
ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:/db1.mdb;Persist Security Info=False';
Connected := True;
Execute('create view 测试 as select * from 表一');
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
with TADOConnection.Create(Self) do
begin
ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:/db1.mdb;Persist Security Info=False';
Connected := True;
Execute('drop view 测试');
end;
end;