问题很多!麻烦大家了(100分)

1.我想动态的改变grid中显示的表，我在一个按钮中写下以下代码
procedure Trk_w.fcShapeBtn2Click(Sender: TObject);
var
strsql:string;
begin
inherited;
strsql:=edit1.text;
data_w.tsgl_dds.commandtext:='';
data_w.tsgl_dds.Active :=false;
data_w.tsgl_dds.commandtext:= 'select bh, cbrq, cbs, cs, dj, kcs, lrjj, sm, zzm from '+strsql+'';
data_w.tsgl_dds.Active :=true;
end;
可是好象还是不行。grid 得不到刷新,怎样才能让它及时的刷新。我用的是delphi5+ado+accesss

2.每次一个表增加一个记录产生一个事件，每次删除一个记录产生一个事件。怎么写！我用的是delphi5+ado+accesss

3.我在一个按钮里添加代码，是增加一个记录，可是怎样写才能当按钮按下后记录就
在grid里反映出来。如果这样写
procedure Tflbm_w.fcShapeBtn1Click(Sender: TObject);
var
strSQL:string;
sTableName: string;
strSQL1:string;
begin
inherited;
sTableName:=edit1.text ;
strSQL := 'INSERT INTO flk(fldm,flmc) VALUES(''' + Edit1.Text + ''',''' + Memo1.Text + ''') ';
strSQL1 :='create table ' + sTableName + '(cs integer)';
data_w.tsgl_dc .ExeCute(StrSQL);
data_w.tsgl_dc .ExeCute(StrSQL1);
end;
并不能及时的反映在grid上。我用的是delphi5+ado+accesss

4.我想删除数据库中的一个表所以这样写
procedure TForm1.Button2Click(Sender: TObject);
var
strsql:string;
stablename:string;
begin
adodataset1.delete;
stablename:=dbedit1.text;
strsql:='DROP TABLE '+stablename+'';
adoconnection1.execute(strsql);
end;
为何这样写说找不到约束条件。

1、第一个问题，你是不是生成了grid的column对象。如果要动态改变数据源，那么就
不能再设计期生成column对象。

2、beforeinsert、afterinsert、beforedelete、afterdelete
3、你没有从数据源重新取得数据，最简单的方法就是把数据集close然后open
4、为什么不用adocommand控件执行drop操作。

我只用了adoconnection和adodataset,我想问问
beforeinsert、afterinsert、beforedelete、afterdelete
放在什么控件的属性里
怎么在adoconnection中实行drop操作,既然可以实行create table为何不能实行drop呢

接受答案了.