动态创建的几个问题

Question

１．我写的动态创建adoconnection的代码如下：
var
adoconn:Tadoconnection;
begin
  adoconn:=TadoConnection.Create(self);
adoconn.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\Delphi\delphi\'#23398#29983 +
    #20449#24687#31649#29702#31995#32479'\GradeManage.mdb;Persist Security Info=False';
  adoconn.Provider:='Microsoft.Jet.OLEDB.4.0';
end;
是不是有错误？错在哪里了？
２．Button能不能动态创建？
以下是我写的动态创建button，编译没错误，但却不能正常显示
var
bt:Tbutton;
begin
  bt:=Tbutton.Create(self);
  bt.Left:=288;
  bt.Top:=48;
  bt.Width:=75;
  bt.Height:=25;
  bt.Caption:='bt';
  bt.TabOrder:=3;
  bt.Visible:=true;
end;
3.db是paradox数据库吧？用ado连接要用哪个驱动？

Answer 1

我只知道第二个需要再加
bt.parent:=self;就可以显示出来了

Answer 2

1. adoconn.Provider:='Microsoft.Jet.OLEDB.4.0';这一句可以去掉了。
2. 加 bt.parent:=self; 可以显示。注意动态创建的一般都要手动free掉。
3. access的数据库为mdb格式 驱动为Microsoft.Jet.OLEDB.4.0已可

Answer 3

3.db是paradox数据库吧？用ado连接要用哪个驱动？
问的是db 不是问mdb~~

Answer 4

1. adoconn.Provider:='Microsoft.Jet.OLEDB.4.0';这一句可以去掉了。
去掉还是不行，提示＂磁盘或者网络错误＂

Answer 5

參考:
var
  s:string;
begin
  ADOTable1.Active :=False;
  s:='E:\Application\website\WEB\mdbdata\data.mdb;';
  ADOTable1.ConnectionString :='Microsoft.Jet.OLEDB.4.0;Data Source='+s+'Persist Security Info=False';
  ADOTable1.Active :=true;
end;

Answer 6

不好意思,寫錯了,應該是這樣:
var
  s:string;
begin
  ADOTable1.Active :=False;
  s:='E:\Application\website\WEB\mdbdata\data.mdb';
  ADOTable1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+s+';Persist Security Info=False';
  ADOTable1.TableName :='Book';//表的名稱
  ADOTable1.Active :=True;
end;