哪位兄台能帮我把这段VB代码（不长）转为delphi中能运行的代码？通过则给分，不甚感谢！

Question

直接在DELPHI中导入ADOX，就可以使用了，很好用的。

Answer 1

Delphi用ADO访问MDB很容易啊,有必要看VB的代码吗?

Answer 2

如何直接在DELPHI中导入ADOX？具体如何做？不是用delphi访问mdb的问题，是建立mdb链接表的问题，那样可以用一个adocon....同时去操作几个mdb，多库操作时有用的。上面的VB代码就解决这问题，不过得转成delphi下的。

Answer 3

DBStr := 'F:\省委信息报送\MailDB.mdb';ADOConnection.Connected := False;
ADOConnection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DBStr+';Persist Security Info=False';
ADOConnection.Connected := True;

Answer 4

genphone_ru(票票) :
不是用delphi访问mdb的问题，是建立mdb链接表的问题，那样可以用一个adocon....同时去操作几个mdb，多库操作时有用的。上面的VB代码就解决这问题，不过得转成delphi下的。

Answer 5

var
  cat:olevariant;
  tdb:olevariant;
begin
  d.Connected:=true;
 cat:=createoleobject('adox.catalog');
 cat.activeconnection:=d.ConnectionObject;
 tdb:=createoleobject('adox.table');
 tdb.name:='ware_zzz';
 tdb.ParentCatalog:=cat;
 tdb.Properties('Jet OLEDB:Exclusive Link'):=true;
 tdb.Properties('jet oledb:link datasource'):='c:\x.mdb';
 tdb.Properties('Jet OLEDB:Remote Table Name'):='ware';
 tdb.Properties('Jet OLEDB:Create Link'):=True;
 cat.Tables.Append(tdb);