怎样进行数据库的动态连接？？

Question

在程序中加入以下代码运行时总出现错误“adotable1:cannot perform this operation on an open dataset”是哪里的问题呢
procedure Tmain.FormCreate(Sender: TObject);
begin
//ADO数据库连接ConnectionString值
   adoconnect:='Provider=Microsoft.Jet.OLEDB.4.0;';
   adoconnect:=adoconnect+'Data Source=';
   adoconnect:=adoconnect+ExtractFileDir(Application.ExeName);
   adoconnect:=adoconnect+'\data\example.mdb;Persist Security Info=False;Jet OLEDB:Database Password=556677';//用取得的字符串给相关控件赋值并激活
   Adoconnection1.ConnectionString:=adoconnect;
   Adoconnection1.Connected:=true;
   Adotable1.ConnectionString:=adoconnect;
   Adotable1.Active:=true;
end;end.

Answer 1

//用取得的字符串给相关控件赋值并激活
//如果你的ConnectionString没有错的话，下面两句应该没有问题
   Adoconnection1.ConnectionString:=adoconnect;
   Adoconnection1.Connected:=true;
//修改下一句如下
   Adotable1.Connection:=Adoconnection1;
   Adotable1.Active:=true;

Answer 2

在设定Adotable1.Active:=true;之前，最好先指定Adotable1.TableName:=你的某个表名

Answer 3

你还要先设你的adotable1所连的表，adotable1.tablename:='你要连接的表'
然后你才能对表进行操作